→ soyoso: connection:=，少個冒號；" "後面要)括號 05/29 17:27
→ soyoso: 少了Destination放置所產生查詢的儲存格 05/29 17:28
→ soyoso: 執行到commanndtype如出現程序呼叫或引數不正確時，可將該 05/29 17:29
→ soyoso: 行刪除 05/29 17:29
→ a777starmy: 樓上大大，謝謝，我再研究看看 06/02 00:05
如題
巨集代碼如下:
===============================
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://www.ptt.cc/bbs/Office/M.1527585041.A.CED.html