おつかれさまです。

EXCEL超初心者マクロ(S17)新規BOOKへシートコピー。

2019年8月28日

最近、韓国とNHKネタにハマっててEXCELの方に手を付けていませんでした。
久しぶりに、頼まれたネタをUP致します。

EXCELのシートを新規EXCELにコピーして保存するマクロです。

SAMPLE17.zip
※ウイルスチェックしてください(習慣付けましょう)

STARTシートのカメラのアイコンをクリックしてください。
単純コピーです。応用すると連続でできたりもします。
DATAシートを新規EXCELにコピーして保存します。

    Dim OUTPUT_BOOK As String
    Dim INPUT_BOOK As String
    
    MSG_FLG = MsgBox(" COPY OK? ", vbYesNo)
    If MSG_FLG = vbNo Then
       Exit Sub
    End If
    
'### INPUT BOOK名、シート名セット
    
    Sheets("DATA").Select
    INPUT_BOOK = ThisWorkbook.Name
    
'### OUTPUTシート名セット
    OUTPUT_BOOK = Worksheets("MKANRI").Range("B1") & "\HON_" & CStr(Format(Date, "yyyymmdd")) & CStr(Format(Time, "hhmmss")) & ".xlsx"
     
'### COPY
    Worksheets("DATA").Select
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=OUTPUT_BOOK, FileFormat:=xlOpenXMLWorkbook
    ActiveWindow.Close savechanges:=True
    
'### 保存メッセージスキップ
    Application.DisplayAlerts = True
    
    MsgBox (" COPY終了 ")

がんばりましょう。