- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- SS
- 軟體版本
- SS
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-5-1
- 最後登錄
- 2019-5-3
|
各位大大 好
小弟為新手，現行碰上問題點
可否幫忙看看程式碼有何錯誤
問題點為：
當網址直接輸入代碼時，可順利擷取我要的資料
http://www.wantgoo.com/Stock/report/basic_cfs?StockNo=1101
但是，當我把代碼換成參數時，就擷取失敗了
http://www.wantgoo.com/Stock/report/basic_cfs?StockNo=" & stockno
程式碼如下：
Sub test()
For count001 = 1 To 1 Step 1
stockno = Worksheets("清單").Range(Chr(65) & count001)
ActiveWorkbook.Worksheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Worksheets("清單").Range(Chr(65) & count001) & " " & Worksheets("清單").Range(Chr(66) & count001)
URL = "URL;http://www.wantgoo.com/Stock/report/basic_cfs?StockNo=" & stockno
With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next count001
ActiveWorkbook.Save
End Sub |
|
發表於 2016-3-20 11:44
| 
