sdfgsdfgsdfg

Excel VBA
シートを別ブックとして保存する
Private Sub CB_koudou_book_save_Click() 'シート名作成 Dim sheet_name As String sheet_name = Format(Date, "yyyymmdd") + "管理表" '既定のブック名作成 Dim book_name As Variant book_name = Format(Date, "yyyymmdd") + "管理表.xlsx" 'ファイル名指定 Dim FileName As Variant FileName = Application.GetSaveAsFilename(InitialFileName:=book_name, FileFilter:="Excel ブック, *.xlsx") If FileName = False Then Exit Sub End If Workbooks.Add Sheet2.Copy Before:=Worksheets(1) Sheets(1).Name = sheet_name Application.DisplayAlerts = False Sheets(2).Delete Application.DisplayAlerts = True ActiveWorkbook.SaveAs FileName ActiveWorkbook.Close End Sub