Xin đổi giúp code của 1 Add-In

[shadion]

Xin chào ạ.

Mình có một tool chạy trên Excel 2007 từ hồi 10 năm trước. Dạo gần đây mình cập nhật máy lên bản Office 2016 plus 64 bit và không thể dùng tool nữa. Bạn nào có thể giúp mình sửa code để có thể chạy trên office 64 bit không ạ?

Do mình không biết về lập trình nên khi search và thử làm như trên diễnđàn bày thì tool vẫn không hoạt động.

Cám ơn rất nhiều!

 

[quick87]

Xin chào ạ.

Mình có một tool chạy trên Excel 2007 từ hồi 10 năm trước. Dạo gần đây mình cập nhật máy lên bản Office 2016 plus 64 bit và không thể dùng tool nữa. Bạn nào có thể giúp mình sửa code để có thể chạy trên office 64 bit không ạ?

Do mình không biết về lập trình nên khi search và thử làm như trên diễnđàn bày thì tool vẫn không hoạt động.

Cám ơn rất nhiều!

Bạn sửa các dòng dưới đây:

Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
  Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
  Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
  Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Thành:

#If Win64 Then
  Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
  Private Declare PtrSafe Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
  Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
  Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
#Else
  Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
  Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
  Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
  Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
#End If

Rồi chạy lại thử xem sao nhé !