Excel VBA質問箱 IV

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

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


24077 / 76738 ←次へ | 前へ→

【58015】Re:読み込みファイルの制限
発言  こぎつね  - 08/9/27(土) 17:33 -

引用なし
パスワード
   ▼パトラッシュ さん:
>ふたたびパトラッシュです。
>何度も、すみません。
>
>拡張子の制限でしたら、例えば
>file1 = Application.GetOpenFilename(Title:="XLSファイル指定")
>lcsv = InStr(1, file1, ".xls", 1)
>   If lcsv = 0 Then
>     MsgBox "xls"以外指定不可"
>     Exit Sub
>   End If
>とできることが判明したのですが、これを同様にInStr関数で、ファイル名で
>例えば「高知」を含むもののみ指定可能にする(あるいは前方一致でもいいのですが)方法はあるのでしょうか?
>おわかりの方がいましたら、よろしくお願いいたします。

lcsv = InStr(1, file1, ".xls", 1) * InStr(1, file1, "高知", 1)
とか?

2 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 お礼

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