Excel VBA 質問スレ Part74

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ d3fd-v8OD) 2021/12/20(月) 01:40:59.22 ID:jnlr9GaR0]

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part73
https://mevius.5ch.net/test/read.cgi/tech/1631485799/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[987 デフォルトの名無しさん (ﾜｯﾁｮｲ ffba-2cIz) 2022/02/09(水) 19:24:18.78 ID:KYojXGCr0]

どうすれば先頭の画像をクリックできるのでしょうか？
Sub func()
Dim url As String: url = "https://e-hentai.org/g/1727798/1fbe77a0a2/";
Dim buffer As String: buffer = ""
Dim objLink As Object
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.navigate (url)
Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Call WaitFor(3) ' wait for 3 seconds
buffer = objIE.document.getElementsByClassName("gdtm").outerHTML
Cells(1, 1).Value = buffer
objIE.Quit
Set objIE = Nothing
End Sub

Function WaitFor(ByVal second As Integer)
Dim futureTime As Date: futureTime = DateAdd("s", second, Now)
While Now < futureTime
DoEvents
Wend
End Function

[988 デフォルトの名無しさん (ﾜｯﾁｮｲ 3768-wadS) 2022/02/09(水) 19:45:46.68 ID:Fae4IrPy0]

>>987
ここから進まない
Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

最終的に何がしたいの？スクレイピング（画像のダウンロード）？

[989 デフォルトの名無しさん (ﾜｯﾁｮｲ 3768-wadS) 2022/02/09(水) 19:48:05.28 ID:Fae4IrPy0]

ダウンロードなら、右の「Archive Download」からダウンロードできるぽいのでそこで試してみては

[990 デフォルトの名無しさん (ﾜｯﾁｮｲ 175f-W9H6) 2022/02/09(水) 21:24:05.75 ID:Z/7LO9MU0]

buffer = objIE.document.getElementsByClassName("gdtm").outerHTML
↓
buffer = objIE.document.getElementsByClassName("gdtm")(0).outerHTML

みたいに添え字が必要。先頭だけでいいなら０

ちなみに、objIE.document.getElementsByClassName("gdtm").Length で何個あるかわかる
全部ほしければループする

リンク先が欲しいなら、outerHTMLじゃなくて、aタグのhrefだけ取得すればいいと思うよ
hoge = objIE.document.getElementsByClassName("gdtm")(0).getElementsByTagName("a")(0).href

あとは、objIE.navigate (hoge) でリンク先に飛ぶ

[991 デフォルトの名無しさん (ﾜｯﾁｮｲ f7ce-wadS) 2022/02/09(水) 21:40:08.30 ID:RWuYGaqJ0]

>>987
そもそもe-hentai.orgはスクレイピング対策がけっこうキツめだからそんな単純な方法ではだめだったはず

[992 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa9b-4tZW) 2022/02/09(水) 21:44:33.64 ID:oSWjz80sa]

.click

[993 デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-zD41) 2022/02/09(水) 22:14:49.52 ID:MpMYHHoEd]

どんな画像かわからんけど漫画なら作者なりが訴えたらまとめて賠償請求されるかもしれんのに
よく回答するねｗ

[994 デフォルトの名無しさん (ﾜｯﾁｮｲ 97da-iYwH) 2022/02/09(水) 22:20:10.16 ID:dWa1kwqW0]

だって、教えたがりおじさんおばさんの巣窟だもん

[995 デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-2cIz) 2022/02/09(水) 22:31:13.14 ID:WQvIAEnaM]

回答者に賠償請求ですって？法律を知らない子はおかしなことをおっしゃるのね

[996 デフォルトの名無しさん (ﾜｯﾁｮｲ ffb0-4tZW) 2022/02/09(水) 22:43:06.13 ID:qWGRAcWA0]

質問者はどうしたらクリックできるか訊いてるんだけどね
なぜかダウンロードだのどうしたいだの

[997 デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-tymv) 2022/02/10(木) 01:00:09.82 ID:hZgX7eKD0]

マウスつなげる

[998 デフォルトの名無しさん (ﾜｯﾁｮｲ d7da-57Yh) 2022/02/10(木) 07:30:31.61 ID:j0eZpZqg0]

If cnt=1000 Then MsgBox "ぬるぽ", vbOkOnly+vbCritical

[999 94 (ﾌﾞｰｲﾓ MM1b-SoUx) 2022/02/10(木) 09:01:43.57 ID:YAVEwoPsM]

vbaでWordの２ページ目にある表の中の文字列をエクセル転記したいです。
Wordの操作はできそうなのですが文字をどこまで細かく引っ張れるのでしょうか

[1000 デフォルトの名無しさん (ﾜｯﾁｮｲ f7ce-wadS) 2022/02/10(木) 09:33:43.50 ID:cXcP1CjO0]

>>999
条件次第