请用vba写一个调用系统API弹窗选择指定文件如.txt，并返回文件目录和文件名，要求可以兼容win10和win11

### VBA 调用系统 API 实现文件选择对话框 为了在 VBA 中调用系统 API 来实现文件选择对话框并兼容 Win10 和 Win11，可以使用 `GetOpenFileName` 函数。此函数允许用户通过标准的 Windows 文件打开对话框来选择文件，并返回所选文件的路径和名称。 以下是完整的代码示例： ```vba Option Explicit #If Vba7 And Win64 Then Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _ ByVal lpOFN As OPENFILENAME) As Long #Else Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _ ByVal lpOFN As OPENFILENAME) As Long #End If Private Type OPENFILENAME lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr 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 LongPtr lpfnHook As LongPtr lpTemplateName As String End Type Sub SelectTextFileDialog() Dim ofn As OPENFILENAME Dim fileName As String ' 初始化结构体大小 ofn.lStructSize = LenB(ofn) ' 设置过滤器为仅显示 .txt 文件 ofn.lpstrFilter = "文本文件 (*.txt)" & Chr$(0) & "*.txt" & Chr$(0) & "所有文件 (*.*)" & Chr$(0) & "*.*" & Chr$(0) ' 定义最大文件名长度 ofn.nMaxFile = 260 fileName = Space$(ofn.nMaxFile) ofn.lpstrFile = fileName ' 设置初始目录为空 ofn.lpstrInitialDir = "" ' 设置对话框标题 ofn.lpstrTitle = "请选择一个 .txt 文件" ' 设置标志位 ofn.Flags = &H8 Or &H4 Or &H2000 ' 打开文件选择对话框 If GetOpenFileName(ofn) <> 0 Then MsgBox "您选择了：" & Trim$(ofn.lpstrFile), vbInformation, "文件选择成功" Else MsgBox "未选择任何文件", vbExclamation, "操作取消" End If End Sub ``` #### 说明 上述代码实现了以下功能： - **OPENFILENAME 结构初始化**：定义了一个名为 `OPENFILENAME` 的数据结构用于存储文件选择对话框的相关参数[^1]。 - **过滤器设置**：设置了只显示 `.txt` 文件的过滤条件。 - **跨平台支持**：通过 `#If Vba7 And Win64 Then` 判断当前运行环境是否为 64 位操作系统，从而适配不同版本的操作系统（Win10 和 Win11）[^5]。 - **错误处理**：如果用户取消了文件选择，则会弹出提示信息；否则，将显示所选文件的完整路径和名称。 --- ###