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

本文介绍了一种在Visual Basic (VB) 中利用WindowsAPI实现文件打开对话框的方法。通过具体代码示例展示了如何定义并使用OPENFILENAME结构体来配置文件过滤器、初始目录等参数。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 
使用网上比较普遍的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





评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值