为 Excel GetOpenFileName 设置 Access 的默认文件路径

Question

我正在 Excel 中使用 Access 宏打开一个 csv 文件。我这样做是为了获取文件名，然后使用 TransferText 函数将文件导入到 Access table.

我想指定一个默认路径来消除最终用户的一些导航。我已经尝试过 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

Answer 1

您需要更改 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)

为 Excel GetOpenFileName 设置 Access 的默认文件路径

Setting default file path from Access for Excel GetOpenFileName

excel

ms-access

vba