Excel VBA 質問スレ Part68at TECHExcel VBA 質問スレ Part68 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM8f-Ccsn) 20/09/07 21:00:18 Yu9E5X6OM.net 半年ROMって勉強します押忍押忍押忍 101:デフォルトの名無しさん 20/09/07 21:22:51.97 JIC+p5t3M.net 何をしたいかによるけど、Windowsの操作の自動化っていう範疇ならPowerShellおすすめ Comオブジェクトも使えるよ 102:デフォルトの名無しさん 20/09/07 21:38:02.53 J1GBImUha.net なにがおかしいの？ Sub func() Dim url As String: url = "https://e-hentai.org/g/1727798/1fbe77a0a2/" Dim buffer As String: buffer = "" Dim objLinks 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 objLinks = objIE.document.getElementsByClassName("gdtm").outerHTML Cells(1, 1).Value = objLinks 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 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch