vba 填写 Workbok 名片

初始表：

 

 2 填写信息

代码：

Sub wb_info()
    Range("C3") = ThisWorkbook.Name
    Range("C4") = ThisWorkbook.Path
    Range("C5") = ThisWorkbook.FullName
End Sub

结果：