Today: Yesterday: Total: Online:
カテゴリー
その他
  • RSS1.0
  • RSS2.0
  • atom0.3
  • valid XHTML1.0
  • valid CSS2
  • Credit
RSSリーダーで購読する | この日記のはてなブックマーク数 | プロフィール
コメントが一番多い記事（233コメント）：人の心理の裏をかくホームページ集客術：リピータになってもらうためには
ツイートが一番多い記事（94ツイート）：ちょっと待て！twitterやfacebookに子供の写真を掲載する親達への警告
いいねが一番多い記事（574いいね）：facebookスパムに要注意。なりすましの見分け方とアカウント乗っ取りの手口（2013年度版）

« LPICのネットでできる問題集 | Main | Google Analytics携帯版の導入方法まとめ»

カテゴリー » VBA April 12, 2010

VBAでhttpアクセス ID:1271020549


Sub test01()
Set obj = CreateObject("InternetExplorer.Application.1") 'ＩＥを新規オブジェクトとして宣言
obj.Visible = True
targetURL = "​http://okweb.jp/kotaeru.php3?qid=1044759"​

obj.Navigate (targetURL) '指定アドレスに飛ばす
'時間待ち(objが動作中であれば）
Do While obj.busy
Loop

'表示
obj.Visible = True
For n = 0 To obj.Document.All.Length - 1
If UCase(Trim(obj.Document.All(n).tagname)) = "HTML" Then
s = obj.Document.All(n).outerhtml 'HTMLのテキスト
Cells(n + 1, 1) = s 'エクセルONLY用
End If
Next
End Sub
http://oshiete1.goo.ne.jp/qa1044759.html
— posted by midilin @ 06:15AM
[コメントが多かった順の記事]
・人の心理の裏をかくホームページ集客術：リピータになってもらうためには(233)
・ホームページ心理学第２弾「メールの書きだしとホームページ運営・集客の関係」(76)
・娘が生まれた(69)
・ゲームと言えば、何を思い出す？ (50)
・Microsoftからアクセス (30)
・「目標の立て方」と「努力」と「実行力」(26)