使用 vba/macros 将多个 CSV 文件中的特定列导入 Access 2013

Question

我有多个列数相同（大约 616 列）和不同行数的 csv 文件（分号分隔）。我想将每个文件导入 Access 中的不同表中。我对宏/vba 完全陌生。 我遇到了两个问题：

1. 我使用了来自论坛的此代码 [https://superuser.com/questions/1131994/ms-access-2016-import-multiple-csv-files][1]，它工作正常，但它正在将一个 csv 文件导入一个表格中的一列中，分号分隔（意味着 csv 文件中的 616 列显示在一列中，以分号分隔访问） )。尽管数据应显示在表格的单独列中。我希望数据显示在单独的列中。导入后，我看到访问中的数据与 csv 文件相同。 csv 文件中的列标题也包含文本和数字（1 到 600）。
2. 其次，我想从 csv 文件中导入一些特定的列。有人可以编辑此代码并添加一些编码如何将特定列从 csv 文件导入 Access。

希望我解释清楚。

Answer 1

您无法将包含 600 多列的文件导入 Access。你可以试试 SQL Server。或者，您可以导入所需的特定字段。我严重怀疑您的数据集中需要 600 多个字段。

无论如何，您可以将特定字段从 Excel 导出到 Access。

Sub DAOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim db As Database, rs As Recordset, r As Long
    Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb") 
    ' open the database
    Set rs = db.OpenRecordset("TableName", dbOpenTable) 
    ' get all records in a table
    r = 3 ' the start row in the worksheet
    Do While Len(Range("A" & r).Formula) > 0 
    ' repeat until first empty cell in column A
        With rs
            .AddNew ' create a new record
            ' add values to each field in the record
            .Fields("FieldName1") = Range("A" & r).Value
            .Fields("FieldName2") = Range("B" & r).Value
            .Fields("FieldNameN") = Range("C" & r).Value
            ' add more fields if necessary...
            .Update ' stores the new record
        End With
        r = r + 1 ' next row
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub