Excel 文件未在 MS 访问中加载

Question

它运行时没有任何错误消息，但文件未在 MS 访问中加载。 可能是什么原因？ 我在目录中有一个 csv 文件

编辑后

Option Compare Database
Option Explicit

Public Function import_date_files()

    Dim report_path As String, file_name As String
    
    
    
    
    report_path = "C:\Users\gobro7\OneDrive - Levi Strauss & Co\MS access test\weekly_load"
    
    file_name = Dir(report_path & "\*.csv")
    
    
    Do While file_name <> vbNullString
        DoCmd.TransferText acImportDelim, , Trim(Replace(file_name, "\.csv", "")), report_path & file_name, True
        file_name = Dir
    Loop
    
    MsgBox "Data loaded", vbInformation
    
         

End Function

Answer 1

Option Compare Database
Option Explicit

Public Function import_date_files()

    Dim report_path As String, file_name As String
    
    
    
    
    report_path = "C:\Users\gobro7\OneDrive - Levi Strauss & Co\MS access test\weekly_load\"
    
    file_name = Dir(report_path & "*.csv")
    
    
    Do While file_name <> vbNullString
        DoCmd.TransferText acImportDelim, , Trim(Replace(file_name, ".csv", "")), report_path & file_name, True
        file_name = Dir
    Loop
    
    MsgBox "Data loaded", vbInformation
    
         

End Function

路径末尾缺少反斜杠 -> \weekly_load\"