*

引用文装飾

公開日: : WordPress

Sub tmp_002()
Dim objIE As Object
Dim obj As Object
Dim url As String
Dim sName(50) As String
Dim cnt As Integer
url = "http://itp.ne.jp/result/?kw=%91%E5%8D%E3%95%7B&ad=27&sa=27"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate url
Do While objIE.Busy = True
DoEvents
Loop
For Each obj In objIE.Document.getElementsByTagName("h2")
If obj.className = "" Then
sName(cnt) = obj.innerText
cnt = cnt + 1
End If
Next
Debug.Print sName(0) & vbCrLf & sName(1) & vbCrLf & sName(2)
Set objIE = Nothing
End Sub

admax_area



関連記事

no image

スムーズスクロール

single.php の<?php wp_head(); ?>の後ろに挿入した

記事を読む

no image

テーブル / コード

自動テーブル化場所 http://www.tagindex.com/tool/excel_simp

記事を読む

no image

見出し装飾

1-2-1 システムが起動するまでの流れ <h2 class="demo">1-2-1

記事を読む

no image

ルートディレクトリにWordPress移動する

以下URL WordPress を専用ディレクトリに配置する の「既存のサブディレクトリ

記事を読む

no image

変更履歴

13/12/01 テーマをstinger3ver20131023へ変更 サイドのところ変

記事を読む

admax_area



Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

admax_area



PAGE TOP ↑