我正在使用 Access 宏在 Excel 中打開一個 csv 檔案。我這樣做是為了獲取檔案名，然后使用 TransferText 函式將檔案匯入到 Access 表中。
我想指定一個默認路徑來消除最終用戶的一些導航。我已經嘗試過 ChDrive 和 ChDir，但 GetOpenFileName 仍然將我帶到網路上的個人驅動器。
下面是我正在使用的代碼。任何建議或意見將不勝感激/提前致謝.....
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
ChDrive "V:"
ChDir "V:\Accounting\Projects\In Work\Project Database\"
RawData = ""
RawData = ExcelApp.Application.GetOpenFilename
Set ExcelApp = Nothing
DoCmd.TransferText acImportDelim, , "tbl_Stage", RawData, True
uj5u.com熱心網友回復：
您需要更改 Excel 物件的驅動器和檔案夾。目前，您正在更改 Access 物件的驅動器和檔案夾。
Excelapp.DefaultFilePath = "V:\Accounting\Projects\In Work\Project Database\"
除非您使用的是非常舊版本的 Excel，否則您可以使用 FileDialog 物件進行更多控制：
Set FD = Excelapp.FileDialog(msoFileDialogFilePicker)
With FD
.InitialFileName = ActiveDocument.Path
.Show
End With
exFile = FD.SelectedItems(1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/359378.html