133821
HOME \| DIARY \| PROFILE	【フォローする】【ログイン】

LICEO STUDENTE

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! --/--

次の日記を探す

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

Calendar

Profile

リチェーオ

フォローする

Freepage List

Keyword Search

▼キーワード検索

Favorite Blog

【亜】arisa no nons… no_nonsenseさん
B-B-アイランド KとＢビアンさん
迷いまくりの羊 羊飼いの人さん
☆パーマーやでぇ☆ パーマー２００８さん
Heart　of　sprouts … Alpha Cygniさん

Comments

お久しぶりです爽悠です@ Re:仕事忙しい(10/16) リチェーオさんお久しぶりですコメント残…

爽悠です@ Re: お久しぶりですリチェーオさんにまたこう…

リチェーオ@ Re:お久しぶりです。(08/19) Alpha Cygniさんへ微かにだけれどもまだ…

Alpha Cygni@ お久しぶりです。爽悠です。生存しておりますか？

りちぇお@ Re[1]:BUSHIDO(07/18) Alpha Cygniさんやぁ(´ー｀)ノ私の記憶…

ひとりごと

(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)

< 新しい記事

新着記事一覧(全455件)

過去の記事 >

2017.11.19

webスクレイピング？練習

(1)

カテゴリ：お勉強

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

お気に入りの記事を「いいね！」で応援しよう

Last updated 2017.11.19 23:44:57
コメント(1) | コメントを書く

[お勉強] カテゴリの最新記事