Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

!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

2022/02/09(水) 11:20:58.48

完璧に対策するのは不可能だから、まずは「添付の資料を見て下さい」っていう犯人からのメールきっかけで侵入されるパターンを想定してるのでは

2022/02/09(水) 12:06:08.78

マクロを理解してる人は、メールとかで送られてくる
Excelファイルなんて開かないけど、無能な素人が
開いちゃって、社内にウイルスがばら撒かれるから
無能のヒューマンエラー防止のための策でしょ？

2022/02/09(水) 12:22:38.83

公開されているcsvを読込むマクロで
csvファイルからウイルス広まる事例って
あるのかしら？

2022/02/09(水) 13:40:36.30

リンクを手当り次第クリックしちゃうアホがいるからね

2022/02/09(水) 13:43:15.59

誤クリを防ぐって意味ならたしかにかなり有用だと思う

>>976
言ってる意味がよく分からんが、
マクロはものすごくウィルスを添付しやすい
サイトで公開されているマクロ付きのエクセルファイルなんて開いちゃダメだぞ
コードを読んで、コピーして問題なければ使うのが基本だ

2022/02/09(水) 14:04:41.56

>>978
ああ。
.xlsmファイルをメールで送るつもりはさらさらなくて。

けど、
e-statなんかで公開されているcsvファイルを
読込んで処理するマクロを組んだ.xlsmファイルも
デフォルトでは開く度に毎回警告されるものだから。

2022/02/09(水) 14:20:22.38

CSVは単なるテキストファイルだから、それ自体には感染能力はないけど、わざと文字化けさせたり巨大なデータを混入させてといて、読み込むアプリを誤作動されられる可能性ならある
簡単に実験できる範囲だと、セル内改行が大量にあるだけでExcelがプチフリするしね

2022/02/09(水) 14:20:22.44

CSVに関数を書き込んで読み込んだExcelがそれを実行するって事例があった

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-wadS) · 2022/02/09(水) 14:25:00.32

Excel VBA 質問スレ Part75
https://mevius.5ch.net/test/read.cgi/tech/1644384272/

2022/02/09(水) 14:27:15.27

>>981
さすがにワークシート関数だけじゃ感染は無理なのでは
使用者を混乱させて誤操作を誘発するとかやらないと

2022/02/09(水) 15:29:31.91

>>982
なんたる有能

2022/02/09(水) 15:41:42.37

大昔、2chの草創期に大流行した

ブラクラみたいな感じ

2022/02/09(水) 18:27:17.30

古いExcelは拡張子.xls でもマクロ書けたのと、test.csv.xls みたいなファイル名でOS設定で拡張子を表示しないとか
されていると気づかないで実行されることがあった

2022/02/09(水) 19:24:18.78

どうすれば先頭の画像をクリックできるのでしょうか？
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

2022/02/09(水) 19:45:46.68

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

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

2022/02/09(水) 19:48:05.28

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

2022/02/09(水) 21:24:05.75

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) でリンク先に飛ぶ

2022/02/09(水) 21:40:08.30

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

2022/02/09(水) 21:44:33.64

.click

2022/02/09(水) 22:14:49.52

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

2022/02/09(水) 22:20:10.16

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

2022/02/09(水) 22:31:13.14

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

2022/02/09(水) 22:43:06.13

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

2022/02/10(木) 01:00:09.82

マウスつなげる

2022/02/10(木) 07:30:31.61

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

94 (ﾌﾞｰｲﾓ MM1b-SoUx) · 2022/02/10(木) 09:01:43.57

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

2022/02/10(木) 09:33:43.50

>>999
条件次第

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 52日 7時間 52分 44秒