
コメントが一番多い記事(233コメント):人の心理の裏をかくホームページ集客術:リピータになってもらうためには
ツイートが一番多い記事(94ツイート):ちょっと待て!twitterやfacebookに子供の写真を掲載する親達への警告
いいねが一番多い記事(574いいね):facebookスパムに要注意。なりすましの見分け方とアカウント乗っ取りの手口(2013年度版)
カテゴリー » アクセス解析 » google Analytics April 30, 2010
Google Analytics携帯版の導入方法まとめ ID:1272612489
カテゴリー » VBA April 12, 2010
VBAでhttpアクセス ID:1271020549
Sub test01() Set obj = CreateObject("InternetExplorer.Application.1") 'IEを新規オブジェクトとして宣言 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 Subhttp://oshiete1.goo.ne.jp/qa1044759.html
最近のコメント