VBAでブックパスの取得コード A.xlsmブックのファイルパスをA1セル表示させるコードを 教えてください。

補足

Dim FilePath 'カレントディレクトリを設定します。 With CreateObject("WScript.Shell") .CurrentDirectory = ThisWorkbook.Path End With 'ファイルを指定するダイアログを表示します FilePath = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx?") '設定しない場合は、終了します If FilePath = False Then Exit Sub ' Workbooks.Open FilePath ファイル開くのではなく、 今実行中のファイルパスの取得コードです。 あくまでも、指定されたファイルのパスの取得です。

Visual Basic31閲覧

ベストアンサー

0