Cách gọi hàm DLL từ VB6 sang VBA

[Minh Đạo 456]

+Trong VB6 tôi tạo một ActiveX DLL; đặt tên class là Class1
Sau đó viết Code cho một thủ tục đơn giản như sau:

Sub test()
Msgbox ("abc")
End Sub

Dịch ra TESTVB6.dll

+Trong Excel, Insert Module, rồi viết Code như sau:

Declare Sub test Lib "E:\Test VB6\TESTVB6.dll" ()
Sub chaycode()
Dim VB6 As Class1
Set VB6 = New Class1
VB6 .Test
Set VB6 = Nothing
End Sub

Nhưng không biết vì sao code báo lỗi như thế này



Mình gửi hình ảnh code trong VB6



Không biết sai chỗ nào nhờ mọi người chỉ dẫn ( thật chi tiết ) Mình xin cảm ơn !

 

[Hau151978]

Bạn cần đăng ký file dll rồi thử:
Trong VBA, vào tools - reference đánh dấu chọn testvb6. Bỏ lệnh Declare đi.