将多份CSV文件导入Access并按文件名命名表的脚本求助

嘿，刚接触VBA遇到这个问题太正常了！你的脚本核心逻辑没问题，只是缺了指定数据表名称的关键参数，而且还要处理文件名里可能存在的Access表名不允许的特殊字符。我帮你修改并完善了脚本，直接能用：

Function Import_multi_csv()
    Dim fs, fldr, fls, fl
    Dim csvFileName As String
    Dim cleanTableName As String
    
    ' 创建文件系统对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    ' 注意：路径要改成你实际的文件夹，记得加反斜杠，比如"D:\Files\"
    Set fldr = fs.getfolder("D:\Files\")
    Set fls = fldr.files
    
    For Each fl In fls
        ' 判断是否是CSV文件（转成小写避免大小写判断失误）
        If LCase(Right(fl.Name, 4)) = ".csv" Then
            ' 获取不带.csv后缀的原始文件名
            csvFileName = Left(fl.Name, Len(fl.Name) - 4)
            
            ' 清理文件名，转换成合法的Access表名
            ' Access表名不能有空格、/、!等特殊字符，统一替换成下划线
            cleanTableName = Replace(csvFileName, " ", "_")
            cleanTableName = Replace(cleanTableName, "/", "_")
            cleanTableName = Replace(cleanTableName, "!", "_")
            cleanTableName = Replace(cleanTableName, "?", "_")
            
            ' 执行CSV导入，核心是指定TableName参数
            DoCmd.TransferText _
                TransferType:=acImportDelim, _
                TableName:=cleanTableName, _
                FileName:=fl.Path, _
                HasFieldNames:=True ' 如果CSV第一行不是表头，改成False
            
            Debug.Print "已完成导入：" & fl.Name & " → 数据表：" & cleanTableName
        End If
    Next fl
    
    ' 释放占用的对象
    Set fl = Nothing
    Set fls = Nothing
    Set fldr = Nothing
    Set fs = Nothing
    
    MsgBox "所有CSV文件导入完成！"
End Function

关键修改&说明： #

• 提取纯文件名：用Left(fl.Name, Len(fl.Name)-4)去掉.csv后缀，得到原始文件名。
• 清理合法表名：Access不允许表名包含空格、特殊符号，用Replace把这些字符替换成下划线，避免导入报错。
• 指定数据表名称：这是你原来脚本缺失的核心！在DoCmd.TransferText里明确写TableName:=cleanTableName，就能让导入的数据表自动用处理后的文件名命名。

额外实用提示： #

1. 路径检查：原脚本里的"D:Files\"是错误路径，必须写成"D:\Files\"（加反斜杠），否则会找不到文件夹。
2. 重复表名处理：如果文件夹里有同名CSV，或者已经存在同名数据表，脚本会报错。可以在导入前加一段判断逻辑：

   ' 检查数据表是否已存在，存在则跳过（或删除原表）
   If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & cleanTableName & "'")) Then
       Debug.Print "数据表" & cleanTableName & "已存在，跳过当前文件"
       GoTo NextFile
   End If
   

   然后在Next fl前添加NextFile:标签即可。

内容的提问来源于stack exchange，提问作者B H