Excel VBA質問箱 IV

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

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


51189 / 76732 ←次へ | 前へ→

【30416】Re:セルの文字にワイルドカードを利用し、ファイル一覧を表示、外部ソフトで開くには
お礼  いどっと  - 05/10/27(木) 8:20 -

引用なし
パスワード
   ▼ichinose さん:<おはようございます。

>▼いどっと さん:
>おはようございます。
>ちょっと訂正です。

>'=======================================
>Sub find_file_sample() 'どうでもよいですが、sammple---sample<気が付きましたがご愛嬌(^^)
>  Dim fso As Object
>  Dim fld As Object
>  Dim fl As Object
>  Dim fldnm As Variant
>  fldnm = get_folder_path("フォルダを選択してください")
>  If TypeName(fldnm) <> "Boolean" Then
>    findwd = Application.InputBox("検索条件を入力してください 例(k*.xls)")
>    If TypeName(findwd) <> "Boolean" Then
>     Set fso = CreateObject("Scripting.FileSystemObject")
>     Set fld = fso.GetFolder(fldnm)
>     For Each fl In fld.Files
>       If LCase(fl.Name) Like lcase(findwd) Then '<-こっちは重要
関数をいろいろ調べて、プログラムの内容を理解しようとしており、一度実行したに過ぎません。すみません。
>        MsgBox fl.Name
>        End If
>       Next
>     End If
>    End If
>End Sub
>
>以上、2箇所訂正願います。
また、ネットで調べた関数の使い方がわからないときには質問させていただきますのでよろしくお願い致します。

いどっと
0 hits

【30372】セルの文字にワイルドカードを利用し、ファイル一覧を表示、外部ソフトで開... いどっと 05/10/26(水) 9:28 質問
【30411】Re:セルの文字にワイルドカードを利用し、... ichinose 05/10/26(水) 23:04 発言
【30412】Re:セルの文字にワイルドカードを利用し、... いどっと 05/10/26(水) 23:35 お礼
【30415】Re:セルの文字にワイルドカードを利用し、... ichinose 05/10/27(木) 7:36 発言
【30416】Re:セルの文字にワイルドカードを利用し、... いどっと 05/10/27(木) 8:20 お礼

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