Excel VBA質問箱 IV

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

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


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

43528 / 76732

←次へ　｜　前へ→


	【38251】Re:ファイルの検索についてです。

Jaka - 06/5/30(火) 16:50 -


	引用なし

	パスワード

例えばこれで.xlsも検索しますが、もしかして大文字って全角の事ですか？

Sub test()
　　Dim SarchFile As String, Gy As Long, CNT As Long
　　Dim FldNm As String
　　FldNm = CreateObject("WScript.Shell").SpecialFolders("Desktop")
　　SarchFile = Dir(FldNm & "\*.XLS")
　　Gy = 0
　　CNT = 0
　　Do Until SarchFile = ""
　　　 Gy = Gy + 1
　　　 CNT = CNT + 1
　　　 Cells(Gy, 1).Value = SarchFile
　　　 SarchFile = Dir()
　　Loop
　　If CNT = 0 Then
　　　 MsgBox Dir(FldNm, vbDirectory) & "内にxlsファイルはありませんでした。"
　　End If
End Sub

4 hits

▼

【38248】ファイルの検索についてです。 ゆっけ 06/5/30(火) 16:09