最下層にあるファイルのファイル名を取得したく下記の様なプログラミングを組んでみたところ、 「ファイル名または番号が不正です」というエラーが表示されてしまいます。比較演算子などをいじって 試行錯誤してみましたが、どうしてもできません。どのように修正すればよいのでしょうか。ご回答よろしくお願いいたします。 http://syarecowa.moo.jpというサイトのmenu001.htmの下にある"1/3ケタの数字.htm"のファイル名を全て取得したいと考えています。 現在組めているコードは下記の通りです Dim cnt As Long －－－－－－－－－－－－－－－－ Sub Macro5(Path As String) Dim buf As String, f As Object buf = Dir(Path & "/#/###.htm") ★★ここでエラーが生じていしまいます★★ Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = buf buf = Dir() Loop With CreateObject("Scripting.FileSystemObject") For Each f In .GetFolder(Path).SubFolders Call Macro5(f.Path) Next f End With End Sub －－－－－－－－－－－－－－－－－－－－－－－－－－ Sub Macro6() Dim URL As String 'ファイルパス Dim IE As Object 'オブジェクト Dim Myhtml As Variant 'HTMLタグデータ 'インターネットに接続 Set IE = CreateObject("InternetExplorer.Application") With IE .Navigate "http://syarecowa.moo.jp/menu001.htm" .Visible = Flase Do While .Busy = True DoEvents Loop 'Macro5呼び出し cnt = 0 Call Macro5("http://syarecowa.moo.jp/menu001.htm") End With End Sub
↧