【マクロ】フォルダからエクセルファイルの名前を取出すためには

Question

表題の事を実行し、エクセルのAセルに
エクセルのファイル名を書きたいです

Aセルを書くエクセルは以下のフォルダ以外にある
任意のエクセルです。何でも良いです。

ご存じの方いましたら、教えて下さい


※フォルダにエクセルファイルは１つしかない
※フォルダにエクセル以外のファイルはある


【フォルダの名前】
C:\Users\user\Documents\Aフォルダ


【パスの名前】
C:\Users\user\Documents\Aフォルダ\a.xlsx

zongai · Accepted Answer

コメント拝見しました。

【Aセルに入力して欲しい名前】
C:\Users\user\Documents\Aフォルダ\a.xlsx

これを満たすのであれば、先の回答のA1セルに書き込む部分を
以下のように書き換えてください。

Range("A1").Value = myFile

↓

Range("A1").Value = myPath & "\" & myFile

d-q-t-p · Answer

［データ］→［データの取得］→［ファイルから］→［フォルダーから］
でフォルダコネクタを使用して ファイル情報を読み込めます。

［データの変換］でエディタを開いて ファイル名のところを
右クリック［ドリルダウン］

すればいいでしょう。

amerikaumare · Answer

ChatGPTに回答させましょう

以下は、VBAを使用してフォルダからエクセルファイル名を取得し、それを任意のエクセルファイルのAセルに書き込む方法の例です。

Sub GetExcelFileName()
    Dim FolderPath As String
    Dim FileName As String
    Dim ExcelApp As Object
    Dim TargetWorkbook As Workbook
    
    ' フォルダのパスを指定
    FolderPath = "C:\Users\user\Documents\Aフォルダ\"
    
    ' フォルダ内のエクセルファイル名を取得
    FileName = Dir(FolderPath & "*.xlsx")
    
    ' エクセルアプリケーションを作成
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 任意のエクセルファイルを開く
    Set TargetWorkbook = ExcelApp.Workbooks.Open("パス\任意のエクセルファイル.xlsx")
    
    ' Aセルにエクセルファイル名を書き込む
    TargetWorkbook.Sheets(1).Range("A1").Value = FileName
    
    ' ブックを保存
    TargetWorkbook.Save
    
    ' ブックを閉じる
    TargetWorkbook.Close
    
    ' エクセルアプリケーションを終了
    ExcelApp.Quit
    
    ' オブジェクトの解放
    Set ExcelApp = Nothing
    Set TargetWorkbook = Nothing
End Sub
このスクリプトでは、フォルダパスと任意のエクセルファイルのパスを指定する必要があります。また、フォルダ内に複数のエクセルファイルがある場合は、最初のファイルのみが取得されます。

fujillin · Answer

Dir() 関数で、ワイルドカードを使うのが簡単。

https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/dir-function

zongai · Answer

AIに作らせたものです。
フォルダ内のファイルの有無のチェックも入ってますが、不要なら末尾に「★」のついた行を削除してください。

Sub GetFileName()
　　Dim myPath As String
　　Dim myFile As String
　　
　　' フォルダのパスを設定
　　myPath = "C:\Users\user\Documents\Aフォルダ"
　　
　　' 指定されたパスのファイルを取得
　　myFile = Dir(myPath & "\*.*")
　　
　　' ファイルが存在する場合は、A1セルにファイル名を書き込む
　　If myFile <> "" Then'★
　　　　Range("A1").Value = myFile
　　Else'★
　　　　MsgBox "ファイルが見つかりませんでした。"'★
　　End If'★
End Sub

angkor_h · Answer

フォルダーの管理ソフトを利用すると、
中にあるファイルの全てをcsvファイルで出力してくれます。
そこから、拡張子で整理すれば纏まって取り出せます。
フォルダーの管理ソフトはフリーで沢山あるので、お試しください。

【マクロ】フォルダからエクセルファイルの名前を取出すためには

コメント拝見しました。

［データ］→［データの取得］→［ファイルから］→［フォルダーから］

ChatGPTに回答させましょう

Dir() 関数で、ワイルドカードを使うのが簡単。

AIに作らせたものです。

フォルダーの管理ソフトを利用すると、

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ChatGPTに回答させましょう　