Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
24073 / 76732 ←次へ　｜　前へ→
【58013】Re:読み込みファイルの制限
質問  パトラッシュ  - 08/9/27(土) 17:10 -
引用なし
パスワード
   ふたたびパトラッシュです。
何度も、すみません。

拡張子の制限でしたら、例えば
file1 = Application.GetOpenFilename(Title:="XLSファイル指定")
lcsv = InStr(1, file1, ".xls", 1)
　　　If lcsv = 0 Then
　　　　　MsgBox "xls"以外指定不可"
　　　　　Exit Sub
　　　End If
とできることが判明したのですが、これを同様にInStr関数で、ファイル名で
例えば「高知」を含むもののみ指定可能にする（あるいは前方一致でもいいのですが）方法はあるのでしょうか？
おわかりの方がいましたら、よろしくお願いいたします。
1 hits
▼ 【57964】読み込みファイルの制限 パトラッシュ 08/9/23(火) 23:01 質問
【57969】Re:読み込みファイルの制限 こぎつね 08/9/24(水) 11:40 回答
【57993】Re:読み込みファイルの制限 パトラッシュ 08/9/26(金) 13:47 お礼
【58013】Re:読み込みファイルの制限 パトラッシュ 08/9/27(土) 17:10 質問≪
【58015】Re:読み込みファイルの制限 こぎつね 08/9/27(土) 17:33 発言
【58029】Re:読み込みファイルの制限 パトラッシュ 08/9/28(日) 11:07 お礼
【57970】Re:読み込みファイルの制限 Jaka 08/9/24(水) 12:25 発言
【57992】Re:読み込みファイルの制限 パトラッシュ 08/9/26(金) 13:45 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
24073 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free