Excel VBA質問箱 IV

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

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


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

30524 / 76732

←次へ　｜　前へ→


	【51473】Re:dir関数でワイルドカードを使用した検索結果

yhar - 07/9/20(木) 12:41 -


	引用なし

	パスワード

初級者さん

以前、ここで助けて頂いて何とか書き上げたコードです。多分似たようなことをしたいのではとご参考までに書かせていただきます。
変数FileNamに　YYMMDD*.CSV　と言う頭６文字は年月日で「*」の部分はワイルドカードのファイル名を代入して「ファイルを開く」が自動実行されたときに指定のディレクトリ内で年月日と頭の６文字が一致するファイルのみをダイアログに表示すると言うコードです。
稚拙ですがご参考まで…
以下プログラムの写し===================================================
FPath = Selection.Text　'選択したセルで開くＣＳＶファイルのある場所を指定している。

'↓データファイルの置いてある場所を指定する。
CreateObject("WScript.Shell").CurrentDirectory = FPath　 'ChDir ではうまく動作しないのでこれを使う。
SendKeys FileNam
SendKeys "{TAB}"

MyType = "csv ファイル (*.csv), *.csv"

FName = Application.GetOpenFilename(FileFilter:=MyType, MultiSelect:=True)

If VarType(FName) = 8204 Then GoTo 正常処理　　 'ファイルが選択されている時の関数 VarType(FName)の戻り値は「8204」となるので…
　　If FName = False Then
　　　　MsgBox ("ファイルが選択されなかったので、何もしません。")
　　　　Exit Sub
　　End If

正常処理:
=================================================

0 hits

▼

【51453】dir関数でワイルドカードを使用した検索結果 初級者 07/9/19(水) 3:14