Question

我写了下面的宏，它将excel文件中的数据导入访问。然而，我导入的数据会波动（有时A1：B2，有时是A1：B5等......）所以我理想的是它会选择所有相关数据。所以它应该做类似的事情：

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

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

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

Answer 1

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

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

从excel导入访问数据

1 个答案: