Ms access 从excel导入access中的数据

我编写了以下宏，它将数据从excel文件导入access。然而，我导入的数据是波动的（有时是A1:B2，有时是A1:B5等等），所以我理想的希望是它选择所有相关的数据。所以它应该做一些类似的事情：

• 选择单元格A1
• XLtoRight
• XLDown
• 在access中复制此文件

有人知道我该如何做到这一点吗

Sub ImportExcel()

    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelWb = ExcelApp.Workbooks.Open("C:\Documents and     Settings\aa471714\Desktop\Book1.xls")
    ExcelApp.Visible = True

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "Gegevens", "C:\Documents and Settings\aa471714\Desktop\Book1.xls", True, "A1:B5"

    With ExcelApp

    .Quit

    End With

    MsgBox ("De gegevens zijn ingelezen")

End Sub

---

范围

是可选参数。尝试跳过它以导入整个工作表

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "Gegevens", "C:\Documents and Settings\aa471714\Desktop\Book1.xls", True

---

关于动态范围的一项建议如下：