VBAのHTTP通信でWebスクレイピング

excelvba

「ツール」メニューの「参照設定」のところで Microsoft HTML Object Library Microsoft XML, v6.0 を追加して使ってね重い環境だとhtmlDoc.writeの後、読み込み終わってなくてエラーになることがあるみたい。リトライ処理するといい感じ。 Sub HTTP通信() D…

2020-04-06

vbaでHTMLDocumentのエラーがでたとき

Excelvba

「ツール」メニューの「参照設定」のところで Microsoft HTML Object Libraryを追加しようネタ元 https://oshiete.goo.ne.jp/qa/8929170.html

2020-04-06

VBAフォームのリストの全選択ON/OFF

excelVBA

ループして SelectedをTrue/Falseする Private Sub cmd全選択_Click() Dim iintLoop As Integer With Me!lstResult For iintLoop = 0 To .ListCount - 1 .Selected(iintLoop) = True Next iintLoop End With End Sub Private Sub cmd全解除_Click() Dim iint…

2020-04-06

VBAの配列のループ

excelvba

LBound関数…引数に指定した配列の、最も小さい要素番号を返す UBound関数…引数に指定した配列の、最も大きい要素番号を返すこの関数をうまく使う Sub Sample2() Dim tmp As Variant, i As Long tmp = Split("123,田中,tanaka", ",") For i = LBound(tmp) To …

2020-04-06

VBAでgetElementsByClassNameが使えないときの対処方法

Excelvba

ターゲットとなる「URL」のページはIEのドキュメントモードがIE8以下だとgetElementsByClassNameは未対応とのこと。getAttribute("className")でクラス名をしらべながら処理するしかない例 .... Dim httpReq As XMLHTTP60 Set httpReq = New XMLHTTP60 httpR…