Ms access 将CSV文件导入MS Access 2010表格

我是VBA编码的新手，我正在考虑在ms access中创建一个导入UI，以便用户导入CSV文件并插入到新的临时表中，从临时表中可以使用SQL查询将数据拆分为不同的表，最后删除临时表

根据代码，我创建了导入按钮并对文件选择器进行了编码。但是，我不知道如何编写代码将其导入到新的临时表中，然后执行SQL查询

感谢所有的帮助

Sub ImportButton_Click()

Dim strfilename As String

With Application.FileDialog(msoFileDialogFilePicker)

    .Title = "Select the CSV file to import"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "CSV Files", "*.csv", 1
    .Filters.Add "All Files", "*.*", 2
    If .Show = -1 Then
        strfilename = .SelectedItems(1)
        DoCmd.TransferText TransferType:=acImportDelim, _
            TableName:="Import_Table", FileName:=strfilename
        Else
        Exit Sub
    End If
End With

End Sub

试一试

将[conditions]替换为您的条件，将myTable替换为您要创建的表的名称

您可能会想要设置

DoCmd.SetWarnings False

首先，避免用户看到记录提交提示。但之后应该将其恢复为真

---

或者，如果您想使用查询设计器，可以创建一些Access“生成表”查询（在功能区的“设计”选项卡上更改查询类型）。

看看这篇文章，它应该会对您有所帮助

基本上，您可以为文本文件创建一些模式，然后使用SQL查询它，就像它是数据库中的表一样

从那里，您可以使用VBA中的记录集或

INSERT

查询轻松地浏览数据，以创建或填充其他表

DoCmd.SetWarnings False