Excel VBA 質問スレ Part74

Excel VBA 質問スレ Part74at TECH

Excel VBA 質問スレ Part74 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

1010:デフォルトの名無しさん 
 22/02/09 14:25:00.32 I0u44nFvd.net
Excel VBA 質問スレ Part75 
https://mevius.5ch.net/test/read.cgi/tech/1644384272/

1011:デフォルトの名無しさん 
 22/02/09 14:27:15.27 RWuYGaqJ0.net
>>981 
さすがにワークシート関数だけじゃ感染は無理なのでは 
使用者を混乱させて誤操作を誘発するとかやらないと

1012:デフォルトの名無しさん 
 22/02/09 15:29:31.91 h7C3sgPu0.net
>>982 
なんたる有能

1013:デフォルトの名無しさん 
 22/02/09 15:41:42.37 F+qQsHczr.net
大昔、2chの草創期に大流行した 
ブラクラみたいな感じ

1014:デフォルトの名無しさん 
 22/02/09 18:27:17.30 2Z/3/DW40.net
古いExcelは拡張子.xls でもマクロ書けたのと、test.csv.xls みたいなファイル名でOS設定で拡張子を表示しないとか 
されていると気づかないで実行されることがあった

1015:デフォルトの名無しさん 
 22/02/09 19:24:18.78 KYojXGCr0.net
どうすれば先頭の画像をクリックできるのでしょうか？ 
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

次ページ