複数のシートを特定のファイル形式の新しいブックに保存

Question

フォーラムでいくつかの関連記事を読んでみましたが、コードを作成したり、いくつかの関数の構文を理解できませんでした。

私はさわやかな方法で行うことがしたいのかを説明しようとします：

• 私は、複数のシート（シート1、シート2 ...シート5）とワークブックを持っていると私は作成したいですファイル形式は、Microsoft Excelのワークシート97-2003（.XLS）

• でなければなりません

• 新作帳のみを含むシート1、シート2とシート3として保存するマクロを割り当てられたボタンマクロ割り当てボタンをクリックすると、保存先ダイアログボックスがポップアップし、宛先と選択的に新しいファイル名を選択できるようになります（あらかじめ割り当てられたファイル名は "textstring123"にすることができます）

• ブックを保存した後古いブックが最小化されている間にユーザーが検査できるようにする

関連する場合は、Excel 2013を使用しています。

投稿が粗末に見えるかもしれませんが、私は最後の1日半の間に私の頭を壊しており、これがなければ私のマクロプロジェクトの残りは無駄になります。事前にありがとう、提案/助言/助けてくれてありがとう。

その他の詳細や説明が必要な場合は、お尋ねください。

私が作ったコード行を追加しましたが、正しく動作しないようです。

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