以特定文件格式将多张工作表保存在新工作簿中

Question

我试图阅读论坛上的一些相关帖子，但无法使代码工作或理解一些函数的语法。

我将尝试以简洁的方式描述我想要完成的工作：

• 我有一个包含多个工作表（Sheet1、Sheet2 ... Sheet 5）的工作簿，我想创建一个宏分配按钮来另存为新工作簿，其中仅包含工作表1、Sheet 2和Sheet3

• 文件格式应为 Microsoft Excel 97-2003 Worksheet (.xls)

• 单击宏分配按钮后，应弹出另存为对话框，允许用户选择目标以及可选的新文件名（预分配的文件名可以是“textstring123”

• 保存工作簿后，应打开工作簿供用户检查，同时最小化旧工作簿

我正在使用 Excel 2013，以防万一。

这个帖子可能看起来很粗糙，但我别无选择，只能寻求你的帮助，因为我在过去一天半的时间里一直在为此烦恼，如果没有这个，我的宏观项目的其余部分将成为浪费。提前感谢您的建议/建议/帮助。

如果需要任何其他细节或说明，请询问。

我已经添加了自己编写的代码行，但似乎无法正常工作。

Sub Macro6()
'
' Macro6 Macro
' Save as
''
Dim varResult As Variant
Sheets(Array("sheet1", "sheet2", "sheet3")).Copy
varResult = Application.GetSaveAsFilename(FileFilter:= _
             "Excel Files *.xls", FileFormat:=-57, Title:="Save File", _
            InitialFileName:=ActiveWorkbook.Path \ Textstring123.xls)
If varResult <> False Then
ActiveWorkbook.SaveAs Filename:=varResult, _
FileFormat:=xlWorkbookNormal

     Exit Sub
    End If

End Sub

Answer 1

这可以解决问题，我的过滤器有问题，所以我添加了一些错误处理！

Option Explicit

Sub Macro6()
'
' Macro6 Macro
' Save as
''
Dim tB As Excel.Workbook
Dim wB As Excel.Workbook
Dim ExportArray As Variant
Dim ShName As Variant
Dim ExportName As String

Dim varResult As Variant

Set tB = ThisWorkbook
ExportArray = Array("sheet1", "sheet2", "sheet3")

For Each ShName In ExportArray
    Debug.Print ShName
    tB.Sheets(ShName).Copy
    Set wB = ActiveWorkbook
    On Error Resume Next
        ExportName = Application.GetSaveAsFilename(tB.Path & "\Textstring123", "Excel Files *.xls", , "Save " & ShName)
        If Err.Number > 0 Then
            ExportName = Application.GetSaveAsFilename(tB.Path & "\Textstring123", , , "Save " & ShName)
        Else
            'No error, everything went well with filters
        End If
    On Error GoTo 0

    'String 8 and Boolean 11
    If VarType(ExportName) <> 8 Then
        Exit Sub
    Else
        wB.SaveAs Filename:=ExportName, FileFormat:=xlWorkbookNormal
    End If
    DoEvents
    wB.Close
Next ShName

End Sub