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

<iframe align="top" marginwidth="0" marginheight="0" src="http://www.zealware.com/46860.html" frameborder="0" width="468" scrolling="no" height="60"></iframe>

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

DeclareFunctionGetOpenFileNameLib"comdlg32.dll"Alias_
"GetOpenFileNameA"(pOpenfilenameAsOPENFILENAME)AsLong

TypeOPENFILENAME
lStructSizeAsLong
hwndOwnerAsLong
hInstanceAsLong
lpstrFilterAsString
lpstrCustomFilterAsString
nMaxCustFilterAsLong
nFilterIndexAsLong
lpstrFileAsString
nMaxFileAsLong
lpstrFileTitleAsString
nMaxFileTitleAsLong
lpstrInitialDirAsString
lpstrTitleAsString
flagsAsLong
nFileOffsetAsInteger
nFileExtensionAsInteger
lpstrDefExtAsString
lCustDataAsLong
lpfnHookAsLong
lpTemplateNameAsString
EndType

调用代码

Subt()
DimofnAsOPENFILENAME
DimrtnAsString

ofn.lStructSize=Len(ofn)
ofn.hwndOwner=Application.hWnd
'ofn.hInstance=Application.hInstance
ofn.lpstrFilter="XMLFiles(*.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)

Ifrtn>=1Then
MsgBoxofn.lpstrFile
Else
MsgBox"CancelWasPressed"
EndIf

EndSub

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1856201