22/02/09 14:25:00.32 I0u44nFvd.net
Excel VBA 質問スレ Part75
ｽﾚﾘﾝｸ(tech板)
995:デフォルトの名無しさん
22/02/09 14:27:15.27 RWuYGaqJ0.net
>>981
さすがにワークシート関数だけじゃ感染は無理なのでは
使用者を混乱させて誤操作を誘発するとかやらないと
996:デフォルトの名無しさん
22/02/09 15:29:31.91 h7C3sgPu0.net
>>982
なんたる有能
997:デフォルトの名無しさん
22/02/09 15:41:42.37 F+qQsHczr.net
大昔、2chの草創期に大流行した
ブラクラみたいな感じ
998:デフォルトの名無しさん
22/02/09 18:27:17.30 2Z/3/DW40.net
古いExcelは拡張子.xls でもマクロ書けたのと、test.csv.xls みたいなファイル名でOS設定で拡張子を表示しないとか
されていると気づかないで実行されることがあった
999:デフォルトの名無しさん
22/02/09 19:24:18.78 KYojXGCr0.net
どうすれば先頭の画像をクリックできるのでしょうか？
Sub func()
Dim url As String: url = "URLﾘﾝｸ(e-hentai.org)
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
1000:デフォルトの名無しさん
22/02/09 19:45:46.68 Fae4IrPy0.net
>>987
ここから進まない
Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
最終的に何がしたいの？スクレイピング（画像のダウンロード）？
1001:デフォルトの名無しさん
22/02/09 19:48:05.28 Fae4IrPy0.net
ダウンロードなら、右の「Archive Download」からダウンロードできるぽいのでそこで試してみては
1002:デフォルトの名無しさん
22/02/09 21:24:05.75 Z/7LO9MU0.net
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) でリンク先に飛ぶ
1003:デフォルトの名無しさん
22/02/09 21:40:08.30 RWuYGaqJ0.net
>>987
そもそもe-hentai.orgはスクレイピング対策がけっこうキツめだからそんな単純な方法ではだめだったはず
1004:デフォルトの名無しさん
22/02/09 21:44:33.64 oSWjz80sa.net
.click
1005:デフォルトの名無しさん
22/02/09 22:14:49.52 MpMYHHoEd.net
どんな画像かわからんけど漫画なら作者なりが訴えたらまとめて賠償請求されるかもしれんのに
よく回答するねｗ
1006:デフォルトの名無しさん
22/02/09 22:20:10.16 dWa1kwqW0.net
だって、教えたがりおじさんおばさんの巣窟だもん
1007:デフォルトの名無しさん
22/02/09 22:31:13.14 WQvIAEnaM.net
回答者に賠償請求ですって？法律を知らない子はおかしなことをおっしゃるのね
1008:デフォルトの名無しさん
22/02/09 22:43:06.13 qWGRAcWA0.net
質問者はどうしたらクリックできるか訊いてるんだけどね
なぜかダウンロードだのどうしたいだの
1009:デフォルトの名無しさん
22/02/10 01:00:09.82 hZgX7eKD0.net
マウスつなげる
1010:デフォルトの名無しさん
22/02/10 07:30:31.61 j0eZpZqg0.net
If cnt=1000 Then MsgBox "ぬるぽ", vbOkOnly+vbCritical
1011:94
22/02/10 09:01:43.57 YAVEwoPsM.net
vbaでWordの２ページ目にある表の中の文字列をエクセル転記したいです。
Wordの操作はできそうなのですが文字をどこまで細かく引っ張れるのでしょうか
1012:デフォルトの名無しさん
22/02/10 09:33:43.50 cXcP1CjO0.net
>>999
条件次第
1013:1001
Over 1000 Thread.net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 52日 7時間 52分 44秒
1014:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています