Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9472 / 76732 ←次へ | 前へ→

【72822】シートをコピーして別のブックに保存
質問  ume  - 12/9/22(土) 9:16 -

引用なし
パスワード
   いつもお世話になります
シートをコピーして別のブックに保存したいのですが、上書き保存ではなくてシートを追加していきたい感じです

ブック名が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
3 hits

【72822】シートをコピーして別のブックに保存 ume 12/9/22(土) 9:16 質問
【72834】Re:シートをコピーして別のブックに保存 12/9/24(月) 7:08 発言
【72866】Re:シートをコピーして別のブックに保存 ume 12/9/26(水) 9:40 質問

9472 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free