Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
1/ xuất phát từ chính nhu cầu sử dụng của tôi
2/ trên VB6 thì đâu đó họ cũng đã viết có từ 15 năm trước
3/ trên Delphi cũng có từ 15 năm trước nhưng chưa thấy ai xuất API sử dụng nó
...
5/ Tôi viết 1 Hàm để sử dụng nó load DLL ActiveX mà ko cần đăng ký sử dụng nó
6/ Test trên Excel 64 bít sử dụng tốt ... Tôi ko dùng Excel 32 bít nên ko biết
7/ Úp lên đây là 2 DLL nhỏ gọn 32 và 64 bít .... cho ai có nhu cầu cần thì sử dụng nó
8/ để sử dụng nó yêu cầu lấy Guid của Class mà bạn viết trong DLL khi build nó
9/ chỉ 1 hàm duy nhất đơn giản là bạn có thể sử dụng ActiveX COM DLL do mình viết mà ko cần đăng ký sử dụng nó
đính kèm File là code mẫu sử dụng cho Excel 64 bit và DLL 64 bit .... chưa test trên 32 bit
quá trình sử dụng có lỗi vui lòng mô tả Lỗi ... trong phạm vi điều chỉnh tôi sẻ viết lại nó
Chúc ai đó sử dụng linh hoạt và thân thiện nhất ko cần đăng ký sử dụng DLL COM do mình viết với Windows
RegFreeCOM
2/ trên VB6 thì đâu đó họ cũng đã viết có từ 15 năm trước
3/ trên Delphi cũng có từ 15 năm trước nhưng chưa thấy ai xuất API sử dụng nó
...
5/ Tôi viết 1 Hàm để sử dụng nó load DLL ActiveX mà ko cần đăng ký sử dụng nó
6/ Test trên Excel 64 bít sử dụng tốt ... Tôi ko dùng Excel 32 bít nên ko biết
7/ Úp lên đây là 2 DLL nhỏ gọn 32 và 64 bít .... cho ai có nhu cầu cần thì sử dụng nó
8/ để sử dụng nó yêu cầu lấy Guid của Class mà bạn viết trong DLL khi build nó
9/ chỉ 1 hàm duy nhất đơn giản là bạn có thể sử dụng ActiveX COM DLL do mình viết mà ko cần đăng ký sử dụng nó
Mã:
#If Win64 Then
Declare PtrSafe Function GetInstance Lib "DirectCOM64.dll" _
(ByVal GUIDString As Variant, ByVal DLLPath As Variant) As Variant
#Else
Declare PtrSafe Function GetInstance Lib "DirectCOM32.dll" _
(ByVal GUIDString As Variant, ByVal DLLPath As Variant) As Variant
#End If
Rem ==========
Const CLASScVBLib = "{3BF679EA-E443-4311-89EC-F29937A0F9CC}"
Sub Main_GetInstance()
Dim xx As Object ''As Variant
Dim DLL As Variant
DLL = ThisWorkbook.path & "\MyLibrary64.dll"
Set xx = GetInstance(CLASScVBLib, DLL)
Range("A1").Value = xx.SelectFilesDialog
Set xx = Nothing
Debug.Print TypeName(xx)
End Subđính kèm File là code mẫu sử dụng cho Excel 64 bit và DLL 64 bit .... chưa test trên 32 bit
quá trình sử dụng có lỗi vui lòng mô tả Lỗi ... trong phạm vi điều chỉnh tôi sẻ viết lại nó
Chúc ai đó sử dụng linh hoạt và thân thiện nhất ko cần đăng ký sử dụng DLL COM do mình viết với Windows
RegFreeCOM
Lần chỉnh sửa cuối:
