ms-access - 将csv文件导入access的VBA程序

Question

我需要 VBA 中的程序将数据从 csv excel 文件导入到 access，而不需要一些记录，如页眉和页脚。例如，，，我在 csv 文件中有一个表，其中包含一些不属于表日期的句子

<小时/>

A1 这是一些句子标题......
A2标题
A3......
A7 数据数据数据数据数据数据
A8行数据数据数据数据数据数据..........
A256 数据数据数据数据
A257 这是一些句子

<小时/>

My Acess 应仅包含 A7 到 A256 之间的行。有谁知道 VBA 中的程序或其他内容来解决我的问题吗？

非常感谢

<小时/>

编辑

Answer 1

最简单的方法是将 CSV 文件作为表链接到 Access 数据库中。然后，您可以像处理普通 Access 表一样处理该表，例如，基于该表创建适当的查询，该查询将准确返回您想要的内容。

您可以手动链接表格，也可以像这样使用 VBA 链接表格

DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", _
    FileName:="C:\MyData.csv", HasFieldNames:=true

<小时/>

更新

Dim db As DAO.Database

' Re-link the CSV Table
Set db = CurrentDb
On Error Resume Next:   db.TableDefs.Delete "tblImport":   On Error GoTo 0
db.TableDefs.Refresh
DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", _
    FileName:="C:\MyData.csv", HasFieldNames:=true
db.TableDefs.Refresh

' Perform the import
db.Execute "INSERT INTO someTable SELECT col1, col2, ... FROM tblImport " _
   & "WHERE NOT F1 IN ('A1', 'A2', 'A3')"
db.Close:   Set db = Nothing