PR
Calendar
リチェーオ
。
Freepage List
Keyword Search
▼キーワード検索
【亜】arisa no nons…
no_nonsenseさん
B-B-アイランド KとＢビアンさん
迷いまくりの羊 羊飼いの人さん
☆パーマーやでぇ☆ パーマー２００８さん
Heart of sprouts … Alpha Cygniさん
B-B-アイランド KとＢビアンさん
迷いまくりの羊 羊飼いの人さん
☆パーマーやでぇ☆ パーマー２００８さん
Heart of sprouts … Alpha Cygniさん
Comments
Category
ひとりごと
(241)日常
(9)やりたいこと
(2)予定・課題
(0)処世のために
(18)お勉強
(60)健康
(6)卓球
(13)ガーデニング
(5)ファッション
(1)恋愛
(23)化学
(1)大学
(0)妄言
(8)うちのかぞく
(4)ブロック・パーティー
(6)コリーヌ・ベイリー・レイ
(1)ノラ・ジョーンズ
(1)アヴリル・ラヴィーン
(1)リアーナ
(1)ジェームス・ブラント
(1)テイク・ザット
(2)マルーン ファイブ
(1)カイザー・チーフス
(1)ビリー・ジョエル
(1)t.A.T.u.
(1)フーバスタンク
(1)Sandi Thom
(1)Editors
(1)エイミー･ワインハウス
(2)The Fray
(1)音楽ネタ
(8)オアシス
(0)きゃりーぱみゅぱみゅ
(0)心理学関係
(20)English and Japanese Beginners
(12)My Chemical Romance
(1) 2017.11.19
カテゴリ： お勉強
Sub abista11tr()
Dim i_time As Long
i_time = timeGetTime()
Dim objIE As InternetExplorer
Call ieView(objIE, "")
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Dim colTR, colTH, colTD, ele As IHTMLElement
Dim i As Long
i = 1
Set colTR = htmlDoc.getElementsByTagName("tr")
For Each ele In colTR
Set colTH = ele.getElementsByTagName("th")
Debug.Print colTH(0).innerText
If colTH(0).innerText = "勤務地" Then
Cells(i, 1) = colTH(0).innerText
Set colTD = ele.getElementsByTagName("td")
Cells(i, 2) = colTD(0).innerText
'Cells(i, 1) = ele.innerText
i = i + 1
End If
Next ele
i = 1
Set colTR = htmlDoc.getElementsByTagName("tr")
For Each ele In colTR
Set colTH = ele.getElementsByTagName("th")
Debug.Print colTH(0).innerText
If colTH(0).innerText = "仕事内容" Then
Cells(i, 3) = colTH(0).innerText
Set colTD = ele.getElementsByTagName("td")
Cells(i, 4) = colTD(0).innerText
'Cells(i, 1) = ele.innerText
i = i + 1
End If
Next ele
i = 1
Set colTR = htmlDoc.getElementsByTagName("tr")
For Each ele In colTR
Set colTH = ele.getElementsByTagName("th")
Debug.Print colTH(0).innerText
If colTH(0).innerText = "雇用形態" Then
Cells(i, 5) = colTH(0).innerText
Set colTD = ele.getElementsByTagName("td")
Cells(i, 6) = colTD(0).innerText
'Cells(i, 1) = ele.innerText
i = i + 1
End If
Next ele
i = 1
Set colTR = htmlDoc.getElementsByTagName("tr")
For Each ele In colTR
Set colTH = ele.getElementsByTagName("th")
Debug.Print colTH(0).innerText
If colTH(0).innerText = "給与" Then
Cells(i, 7) = colTH(0).innerText
Set colTD = ele.getElementsByTagName("td")
Cells(i, 8) = colTD(0).innerText
'Cells(i, 1) = ele.
i = i + 1
End If
Next ele
i = 1
Set colTR = htmlDoc.getElementsByTagName("tr")
For Each ele In colTR
Set colTH = ele.getElementsByTagName("th")
Debug.Print colTH(0).innerText
If colTH(0).innerText = "勤務時間" Then
Cells(i, 9) = colTH(0).innerText
Set colTD = ele.getElementsByTagName("td")
Cells(i, 10) = colTD(0).innerText
'Cells(i, 1) = ele.innerText
i = i + 1
End If
Next ele
MsgBox Format$(timeGetTime - i_time) & " ミリ秒"
End Sub
お気に入りの記事を「いいね！」で応援しよう
[お勉強] カテゴリの最新記事
-
DB化構想20171119 2017.11.19
-
Mgr承認メモ 2017/11/19 2017.11.19
-
DB化構想20171117 2017.11.17
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
