cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
1039
Views
0
Helpful
0
Comments
alejo1521
Level 1
Level 1

here the solution. 

On VBA Code add PtrSafe after the Declare statements, *** TIP: Save file as .XLT

 

32Bit Config -  VBA64Bit Config -  VBA

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

Private Declare 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

Private Declare PtrSafe Function lstrcat _
Lib "kernel32" _
Alias "lstrcatA" _
( _
ByVal lpString1 As String, _
ByVal lpString2 As String _
) _
As Long

 

Reference: http://www.integra4notes.com/faq/pages/0282

Getting Started

Find answers to your questions by entering keywords or phrases in the Search bar above. New here? Use these resources to familiarize yourself with the community: