我需要捕获文件名和文件路径的位置

Question

我需要捕获Project导出到Excel的文件名和文件路径，

我使用代码;

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"