'Excel(エクセル)VBA でブック・ファイルのパス（アドレス）取得
Private
Sub
Workbook_Open
()
With
Sheets
(
topSname
)
.
Select
'このブック・ファイルのパス
.
Range
(
"C4"
).
Value
=
ActiveWorkbook.Path
'アクティブブック・開いているファイルのパス
.
Range
(
"C4"
).
Value
=
ThisWorkbook.Path
End
With
End
Sub