Entries

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
この記事にトラックバックする(FC2ブログユーザー)
http://kityou00.blog39.fc2.com/tb.php/136-bce329d2

トラックバック

コメント

コメントの投稿

コメントの投稿
管理者にだけ表示を許可する

「やらおん!」ステルスマーケット調査セット

名称未設定-1

そろそろ皆さん、2012の流行語大賞候補『ステマ』にうんざりされてる頃かと思いますが、

果たして、本当に「ステルスマーケティング」なるものは存在するのか?

だいぶ前に材料集める準備だけして本投げてしまった
人気アニメ系まとめサイト「やらおん!」さんのタイトルリストがございますので
特定のアニメタイトルの記事が多い等の各種調査にご利用下さい。

また、
タイトルリスト取得の際にした
A列に書かれたURLのタイトルをB列に出力するExcelマクロを参考までに置いておきますが、
雑然と書かれているのと、対象サイトにF5アタックをかけているような状態になるので、
あくまで参考にして頂くようお願い致します。


やらおん!記事リスト1~4000


Sub URL取得()
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
gyomax = Range("A65536").End(xlUp).Row
For gyo = 1 To gyomax
vurl = Range("A" & gyo).Value
ie.navigate vurl
While ie.busy
DoEvents
Wend
Application.Wait Now() + TimeValue("00:00:03")
vtitle = ie.document.Title
For i = 1 To 10
If ie.document.all(i).nodename = "META" Then
If ie.document.all(i).Name = "description" Then
Exit For
End If
End If
Next
Range("B" & gyo).Value = vtitle
Next
End Sub


この記事にトラックバックする(FC2ブログユーザー)
http://kityou00.blog39.fc2.com/tb.php/136-bce329d2

トラックバック

コメント

コメントの投稿

コメントの投稿
管理者にだけ表示を許可する

Appendix

プロフィール

機長

Author:機長
機長 ◆JAL/00MK6c

Twitter...

機長 Reload

Flickr

www.flickr.com
kityou00's items Go to kityou00's photostream

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。