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

表題の事を実行し、エクセルのAセルに
エクセルのファイル名を書きたいです

Aセルを書くエクセルは以下のフォルダ以外にある
任意のエクセルです。何でも良いです。

ご存じの方いましたら、教えて下さい


※フォルダにエクセルファイルは１つしかない
※フォルダにエクセル以外のファイルはある


【フォルダの名前】
C:\Users\user\Documents\Aフォルダ


【パスの名前】
C:\Users\user\Documents\Aフォルダ\a.xlsx

No.6 回答者： d-q-t-p 回答日時： 2024/05/01 15:03

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

でフォルダコネクタを使用して ファイル情報を読み込めます。

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

すればいいでしょう。

No.5 ベストアンサー 回答者： zongai 回答日時： 2024/05/01 08:30

コメント拝見しました。

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

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

Range("A1").Value = myFile

　　　↓

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

No.4 回答者： amerikaumare 回答日時： 2024/04/30 16:59

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
このスクリプトでは、フォルダパスと任意のエクセルファイルのパスを指定する必要があります。また、フォルダ内に複数のエクセルファイルがある場合は、最初のファイルのみが取得されます。

この回答へのお礼

参考になりました。ありがとうございます。

お礼日時：2024/05/01 07:22

No.3 回答者： fujillin 回答日時： 2024/04/30 16:41

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

https://learn.microsoft.com/ja-jp/office/vba/lan …

この回答へのお礼

いつも、ご指導ありがとうございます。

お礼日時：2024/05/01 07:22

No.2 回答者： zongai 回答日時： 2024/04/30 16:35

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

この回答へのお礼

ご指導、ありがとうございます。
Aセルｎファイル名前は、記入されました。

ファイルパスではなく、ファイル名のみ記入でした。
９９％は希望通りでございました。

もし、ご存じでしたら、ご指導お願いします


【Aセルに入力された名前】
a.xlsx

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

お礼日時：2024/05/01 07:00

No.1 回答者： angkor_h 回答日時： 2024/04/30 16:30

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

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

この回答へのお礼

ご指導ありがとうございます。

お礼日時：2024/05/01 07:22