我需要捕获的地方的文件名和文件path

我需要捕获项目导出到Excel的文件名和文件path，

我使用的代码;

FileSaveAs FormatID:="MSProject.ACE", Map:="Map 1" 

但不能解决如何捕获用户将文件导出到哪里（excel版本）

谢谢

罗南

Answer 1

尝试使用您自己的对话框，然后保存该文件：

 Dim SavePath As Variant With Application.FileDialog(msoFileDialogSaveAs) .Title = "Please select location to save file" If .Show = True Then SavePath = .SelectedItems(1) Else SavePath = False End If End With FileSaveAs Name:= SavePath, FormatID:="MSProject.ACE", Map:="Map 1"