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