获取访问vba中的excel文件的行的结尾

我使用以下方式将excel文件导入到使用vba（dao）的访问中：

Set db = CurrentDb query = "SELECT DISTINCT * INTO MyTable" _ & " FROM [Excel 12.0 Xml;HDR=Yes;Database=" & filePath & "].[Sheet1$];" db.Execute (query) 

[Sheet1$]是这里的关键字。 我的excel表头从第3行开始。我想要做一些类似于[Sheet1$A3:Lastline] 。

有没有简单的方法来获取最后一行 ？ 或者我真的需要创build一个VBA Excel对象，打开文件并计数？

或者，我可以更改标题开始？ 例如，通过使用自定义导入scheme呢？

提前致谢。

Answer 1

考虑使用logging集的计数查询并将结果连接到生成表查询中：

 Dim db As DAO.Database Dim rst As DAO.Recordset Dim query As String Set db = CurrentDb Set rst = db.OpenRecordset("SELECT Count(*) AS RowCount" _ & " FROM [Excel 12.0 Xml;HDR=No;Database=" & filePath & "].[Sheet1$]") query = "SELECT DISTINCT * INTO MyTable" _ & " FROM [Excel 12.0 Xml;HDR=Yes;" _ & " Database=" & filePath & "].[Sheet1$A3:A" & rst!RowCount & "];" db.Execute (query) rst.Close Set rst= Nothing Set db = Nothing