使用VBA将CSV文件导入Access

Sub ImportCSV()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strFile As String
    Dim strInput As String
    Dim strTable As String
    Dim intChoice As Integer
    
    ' 设置CSV文件路径和文件名
    strFile = "C:\Path\to\your\file.csv"
    
    ' 设置目标表格名称
    strTable = "YourTableName"
    
    ' 打开CSV文件对话框
    strInput = InputBox("Enter 1 to import " & strFile & " into " & strTable & ".")
    
    ' 检查用户输入
    intChoice = CInt(strInput)
    If intChoice = 1 Then
        ' 打开数据库
        Set db = CurrentDb()
        
        ' 打开目标表格
        Set rs = db.OpenRecordset(strTable)
        
        ' 导入CSV文件
        DoCmd.TransferText acImportDelim, "", strTable, strFile, True
        
        ' 关闭记录集和数据库
        rs.Close
        db.Close
        
        MsgBox "CSV file imported successfully!"
    Else
        MsgBox "Import canceled."
    End If
End Sub