EXCELのwebクエリについての質問です。
EXCELのwebクエリについての質問です。
よろしくお願いします。
webサイトにあるデータをエクセルに自動で取り込みたいのですが、
そのサイトが、データ１００件毎にページを増やしていく仕様なので50ページあったら50回
も手動でデータを取りにいかないといけません。なんとかして自動にしたいのですが・・・
そのサイトはhttp://○×○×.com/page=1/のように"page="に数値を入れれば良いのでエクセルでなんとかなりそうかなと思い質問しました。
ウェブクエリ取得をマクロで記録してみました。
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://○×○×.com/page=1", Destination _
:=Range("$A$1"))
.Name = "page=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
この中で、
１．"page=1"を連番で連続取得したい。（総ページ数は人的に確認して、どこかに入力できればいいです）
２．エクセルに１つの表にしたいので:=Range("$A$1")だと上書きしていってしまのでどうにかしたい。
３．.Name = "page=1"も連番で増やしていきたい。
こんなことは可能でしょうか。
VBAは初心者以下です。
どなたかお助けください。
お礼
回答ありがとうございます。 株価情報を取り込みたいと言う用途です。 又、ＰＣ中級者以下なので、アドバイスのＶＢＳは難しいかもしれません。