返回列表下一主題上一主題發帖

[發問] 上網擷取資料無法完整

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-6-15 17:36 | 只看該作者

[發問] 上網擷取資料無法完整

請教諸位先進
在擷取資料時網頁有500筆
但只擷取300多筆
在網頁頁面檢視原使檔真的只到300多筆
是真的這樣備限制嗎
如何突破,請賜教
謝謝!

On Error GoTo TheChick
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://xxx.xxx.xx.xx/xx.php", Destination:=Selection) '查詢
      .FieldNames = True
      .WebSelectionType = xlEntirePage
      '.WebFormatting = xlWebFormattingNone
      '.WebTables = "1"
      '.WebPreFormattedTextToColumns = True
      '.WebConsecutiveDelimitersAsOne = True
      .SavePassword = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
      '.Name = .ResultRange.Cells(5, 1)
      .UsedRange.Columns.AutoFit
End With
TheChick:
   Resume Next