访问数据项目在VBA中导入CSV文件

Posted 2021-05-04

我不时地遇到一个问题，我的一个同事已经开发出一个旧系统。他们倾向于拥有数千行代码来执行简单的操作，例如导入csv文件。

目前vba流程是：

• 打开excel应用程序
• 创建新工作表
• 填充csv文件
• 进入excel将标题名称添加到文件中
• 将工作表另存为新的Excel文件
• 将文件导入访问数据项目sql表。
• 处理数据

我想用它做的是：

• 将csv导入表中（与获取外部数据函数一样）
• 处理数据

我有一个快速搜索，看不到任何简单的方法只是将文件吸入表中。

任何帮助，将不胜感激。

谢谢

保罗

答案

有一种更简单的方法来导入CSV！您可以使用Microsoft Text Odbc驱动程序。

Sub Import()
   Dim conn as new ADODB.Connection
   Dim rs as new ADODB.Recordset
   Dim f as ADODB.field

   conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=c:	emp;"
   rs.Open "SELECT * FROM [test.txt]", conn, adOpenStatic, adLockReadOnly, adCmdText

   While Not rs.EOF
      For Each f In rs.Fields
         Debug.Print f.name & "=" & f.Value
      Next
   Wend
End Sub

您可以从Select更改为INSERT INTO并与SELECT结合使用。

您可以在注册表中执行一些设置，在密钥\HKEY_LOCAL_MACHINESOFTWAREMicrosoftJet4.0EnginesText中：

格式：TabDelimited，CSVDelimited，Delimited（X）其中X = some char

FirstRowHasNames：0,1

性格：OM，Anz

另一答案

在许多情况下，导入CSV的最简单方法是使用TransferText方法。

有关详细信息，请参阅此MSDN链接：TransferText Method [Access 2003 VBA Language Reference]

下面是一个示例TransferText命令，用于将C： SomeFolder DataFile.csv导入名为tblImport的表中。最后一个参数HasFieldNames为False，表示CSV文件不包含字段名称。

DoCmd.TransferText acImportDelim, "YourCustomSpecificationName", _
    "tblImport", "C:SomeFolderDataFile.csv", False

SpecificationName参数是可选的。但是，通过创建自己的导入规范并在TransferText命令中包含其名称，通常可以获得更好的结果。该规范允许您识别要将数据加载到哪些表字段，调整数据类型以及许多其他选项。手动导入数据文件时，可以创建自己的导入规范...选择自定义导入选项，并将这些选项保存为命名规范。 （在“导入向导”对话框中查找“高级”按钮。）

另一答案

我找到了一种将整个CSV导入访问的好方法。我的任务是将三个CSV导入到一个数据库的三个表中。这必须完成大约100次，每个CSV的范围从200MB到500MB。由于每个数据库的三个表模式相同，我花了一些时间试图找到创建脚本的最佳方法来为我导入所有这些。我第一次用

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, p1, _
Application.CurrentProject.Path & "Page1\_8_lift_base_" & dbName & ".csv",_
True, sh.Name & "!"

这适用于大多数情况，除了偶尔打开CSV时会出现“只读”提示，并在导入关闭之前暂停导入。此外，300MB CSV需要大约8到10分钟。对于100个DB，这是不可接受的。

我最终做的是创建自己的XML导入导出规范。

Sub make_import_spec(filePath As String, tableName As String, pageNum As Long)
'By Ryan Griffin
Dim name_of_spec As String
name_of_spec = "imspec" & tableName
Dim xml As String
'This xml string contains the specifications the use for that table
xml = ""
xml = xml & "<?xml version=""1.0"" encoding=""utf-8"" ?>" & vbCrLf
xml = xml & "<ImportExportSpecification Path=" & Chr(34) & filePath & Chr(34) & " xmlns=""urn:www.microsoft.com/office/access/imexspec"">" & vbCrLf
xml = xml & "   <ImportText TextFormat=""Delimited"" FirstRowHasNames=""true"" FieldDelimiter="","" CodePage=""437"" Destination=" & Chr(34) & tableName & Chr(34) & " >" & vbCrLf
xml = xml & "      <DateFormat DateOrder=""MDY"" DateDelimiter=""/"" TimeDelimiter="":"" FourYearDates=""true"" DatesLeadingZeros=""false"" />" & vbCrLf
xml = xml & "      <NumberFormat DecimalSymbol=""."" />" & vbCrLf
xml = xml & "           <Columns PrimaryKey=""{none}"">" & vbCrLf
xml = xml & "                    <Column Name=""Col1"" FieldName=""field1"" Indexed=""YESDUPLICATES"" SkipColumn=""false"" DataType=""Text"" Width=""12"" />" & vbCrLf
xml = xml & "                    <Column Name=""Col2"" FieldName=""field2"" Indexed=""NO"" SkipColumn=""false"" DataType=""Text"" Width=""16"" />" & vbCrLf
xml = xml & "                    <Column Name=""Col3"" FieldName=""field3"" Indexed=""YESDUPLICATES"" SkipColumn=""false"" DataType=""Text"" Width=""24"" />" & vbCrLf
xml = xml & "                    <Column Name=""Col4"" FieldName=""field4"" Indexed=""NO"" SkipColumn=""false"" DataType=""Text"" Width=""16"" />" & vbCrLf
xml = xml & "         </Columns>" & vbCrLf
xml = xml & "     </ImportText>" & vbCrLf
xml = xml & "</ImportExportSpecification>"
'By Ryan Griffin
'Now you can add the specification to the project
CurrentProject.ImportExportSpecifications.Add name_of_spec, xml
' This will run your specification and import you csv file
DoCmd.RunSavedImportExport name_of_spec
End Sub

在使用此设置运行代码后，我能够在一分钟内（~62秒）导入一个300MB的文件，并且能够确保每个列都具有适当的dataType和正确的索引（没有额外的步骤）。因此，通过这种方法，我可以实现速度增加7到9倍之间的某些速度，并且很容易知道数据是正确的。

*注意：对于此功能，我提供CSV文件路径（包括name.csv），所需的表名和pagenum，这是表引用。 （我用它来区分表。在xml字符串中，我有一个基于该pageNum的if语句，如果pageNum为1，则将这些列添加到字符串中）。

只要csv文件不包含“。”，这将对您的所有CSV导入要求都能很好地工作。 （期间）名称[除了扩展名]。为此，您需要使用Scripting FileSystemObject来获取文件，并在导入之前更改其名称以使用下划线而不是句点。

我知道这可能有点长篇大论，但在这方面很少有资源可靠和有用。花了我差不多一天来减少选项并理清VBA的混乱局面。我希望这可以帮助那些遇到同样麻烦的人。

另一答案

BULK INSERT通常更快，它可以在X64机器上运行。上面提到的文本驱动程序可能在某些X64环境中不起作用。

我建议不要使用格式文件，如果没有它，它会更简单。

http://msdn.microsoft.com/en-us/library/ms188365.aspx

BULK INSERT AdventureWorks2008R2.Sales.SalesOrderDetail FROM'f： orders lineitem.tbl'WITH（FIELDTERMINATOR ='|'，ROWTERMINATOR ='|| n'）