|
初級者さん
以前、ここで助けて頂いて何とか書き上げたコードです。多分似たようなことをしたいのではとご参考までに書かせていただきます。
変数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
正常処理:
=================================================
|
|