将csv文件导入access的VBA程序

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

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

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

多谢

Edit

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

您可以手动或使用 VBA 链接该表，如下所示

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

Update

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