- 帖子
- 81
- 主題
- 2
- 精華
- 0
- 積分
- 95
- 點名
- 171
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-29
- 最後登錄
- 2025-6-20
           
|
2#
發表於 2012-7-5 05:02
| 只看該作者
回復 1# peter460191
這是一般區 巨集 請至 程式區發問!!!
如果網頁看的到不到可 (1. 於欲抓取資料處按右鍵檢網頁內容->跳出另一個視窗看標題的網址,輸入看看(於資料>匯入外部資料->web資料中)
2. 若回應網頁無回應,改採以下方式看看
3.其它抓取法,要又爬文本站有其它方式
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; http://jsjustweb.jihsun.com.tw/z/ze/zen/zeu_E.djhtm", _
Destination:=Range("A1")) <-----可變
'.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = "1" <----資料位置
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = Ture 'False
.Refresh BackgroundQuery:=False
End With |
|