Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12331 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【11045】フォルダ内の”とある拡張子のファイル名... みい 04/2/25(水) 0:05

【11046】Re:フォルダ内の”とある拡張子のファイル... アイエネス 04/2/25(水) 0:12

【11047】Re:フォルダ内の”とある拡張子のファイル... Ｊカーター 04/2/25(水) 9:30

【11066】Re:フォルダ内の”とある拡張子のファイル... Kein 04/2/26(木) 0:31


	【11045】フォルダ内の”とある拡張子のファイル名...

みい - 04/2/25(水) 0:05 -


	引用なし

	パスワード

みなさん、こんばんは。みいです。またまたお世話になります。早速ですが、今回はタイトルどおり[フォルダ内のとある拡張子のファイル名を習得]をしたいです。フォルダを選択して、そのフォルダ内にある[.pho]という拡張子のファイル名のみを、現在開いているsheetのセルC18、C19、C20・・・に書き出していきたいのですが、”ファイル名を習得する”ということが解りません。 GetOpenFilenameとは違うようですが・・・もうお手上げ状態です。どうかご教授ください。宜しくお願い致します。


	【11046】Re:フォルダ内の”とある拡張子のファイ...

アイエネス - 04/2/25(水) 0:12 -


	引用なし

	パスワード

ヘルプで、FoundFilesとFileSearchを探してみてください。ヒントが見つかると思います。直接の回答ではありませんが、勉強になると思います。


	【11047】Re:フォルダ内の”とある拡張子のファイ...

Ｊカーター - 04/2/25(水) 9:30 -


	引用なし

	パスワード

▼みいさん：
Dir関数をヘルプで調べてみて下さい。
使用例が参考になると思います。


	【11066】Re:フォルダ内の”とある拡張子のファイ...

Kein - 04/2/26(木) 0:31 -


	引用なし

	パスワード

Sub Test()
　 Dim i As Long, MyF As String

　 i = 18
　 MyF = Dir("C:\My Documents\*.pho")
　 Do Until MyF = ""
　　　Cells(i, 3).Value = MyF
　　　i = i + 1
　　　MyF = Dir()
　 Loop
End Sub

てな感じです。
　


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12331 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free