初始文件名未显示在Saveas对话框中

Question

我正在尝试使用getsaveasfilename方法显示一个文件名建议，但该初始filename变量未显示。

Public Sub SaveWorkBooks()
Dim strWbName As String
Dim strFileName As String
        For Each w In Workbooks
            strWbName = Trim(w.Name)
            If w.Name <> ThisWorkbook.Name Then
                strFileName = Application.GetSaveAsFilename(strWbName, fileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx")
                If strFileName <> False Then
                    w.SaveAs Filename:=strFileName
                End If
            End If
        Next w
End Sub

我希望strwbname的值显示为"保存为对话框"的文本框中的建议文件名。但是现在没有任何建议。

我在做什么错？

Answer 1

将Microsoft脚本运行时添加到您的引用(额外/参考(，然后像这样修改您的代码

Public Sub SaveWorkBooks()
Dim strWbName As String
Dim strFileName As String
Dim fso As New FileSystemObject
        For Each w In Workbooks
            'strWbName = Trim(w.Name)
            strWbName = fso.GetBaseName(Trim(w.Name))
            If w.Name <> ThisWorkbook.Name Then
                strFileName = Application.GetSaveAsFilename(strWbName, fileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx")
                If strFileName <> False Then
                    w.SaveAs Filename:=strFileName
                End If
            End If
        Next w
End Sub