vba - 使用用户提示的文件路径将工作簿另存为 CSV

Question

我见过很多类似性质的问题，但我遇到了一个特定的问题。这是我正在使用的代码:

filePath = GetFolderName
NewBook.Activate
ActiveWorkbook.SaveAs Filename:="Summary Book", FileFormat:=xlCSV, CreateBackup:=False

上面，GetFolderName 是一个函数，定义如下:

Public Funtion GetFolderName(Optional OpenAt As String) As String
Dim lCount As Long

GetFolderName = vbNullString

With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = OpenAt
    .Show
    For lCount = 1 To .SelectedItems.Count
        GetFolderName = .SelectedItems(lCount)
    Next lCount
End With
End Function

这个功能不是由我编写的，而是由同事编写的，所以我不完全理解它的内部工作原理。当我运行代码时，它工作正常，但无论我选择什么文件夹，它都会将文件保存在前一个文件夹中。即-如果我单击 3 个文件夹并保存，它会将文件保存在第二个文件夹中。我之前还注意到，它会将其保存为"file"。它将使用记事本等应用程序打开，而不是使用 Excel 打开的 .CSV。有人知道这里发生了什么吗？

Answer 1

您获得文件路径，但保存文件时不使用它

filePath = GetFolderName
NewBook.SaveAs Filename:= Filepath & "\Summary Book.csv", FileFormat:=xlCSV, CreateBackup:=False