初始表:
2 填写信息
代码:
Sub wb_info()
Range("C3") = ThisWorkbook.Name
Range("C4") = ThisWorkbook.Path
Range("C5") = ThisWorkbook.FullName
End Sub
结果:
初始表:
2 填写信息
代码:
Sub wb_info()
Range("C3") = ThisWorkbook.Name
Range("C4") = ThisWorkbook.Path
Range("C5") = ThisWorkbook.FullName
End Sub
结果: