作者a777starmy (呼力赢大师(大输))
看板Office
标题[算表] excel 算表外部连结，巨集出现问题??
时间Tue May 29 17:10:38 2018
如题
巨集代码如下:
===============================
Sub 股票查询0529()
'
' 股票查询0529 巨集
'
Dim stocknumber As String
stocknumber = Cells(1, 2).Value
Range("A3:F26").Select
'
With ActiveSheet.QueryTables.Add(Connection = _
"URL;
https://stock.wearn.com/cdata.asp?year=107&month=05&kind=" &
stocknumber & " "
.CommandType = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
===================================================
https://imgur.com/a/E8Ejw0U
错误代码如上
我本身是新手，参考以前的，手动更改，但目前不知如何解决上面问题
--
一个年轻人问一个老人:「智慧从哪里来?」 老人回答说:「精确的判断力。」
年轻人又接着问老人:「那麽精确的判断力从哪里来?」 老人又接着回答说:「靠经验。」
年轻人再问老人:「经验哪里来?」 老人说:「错误的判断力。」
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.35.68.47
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1527585041.A.CED.html
1F：→ soyoso: connection:=，少个冒号；" "後面要)括号 05/29 17:27
2F：→ soyoso: 少了Destination放置所产生查询的储存格 05/29 17:28
3F：→ soyoso: 执行到commanndtype如出现程序呼叫或引数不正确时，可将该 05/29 17:29
4F：→ soyoso: 行删除 05/29 17:29
6F：→ a777starmy: 楼上大大，谢谢，我再研究看看 06/02 00:05