Access 2007 32位升级至2016 64位后CSV导入按钮失效求助

嘿，这个问题我太熟了——从32位Access 2007升级到64位2016后，很多依赖系统API的老代码都会罢工，你这个文件选择窗口弹不出来就是典型的API兼容性问题。原32位VBA里的API声明没有适配64位环境的地址空间，导致调用失败，自然弹不出窗口。下面给你两种解决方案，按需选择：

方案1：修正原API调用的64位兼容性 #

如果你的代码原本用的是GetOpenFileName这类系统API，只需要修改API声明和对应的数据类型，就能适配64位环境。把原代码里的API声明替换成下面的条件编译版本，这样代码能同时兼容32位和64位Access：

#If VBA7 Then
    ' 64位Access（VBA7及以上版本）的API声明
    Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPtr
    Type OPENFILENAME
        lStructSize As LongPtr
        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
#Else
    ' 32位Access的原始API声明
    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
#End If

关键修改点： #

• 给64位的API声明加上PtrSafe关键字，这是64位VBA强制要求的
• 将OPENFILENAME结构中属于指针类型的字段（比如lStructSize、hwndOwner）从Long改为LongPtr，适配64位地址空间

之后你的文件选择逻辑可以保持不变，调用这个修正后的API就能正常弹出窗口了。

方案2：使用Access内置的FileDialog对象（推荐） #

如果不想折腾API兼容性，直接用Access自带的FileDialog对象是更省心的选择——它天然兼容32/64位环境，代码也更简洁。替换原按钮的VBA代码为以下内容：

Private Sub btnImportCSV_Click()
    Dim fd As FileDialog
    Dim selectedCSVPath As String
    
    ' 创建文件选择对话框实例
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .Title = "请选择要导入的CSV文件"
        .Filters.Clear ' 清空默认过滤器
        .Filters.Add "CSV文件", "*.csv" ' 添加CSV文件过滤
        .Filters.Add "所有文件", "*.*" ' 可选：添加所有文件选项
        .InitialFileName = CurrentProject.Path ' 默认打开当前数据库所在目录
        
        ' 显示对话框，判断用户是否选择了文件
        If .Show = -1 Then
            selectedCSVPath = .SelectedItems(1) ' 获取选中的文件路径
            ' 这里添加你的CSV导入逻辑，比如DoCmd.TransferText等
            MsgBox "将导入文件：" & selectedCSVPath
        Else
            MsgBox "你取消了文件选择"
        End If
    End With
    
    ' 释放对象
    Set fd = Nothing
End Sub

这个方法不需要处理任何API兼容问题，而且界面和系统原生文件选择器一致，用户体验更好，强烈推荐优先使用。

内容的提问来源于stack exchange，提问作者Jon Powers