|
いつもお世話になります
シートをコピーして別のブックに保存したいのですが、上書き保存ではなくてシートを追加していきたい感じです
ブック名がTextBox7.Value + "邸 FAX送信のご案内"になりまして
シート名がSheets(ComboBox2.Value)でコンボボックスには11種類の項目が格納されています(今後増えるかもしれません)
この11種類のシートを一つのブックに追加して保存できますでしょうか
よろしくお願い申し上げます
Private Sub CommandButton3_Click()
Sheets("FAX送信のご案内").Select
Dim 既定ファイル名 As String
Dim 保存ファイル名 As Variant
既定ファイル名 = TextBox7.Value + "邸 FAX送信のご案内"
保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名, "Excel ブック(*.xls),*.xls")
If 保存ファイル名 = False Then
MsgBox "保存は中止されました。"
Else
With ThisWorkbook.ActiveSheet
Workbooks.Add Template:=xlWBATWorksheet
.Cells.Copy ActiveSheet.Range("A1")
ActiveSheet.Name = ComboBox2.Value
Sheets(ComboBox2.Value).Move after:=Sheets(Sheets.Count)
ActiveWorkbook.SaveAs 保存ファイル名, xlNormal
ActiveWorkbook.Close False
End With
Sheets("FAX送信のご案内").Select
Range("A1").Select
MsgBox "FAX送信のご案内を作成しました。"
End If
End Sub
|
|