VBA講座 ブックの操作：ファイル名・フォルダ名を取得

プログラムを入力する

Option Explicit

Private Sub CommandButton1_Click()
    
    'Nameプロパティでファイル名を取得
    TextBox1.Text = "ファイル名： " & ActiveWorkbook.Name & vbCrLf
    
    'Pathプロパティでフォルダ名を取得
    TextBox1.Text = TextBox1.Text & "フォルダ： " & ActiveWorkbook.Path & vbCrLf
    
    'FullPathプロパティでフルパスを取得
    TextBox1.Text = TextBox1.Text & "フルパス： " & ActiveWorkbook.FullName & vbCrLf
    

End Sub

プログラム説明

ファイル名を取得するには、Nameプロパティを使います
フォルダ名を取得するには、Pathプロパティを使います
フルパスを取得するには、FullPathプロパティを使います

実行結果

■ 実行前
「ファイル名・Pathを取得」ボタンで実行します。


テキストボックスに、このExcelファイルのファイル名・フォルダ名・フルパスが表示されます。