Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6236 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46441】ファイル名を取得したいです くま 07/2/3(土) 19:40 質問[未読]
【46442】Re:ファイル名を取得したいです ぱっせんじゃー 07/2/3(土) 19:55 発言[未読]
【46444】Re:ファイル名を取得したいです くま 07/2/3(土) 20:08 お礼[未読]
【46443】Re:ファイル名を取得したいです ぱっせんじゃー 07/2/3(土) 19:59 発言[未読]
【46441】ファイル名を取得したいです
質問  くま  - 07/2/3(土) 19:40 -
引用なし
パスワード
   初めて投稿致します。
EXCEL VBAはかなり初心者です。

指定したフォルダ内にあるファイル（Excelファイル）の
ファイル名を取得したいのですが、やり方が分かりません。
どなたか教えて下さい。

ちなみに、フォルダ内には、Excelファイルは1つしかありません。

宜しくお願い致します。
【46442】Re:ファイル名を取得したいです
発言  ぱっせんじゃー  - 07/2/3(土) 19:55 -
引用なし
パスワード
   Dir関数でフォルダ内のファイル一覧を取得できます。

その際、拡張子を指定してやれば指定拡張子のファイル
のみの取得も出来ます。
【46443】Re:ファイル名を取得したいです
発言  ぱっせんじゃー  - 07/2/3(土) 19:59 -
引用なし
パスワード
   指定フォルダにはエクセルブックが一つのみ、
というのが確実なら

Sub test()
Dim f As String
　f = Dir("D:\passe\*.xls")
　MsgBox f
End Sub
【46444】Re:ファイル名を取得したいです
お礼  くま  - 07/2/3(土) 20:08 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：

解決しました！すごいです☆
こんなに簡単に出来るなんて・・
本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6236 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free