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   String
     nMaxCustFilter  As   Long
     nFilterIndex  As   Long
     lpstrFile  As   String
     nMaxFile  As   Long
     lpstrFileTitle  As   String
     nMaxFileTitle  As   Long
     lpstrInitialDir  As   String
     lpstrTitle  As   String
     flags  As   Long
     nFileOffset  As   Integer
     nFileExtension  As   Integer
     lpstrDefExt  As   String
     lCustData  As   Long
     lpfnHook  As   Long
     lpTemplateName  As   String
End  Type 

调用代码

Sub  t()
     Dim  ofn  As  OPENFILENAME
     Dim  rtn  As   String

    ofn.lStructSize  =   Len (ofn)
    ofn.hwndOwner  =  Application.hWnd
     ' ofn.hInstance = Application.hInstance
    ofn.lpstrFilter  =   " XML Files (*.xml) "   &   Chr ( 0 )  &   " *.xml "   &   Chr ( 0 )
    ofn.lpstrFile  =   Space ( 254 )
    ofn.nMaxFile  =   255
    ofn.lpstrFileTitle  =   Space ( 254 )
    ofn.nMaxFileTitle  =   255
    ofn.lpstrInitialDir  =   " C: "
    ofn.lpstrTitle  =   " 打开文件 "
    ofn.flags  =   6148

    rtn  =  GetOpenFileName(ofn)

     If  rtn  >=   1   Then
         MsgBox  ofn.lpstrFile
     Else
         MsgBox   " Cancel Was Pressed "
     End   If

End Sub