vba使用win32 API(GetOpenFileName )实现打开文件对话框

 

使用网上比较普遍的vb中使用WindowsAPI实现打开文件对话框代码，

Declare  Function  GetOpenFileName Lib  " comdlg32.dll "  Alias _
         " GetOpenFileNameA "  (pOpenfilename  As  OPENFILENAME)  As   Long
 
Type OPENFILENAME
     lStructSize  As   Long
     hwndOwner  As   Long
     hInstance  As   Long
     lpstrFilter  As   String
     lpstrCustomFilter  As