從Excel中導入數據訪問

我寫了下面的宏，它將數據從excel文件導入訪問。然而，我輸入的數據會波動（有時A1：B2，有時A1：B5等），所以理想情況下我想要的是選擇所有相關數據。因此，它應該這樣做：從Excel中導入數據訪問

選擇單元格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

來源

2014-02-10 user181796

一個建議重新動態範圍，這裏涵蓋：http://stackoverflow.com/questions/15930832/import-dynamic-and-static-ranges-from-excel-in-to-ms-access-that -do-沒有啓動，在 –

Range是一個可選參數。嘗試跳過它來導入整個工作表。

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

來源

2014-02-10 17:48:46 pteranodon

從Excel中導入數據訪問

回答

相關問題