使用用户提示的文件路径将工作簿另存为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

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

Answer 1

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

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