从 Excel 导入访问中的数据

Question

我编写了以下宏，该宏将数据从 excel 文件导入到 access 中。但是，我导入的数据会波动（有时是 A1：B2，有时是 A1：B5 等），所以我理想情况下想要的是它选择所有相关数据。所以它应该执行以下操作：

• 选择单元格 A1
• XLtoRight
• XLDown
• 在访问中复制此内容...

有人知道我如何实现这一目标吗？

Sub ImportExcel()
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelWb = ExcelApp.Workbooks.Open("C:Documents and     Settingsaa471714DesktopBook1.xls")
    ExcelApp.Visible = True
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "Gegevens", "C:Documents and Settingsaa471714DesktopBook1.xls", True, "A1:B5"
    With ExcelApp
    .Quit
    End With
    MsgBox ("De gegevens zijn ingelezen")
End Sub

Answer 1

Range是一个

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "Gegevens", "C:Documents and Settingsaa471714DesktopBook1.xls", True