人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【サイト情報収集方法について教えていただけますでしょうか】
共同購入クーポンサイト東京地区限定で、日付、クーポン内容、ジャンル、価格を
5?10サイト分毎日調べていきたいと思っています。
集めた情報はexcelで一覧を作りたいです。

オールクーポンジャパンAPIページ(http://allcoupon.jp/api)のサンプルリクエストのところで
以下のようにしてみたら、
http://allcoupon.jp/api-v1/coupon?area=%E6%9D%B1%E4%BA%AC&output=xml
東京を出せたのですが、毎日自動的に収集して、そのデータをエクセルに反映させるためには、簡単な方法がありますでしょうか。教えていただけると助かります。

プログラムなど組めませんので、いい方法がありましたらよろしくお願いいたします。


●質問者: mars100e
●カテゴリ:コンピュータ インターネット
✍キーワード:API Excel エクセル オール クーポン
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● rome0315
●100ポイント ベストアンサー

ExcelのVBAでできます。

  1. Excelを起動じてVisual Basic Editorを起動(Alt+F11)
  2. ThisWorkBookを選択
  3. 下記のコードをコピー
  4. 保存して終了
  5. 毎日このファイルを開けば、日付ごとにシートができてデータが取得できます。

(毎日自分で開く必要があります)

調べた内容が変割った場合は、下記の行の文字列を変更すればよいです。

url = "http://allcoupon.jp/api-v1/coupon?area=%E6%9D%B1%E4%BA%AC"

↓ここから下がプログラム

Option Explicit

Private Sub Workbook_Open()

メイン

End Sub

Sub メイン()

Dim sheet As Worksheet

Dim s As Worksheet

Dim name As String

name = Format(Date, "yyyymmdd")

For Each s In Worksheets

If s.name = name Then

Exit Sub

End If

Next

Set sheet = Worksheets.Add

sheet.name = name

データ取り込み sheet

End Sub

Sub データ取り込み(sheet As Worksheet)

Dim xmldoc As Object

Dim items As Object

Dim item As Object

Dim obj As Object

Dim cnt1 As Integer

Dim cnt2 As Integer

Dim url As String

Set xmldoc = CreateObject("Microsoft.XMLDom")

url = "http://allcoupon.jp/api-v1/coupon?area=%E6%9D%B1%E4%BA%AC"

xmldoc.async = False

xmldoc.Load (url)

Set items = xmldoc.selectNodes("//result/item")

cnt1 = 1

For Each item In items

cnt2 = 1

For Each obj In item.childNodes

sheet.Cells(cnt1, cnt2) = obj.Text

cnt2 = cnt2 + 1

Next

cnt1 = cnt1 + 1

Next

End Sub

◎質問者からの返答

rome0315様

ご回答いただきありがとうございます。コードも教えていただきありがとうございます。

無事にできました。大変助かりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ