作者randomness (随机)
看板Office
标题[算表] VBA 上网抓取档案
时间Thu Apr 12 18:23:48 2018
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1523528631.A.319.html
1F:→ soyoso: 有什麽错误讯息吗? 04/12 18:59
4F:→ randomness: 然後按侦错,就出现最後一行程式码为黄色断点 04/12 20:01
5F:→ randomness: .Refresh BackgroundQuery:=False 这一行 04/12 20:02
6F:→ soyoso: 那将网址贴至ie网址列上看是否可开启 04/12 20:17
7F:→ randomness: 回s大,我的电脑ie开不了,所以是ie的关系是吗? 04/12 20:20
9F:→ soyoso: 有可能是这方面的缘故,调整ie方面可浏览该网址後再执行巨 04/12 20:27
10F:→ soyoso: 集试试 04/12 20:28
11F:→ randomness: 好的,谢谢s大!! 04/12 20:32