Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24071 / 76732

←次へ　｜　前へ→


	【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)
とか？

1 hits

▼

【57964】読み込みファイルの制限 パトラッシュ 08/9/23(火) 23:01