[算表] VBA 上網抓取檔案
軟體:EXCEL
版本:2003
如圖:https://imgur.com/a/ALXCw
不知斷點的部份要如何修改?
程式碼如下:
Sub 巨集1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://stock.wearn.com/fundthree.asp",
Destination:=Range("$A$1"))
.Name = "fundthree"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
謝謝大家的解答!
<(_._)>
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.44.244.114
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1523528631.A.319.html
→
04/12 18:59,
6年前
, 1F
04/12 18:59, 1F
→
04/12 19:00,
6年前
, 2F
04/12 19:00, 2F
→
04/12 20:00,
6年前
, 3F
04/12 20:00, 3F
→
04/12 20:01,
6年前
, 4F
04/12 20:01, 4F
→
04/12 20:02,
6年前
, 5F
04/12 20:02, 5F
→
04/12 20:17,
6年前
, 6F
04/12 20:17, 6F
→
04/12 20:20,
6年前
, 7F
04/12 20:20, 7F
→
04/12 20:26,
6年前
, 8F
04/12 20:26, 8F
→
04/12 20:27,
6年前
, 9F
04/12 20:27, 9F
→
04/12 20:28,
6年前
, 10F
04/12 20:28, 10F
→
04/12 20:32,
6年前
, 11F
04/12 20:32, 11F