Excel VBA 質問スレ Part74

1 名前：デフォルトの名無しさん mailto:sage [2021/12/20(月) 01:40:59.22 ID:jnlr9GaR0.net] !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 982 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 12:22:38.83 ID:j8hQF/oi0.net] 公開されているcsvを読込むマクロで csvファイルからウイルス広まる事例って あるのかしら？ 983 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 13:40:36.30 ID:LKLk4DLKa.net] リンクを手当り次第クリックしちゃうアホがいるからね 984 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 13:43:15.59 ID:Fae4IrPy0.net] 誤クリを防ぐって意味ならたしかにかなり有用だと思う >>976 言ってる意味がよく分からんが、 マクロはものすごくウィルスを添付しやすい サイトで公開されているマクロ付きのエクセルファイルなんて開いちゃダメだぞ コードを読んで、コピーして問題なければ使うのが基本だ 985 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 14:04:41.56 ID:j8hQF/oi0.net] >>978 ああ。 .xlsmファイルをメールで送るつもりはさらさらなくて。 けど、 e-statなんかで公開されているcsvファイルを 読込んで処理するマクロを組んだ.xlsmファイルも デフォルトでは開く度に毎回警告されるものだから。 986 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 14:20:22.38 ID:RWuYGaqJ0.net] CSVは単なるテキストファイルだから、それ自体には感染能力はないけど、わざと文字化けさせたり巨大なデータを混入させてといて、読み込むアプリを誤作動されられる可能性ならある 簡単に実験できる範囲だと、セル内改行が大量にあるだけでExcelがプチフリするしね 987 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 14:20:22.44 ID:Z/7LO9MU0.net] CSVに関数を書き込んで読み込んだExcelがそれを実行するって事例があった 988 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 14:25:00.32 ID:I0u44nFvd.net] Excel VBA 質問スレ Part75 https://mevius.5ch.net/test/read.cgi/tech/1644384272/ 989 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 14:27:15.27 ID:RWuYGaqJ0.net] >>981 さすがにワークシート関数だけじゃ感染は無理なのでは 使用者を混乱させて誤操作を誘発するとかやらないと 990 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 15:29:31.91 ID:h7C3sgPu0.net] >>982 なんたる有能 991 名前：デフォルトの名無しさん [2022/02/09(水) 15:41:42.37 ID:F+qQsHczr.net] 大昔、2chの草創期に大流行した ブラクラみたいな感じ 992 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 18:27:17.30 ID:2Z/3/DW40.net] 古いExcelは拡張子.xls でもマクロ書けたのと、test.csv.xls みたいなファイル名でOS設定で拡張子を表示しないとか されていると気づかないで実行されることがあった 993 名前：デフォルトの名無しさん [2022/02/09(水) 19:24:18.78 ID:KYojXGCr0.net] どうすれば先頭の画像をクリックできるのでしょうか？ Sub func() Dim url As String: url = "https://e-hentai.org/g/1727798/1f 994 名前：be77a0a2/" 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 [] [ここ壊れてます] 995 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 19:45:46.68 ID:Fae4IrPy0.net] >>987 ここから進まない Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE DoEvents Loop 最終的に何がしたいの？スクレイピング（画像のダウンロード）？ 996 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 19:48:05.28 ID:Fae4IrPy0.net] ダウンロードなら、右の「Archive Download」からダウンロードできるぽいのでそこで試してみては 997 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 21:24:05.75 ID: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) でリンク先に飛ぶ 998 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 21:40:08.30 ID:RWuYGaqJ0.net] >>987 そもそもe-hentai.orgはスクレイピング対策がけっこうキツめだからそんな単純な方法ではだめだったはず 999 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 21:44:33.64 ID:oSWjz80sa.net] .click 1000 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 22:14:49.52 ID:MpMYHHoEd.net] どんな画像かわからんけど漫画なら作者なりが訴えたらまとめて賠償請求されるかもしれんのに よく回答するねｗ 1001 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 22:20:10.16 ID:dWa1kwqW0.net] だって、教えたがりおじさんおばさんの巣窟だもん 1002 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 22:31:13.14 ID:WQvIAEnaM.net] 回答者に賠償請求ですって？法律を知らない子はおかしなことをおっしゃるのね 1003 名前：デフォルトの名無しさん mailto:sage [2022/02/09(水) 22:43:06.13 ID:qWGRAcWA0.net] 質問者はどうしたらクリックできるか訊いてるんだけどね なぜかダウンロードだのどうしたいだの 1004 名前：デフォルトの名無しさん [2022/02/10(木) 01:00:09.82 ID:hZgX7eKD0.net] マウスつなげる 1005 名前：デフォルトの名無しさん mailto:sage [2022/02/10(木) 07:30:31.61 ID:j0eZpZqg0.net] If cnt=1000 Then MsgBox "ぬるぽ", vbOkOnly+vbCritical 1006 名前：94 mailto:sage [2022/02/10(木) 09:01:43.57 ID:YAVEwoPsM.net] vbaでWordの２ページ目にある表の中の文字列をエクセル転記したいです。 Wordの操作はできそうなのですが文字をどこまで細かく引っ張れるのでしょうか 1007 名前：デフォルトの名無しさん mailto:sage [2022/02/10(木) 09:33:43.50 ID:cXcP1CjO0.net] >>999 条件次第 1008 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 52日 7時間 52分 44秒 1009 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef