最下層にあるファイルのファイル名を取得したく下記の様なプログラミングを組んでみたところ、
「ファイル名または番号が不正です」というエラーが表示されてしまいます。比較演算子などをいじって
試行錯誤してみましたが、どうしてもできません。どのように修正すればよいのでしょうか。ご回答よろしくお願いいたします。
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
No.1ベストアンサー
- 回答日時:
そのページのリンク先を取得できればよいという事でしょうか。
Sub try()
Dim x As Object
With CreateObject("InternetExplorer.Application")
.Navigate "http://syarecowa.moo.jp/menu001.htm"
.Visible = True 'False
Do While .Busy Or (.ReadyState <> 4)
DoEvents
Loop
For Each x In .document.Links
Debug.Print x.Href
Next
.Quit
End With
End Sub
Dir関数は使わないです。
end-u様
ご回答いただきありがとうございます。
達成したいと思っていることをこのようにスマートにコーディングできるのかと、
大変驚いております。
私事ではございますが、大学院修士課程でネット上にの怖い話を研究しておりまして...
そこでエクセルに怖い話を全て落とし込めないかと思い、全く経験したことのない
VBAに挑戦している次第です。
研究内容が民俗学ということもあり、周囲にはプログラミングの相談をできる人が
全くいない状況ですので、end-u様のようにご教授していただける方がいらして、大変
ありがたく感じております。
あらためて御礼申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Irvineフリーのプロトコルエラ...
-
カスタムメイド3Dのエラーにつ...
-
VB6 使用中ファイルの確認
-
Excelのハイパーリンクがエラー...
-
VBA:最下層のファイルを取得
-
勝手にdatファイルになるのです...
-
ファイルが勝手にダウンロード...
-
WordでURLをクリックしてそのペ...
-
ハイパーリンクを新規ウィンド...
-
ギガファイル便って女の人のエ...
-
Windows Media Player 位置ス...
-
サーバーに転送したファイルが0...
-
トップページのindex.htmlを削...
-
ファイルのURLってどこに書いて...
-
デスクトップのファイルが上書...
-
既存のページをホームページビ...
-
FFFTPでファイル削除できない
-
Hulft(6.0) for Linux の ...
-
内容証明郵便は転送されますか?
-
保存したホームページは、本当...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
急にXMLパースエラーが表示され...
-
ホームページビルダーの【×】マ...
-
コンパイル時のエラーについて...
-
ワードがなかなか閉じないです
-
VB6 使用中ファイルの確認
-
ftp_getできない?
-
ファイルopenエラーになってし...
-
エクセルVBA インデックスが有...
-
[TeX,DVI,PS,PDF]
-
Excelのハイパーリンクがエラー...
-
local by flywheelについて
-
韓国に送った添付ファイルexcel...
-
DellのHPが開かない!!
-
VBSでごみ箱に捨てたファイルの...
-
VBAのエラーについて教えてくだ...
-
Irvineフリーのプロトコルエラ...
-
thunderbardでエラーが出ます。
-
ファイル送信中のエラーについて
-
ステータスコード404がFirefox...
-
緊急です。 パワーポイントで p...
おすすめ情報