Vba 运行时错误'；438'；使用步骤将图纸1导出为CSV时

由此，我使用以下代码将Sheet1导出为CSV文件，并使用浏览器文件进行保存：

这里是我使用的函数：

Sub ExportCSV()

Dim MyPath As String
Dim MyFileName As String

MyFileName = "Base_donnees" & "_" & Format(Date, "ddmmyyyy")

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

Sheets("Sheet1").Copy

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = "" '<~~ The start folder path for the file picker.
    If .Show <> -1 Then GoTo NextCode
    MyPath = .SelectedItems(1) & "\"
End With

NextCode:

With ActiveWorkbook
    .SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close False
End With

End Sub

Sub ExportCSV（）
将MyPath设置为字符串
将MyFileName设置为字符串
MyFileName=“Base\u donnees”和“\u”格式（日期，“ddmmyyyy”）
如果不正确（MyFileName，4）=“.csv”，则MyFileName=MyFileName&“.csv”
活页（“活页1”）。复印件
使用Application.FileDialog（msoFileDialogFolderPicker）
.Title=“选择一个文件夹”
.AllowMultiSelect=False
.InitialFileName=“”这篇文章我的帮助：这里是如何使用Mac VBA选择文件夹：选择Mac上的文件夹，请参阅