终于解决了：在vba中，使用api打开文件保存对话框

最新推荐文章于 2024-06-25 13:17:14 发布

xubo8219

最新推荐文章于 2024-06-25 13:17:14 发布

阅读量3.1k

点赞数

文章标签： vba api string integer function button

本文链接：https://blog.csdn.net/xubo8219/article/details/3024619

版权

本文介绍了如何在VBA中利用API调用打开文件对话框，提供了一段在Access 2007中测试通过的代码示例。代码包括设置对话框参数、过滤文件类型，并展示了当用户选择文件后的处理过程。

摘要由CSDN通过智能技术生成

苍天啊！

不容易啊！

几代人的心血，终于让我拼在一起了。

以下代码，请写入标准模块中

在aceess 2007中测试通过。

希望，对大家有帮助

Option Explicit

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private strfileStr     As String
Private 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
      lpst