23、[VBA入門からノート放棄まで]新規ワークブック

Sub      () 
    Workbooks.Add'     
 '          ,  \         ：  .xlsx
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba  \15.     \  .xlsx"  
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba  \15.     \  .xlsx"
    Workbooks("  .xlsx").Activate '         
    '            
End Sub

Sub      1() 
    Dim wkb1 As Workbook
    Dim wkb2 As Workbook
    
    Set wkb1 = Workbooks.Add  '     
    Set wkb2 = Workbooks.Add
    wkb1.Activate   '     
    wkb2.SaveAs Filename:="C:\Users\Administrator\Desktop\vba  \15.     \  .xlsx"  '           
End Sub