excel - 导入 Access 时文本文件规范不存在

Question

我正在尝试使用以下代码将分号分隔的 .csv 文件导入到 Access 数据库中。我已经建立了一个名为“Import-FACTS”的导入规范。并且 VBA 可以看到规范(通过将 OLEacc.CurrentProject.ImportExportSpecifications(0) 放入监 window 口。

Sub ImportFacts()

Dim OLEacc As Access.Application

Set OLEacc = GetObject("", "Access.Application")

OLEacc.OpenCurrentDatabase (ThisWorkbook.Path & "\" & "LargeData.accdb")

OLEacc.DoCmd.TransferText TransferType:=acImportDelim, _ 
   SpecificationName:="Import-FACTS",_
   TableName:="Facts",_
   Filename:=ThisWorkbook.Path & "\Facts.csv",_
   HasFieldNames:=False

End Sub

但是我得到了调试消息:

Run-time error '3625' The text file specification "Import-Facts" does not exist You cannot import export or link using the specification.

有什么想法吗？

Answer 1

进口注意事项

文本文件规范存在问题，因为名称可能与您检查保存的导入时显示的名称不同。

要知道真实姓名，请运行以下 SQL:

SELECT MSysIMEXSpecs.SpecName, 
       MSysIMEXColumns.FieldName, 
       MSysIMEXColumns.Start, 
       MSysIMEXColumns.Width, 
       MSysIMEXColumns.SkipColumn

FROM MSysIMEXColumns INNER JOIN 
     MSysIMEXSpecs ON MSysIMEXColumns.SpecID = MSysIMEXSpecs.SpecID

ORDER BY MSysIMEXSpecs.SpecName, 
         MSysIMEXColumns.Start, 
         MSysIMEXColumns.Width;

SpecName 字段包含您要查找的正确名称!