vba 新建並保存工作簿

1、立即窗口顯示路徑

msgbox thisworkbook.fullname

 

 

 2、新建工作簿並保存

Sub test() Rem============== 新建保存工作簿
    Dim wb As Workbook Dim ws As Worksheet Dim path, name As String
    
    Set wb = Workbooks.Add  '新建工作簿
    Set ws = wb.Worksheets(1) With ws .name = "信息表"　　　　'修改工作表的標簽名稱
        Rem========== 設置表頭
        .Range("B1:E1") = Array("id", "name", "sex", "birthday") End With path = ThisWorkbook.path name = "員工信息表.xlsx" wb.SaveAs path & "\" & name  '保存工作簿 wb.Close End Sub