ACCESS 自動匯入資料

1 設計表單
使用 OPEN()
x = Day(Now())

DoCmd.TransferSpreadsheet acImport, 8, "new" & x, "c:\" & x & ".xls", True, ""
2 這樣就可以了