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は初心者以下です。
どなたかお助けください。
お礼
回答ありがとうございます。 株価取得が目的なので、質問しました。 ログインが必要な証券会社のサイトで情報が取れないのなら、エクセルは高価なので買うのを止めようかと思っています。 操作自動化ソフトを使える程度のスキルが無いので、出来ればエクセルで操作したいです。 エクセルなら有る程度の操作は出来ます。 エクセルに詳しい方などのアドバイスをお願い致します。