エクセルマクロVBA サンプルコード辞書
トップページ（目次）428.今のアクティブファイルのフルパスを取得する
＜実行前後＞
→
Sub 今のアクティブファイルのフルパスを取得する()
フォルダパス = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
MsgBox フォルダパス
End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」
Sub 今のアクティブファイルのフルパスを取得する()
フォルダパス = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
MsgBox フォルダパス
End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」