Excel VBA質問箱 IV

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

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


51196 / 76738 ←次へ | 前へ→

【30415】Re:セルの文字にワイルドカードを利用し、ファイル一覧を表示、外部ソフトで開くには
発言  ichinose  - 05/10/27(木) 7:36 -

引用なし
パスワード
   ▼いどっと さん:
おはようございます。
ちょっと訂正です。
'=======================================
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 お礼

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