用于从单元格中获取文件名并提示保存文件的位置的宏

Question

我正在寻找一个宏，它在运行时会从单元格中获取值并使用该名称保存它，并提示输入保存文件的路径。以下是我的尝试：

Sub SelectFolder()
    Dim diaFolder As FileDialog

    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Show
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:= _
    diaFolder & ActiveSheet.[d2] & ".xlsx", FileFormat:= _
    xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


    Set diaFolder = Nothing
End Sub

在此值是从单元格中获取的，并且会提示询问文件夹以保存文件。但该文件不存储在文件夹中，而是存储在单独的文件夹中。我想这里需要做一个小修正。

同样在保存时，它会警告我可能存在 97-2003 文件类型的兼容性问题。我想这行有一些需要纠正的地方：

diaFolder & ActiveSheet.[d2] & ".xlsx", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False 

但不知道要更改什么。我希望文件为 .xlsx 格式，并且与所有设备兼容。

谁能帮我做这两个？

Answer 1

这是一个工作代码：

Sub SelectFolder()
    Dim diaFolder As FileDialog
    Dim fileName, filePath As String

    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)

    diaFolder.AllowMultiSelect = False
    diaFolder.Show
    ActiveSheet.Copy

    fileName = ActiveSheet.Range("D2").Value

    'You need to use diaFolder.SelectedItems(1) and not just diaFolder
    filePath = diaFolder.SelectedItems(1) & "\" & fileName & ".xlsx"

    ActiveWorkbook.SaveAs fileName:= _
        filePath, FileFormat:=xlWorkbookNormal, Password:="", WriteResPassword:="" _
        , ReadOnlyRecommended:=False, CreateBackup:=False

    Set diaFolder = Nothing
End Sub

注意：
我已将 FileFormat 从 Excel8 更改为 xlWorkbookNormal

代码中的问题：
1. FileFormat Excel 8 表示 97-2003 format in Excel 2007-2013, xls，您将其保存为 .xlsx
2. 您只使用 diaFolder 而不是 diaFolder.SelectedItems(1)