excel - 如何浏览保存目录？

Question

通过单击 Excel 中的按钮，用户可以将特定工作表导出为具有动态文件名的 csv，并将 csv 保存在预先确定的目录中。

用户是否可以通过浏览窗口来选择保存目录，而不是保存到预定目录？

Sub Export()
Dim MyPath As String
Dim MyFileName As String
MyPath = "C:\importtest"

MyFileName = "MR_Update_" & Sheets("Monthly Review").Range("D3").Value & "_" & Format(Date, "ddmmyyyy")

If Not Right(MyPath, 1) = "\" Then MyPath = MyPath & "\"
If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"

Sheets("Export Data").Copy

With ActiveWorkbook

    .SaveAs Filename:= _
      MyPath & MyFileName, _
      FileFormat:=xlCSV, _
      CreateBackup:=False

    .Close False

End With
End Sub

Answer 1

Excel 有一个内置的 FileSave Dialog 。它称为.GetSaveAsFilename。使用它。

语法

表达式.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

使用

Dim fileSaveName As Variant

fileSaveName = Application.GetSaveAsFilename( _
                                    fileFilter:="Excel Files (*.csv), *.csv")
If fileSaveName <> False Then
    '
    '~~> Your code to save the file here
    '
End If