![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
最下層にあるファイルのファイル名を取得したく下記の様なプログラミングを組んでみたところ、
「ファイル名または番号が不正です」というエラーが表示されてしまいます。比較演算子などをいじって
試行錯誤してみましたが、どうしてもできません。どのように修正すればよいのでしょうか。ご回答よろしくお願いいたします。
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ランキング
-
local by flywheelについて
-
コンパイル時のエラーについて...
-
動的なページに対してのSEO対策...
-
DellのHPが開かない!!
-
WinMx使用中に・・・「ファイル...
-
急にXMLパースエラーが表示され...
-
VBSでごみ箱に捨てたファイルの...
-
メモリースティックがフォーマ...
-
エクセルVBA インデックスが有...
-
drupalでエラーが表示される
-
勝手にdatファイルになるのです...
-
サーバーに転送したファイルが0...
-
Music Center for PCの楽曲をiT...
-
PDFでファイルをみたいのにw...
-
ハイパーリンクを新規ウィンド...
-
転送と回送の違い
-
Skypeでのファイル転送速度が遅...
-
TSファイルをスムーズに再生したい
-
AccessからExcelのシートを削除
-
外付けHDDの80GBのデータを内蔵...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
急にXMLパースエラーが表示され...
-
コンパイル時のエラーについて...
-
Excelのハイパーリンクがエラー...
-
ワードがなかなか閉じないです
-
local by flywheelについて
-
VB6 使用中ファイルの確認
-
ホームページビルダーの【×】マ...
-
ファイルopenエラーになってし...
-
VBAを記述したEXCELファイルを...
-
エクセルVBA インデックスが有...
-
ftp_getできない?
-
電子書籍epub変換について
-
thunderbardでエラーが出ます。
-
localhostで表示されない
-
属性の値に特殊文字が大量にあ...
-
Excel VBAのユーザーフォームに...
-
緊急です。 パワーポイントで p...
-
リンカ 致命的エラーについて
-
VCで作成したDLLの使用
-
Irvineフリーのプロトコルエラ...
おすすめ情報