Excel VBA質問箱 IV

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

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


30530 / 76738 ←次へ | 前へ→

【51473】Re:dir関数でワイルドカードを使用した検索結果
発言  yhar  - 07/9/20(木) 12:41 -

引用なし
パスワード
   初級者さん

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

'↓データファイルの置いてある場所を指定する。
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 質問
【51454】Re:dir関数でワイルドカードを使用した検索... ichinose 07/9/19(水) 7:44 発言
【51463】Re:dir関数でワイルドカードを使用した検索... 初級者 07/9/20(木) 1:30 お礼
【51473】Re:dir関数でワイルドカードを使用した検索... yhar 07/9/20(木) 12:41 発言

30530 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free