| |
▼VBA初級者 さん：
>お二人とも、素早い返答ありがとうございます。
>
>>Dir(ThisWorkbook.Path & "\before\" & OpenFileNm & "*")
>>こうすれば、"2012-November.xls" が返りますが
>
>& "*"をつけることで、Dir関数は動くようになりました。
>ありがとうございます。
>
>>条件に合いさえすれば 想定外のファイルが返ることもあり得ますから
>>やはり拡張子まで含めて指定するのが安全です。
>基本的にはファイル名の命名規約はもう少し複雑で、
>拡張子をはずしても問題は無さそうなんですが、システム開発の
>基本としては私も問題があるな…と思っていました。
では避けたほうがいいでしょう。
>が、フォルダのオプションから拡張子の表示を選択して
>OpenFileNmに「& "*"」を追加してしてみても
>1004エラーで落ちてしまいます。。
Workbooks.Open の引数に * 付きのものをセットしていませんか？
それならエラーになりますよ。
拡張子を除いた（*なんかつけない）ものは開けるはずです。
既に指摘があるように、そういう方法は推奨しませんけれども。
|
|
hint
- 12/3/21(水) 8:02 -
