有關EXCEL VBA 抓取不到完整網址CSV問題
- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2007
- 閱讀權限
- 10
- 註冊時間
- 2011-9-17
- 最後登錄
- 2017-4-24
|
gbkee,c_c_lai您好：
我也有上述的問題，也是證交所網站問題，但試了很久都沒有結果，可以請教高手是哪裡出錯了嗎? 謝謝您
http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php#- Sub TEST123()
- Dim YMD_day As String, N As Name, webURL As String
- YMD_day = InputBox("輸入 民國年度日期 : 102/10/07", "下載特定日期的資料", Format(Date - 1, "E/MM/DD"))
- With Sheets("下載資料")
- For Each N In .Names
- 'N.Delete
- Next
- .Cells.Clear
- GetData_URL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv"
- 'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=查詢.dat"
- With .QueryTables.Add(Connection:=GetData_URL, Destination:=.Range("A1"))
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "data_table"
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = False
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = True
- .Refresh BackgroundQuery:=False
- End With
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2007
- 閱讀權限
- 10
- 註冊時間
- 2011-9-17
- 最後登錄
- 2017-4-24
|
有關EXCEL VBA 抓取不到完整網址CSV問題
各位高手您好，
因要抓先前已爬文，http://forum.twbts.com/viewthread.php?tid=10770，修改過後，資仍帶不出來，請想問各位高手是否php後面的語法使用有誤，謝謝大家^^
http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php- Option Explicit
- Sub ExA()
- With ActiveSheet
- With .QueryTables.Add("URL;http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php#?combination_choice=sub&cno=1&input_date=103/02/25", .[A1])
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = """data_table"""
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
- End With
- End Sub
- Sub TEST123()
- Dim YMD_day As String, N As Name, webURL As String
- YMD_day = InputBox("輸入 民國年度日期 : 102/10/07", "下載特定日期的資料", Format(Date - 1, "E/MM/DD"))
- With Sheets("下載資料")
- For Each N In .Names
- 'N.Delete
- Next
- .Cells.Clear
- GetData_URL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv"
- 'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=查詢.dat"
- With .QueryTables.Add(Connection:=GetData_URL, Destination:=.Range("A1"))
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "data_table"
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = False
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = True
- .Refresh BackgroundQuery:=False
- End With
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2007
- 閱讀權限
- 10
- 註冊時間
- 2011-9-17
- 最後登錄
- 2017-4-24
|
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2007
- 閱讀權限
- 10
- 註冊時間
- 2011-9-17
- 最後登錄
- 2017-4-24
|
heavenweaver 您好
我目前有二個網址
http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php
http://www.gretai.org.tw/ch/stock/statistics/monthly/st44.php
都是屬於上述的狀況，我想請教一下，是否有工具可以查詢?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv" --的參數資料出來呢，謝謝 |
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2007
- 閱讀權限
- 10
- 註冊時間
- 2011-9-17
- 最後登錄
- 2017-4-24
|
|
|
|
|
|
|
|
發表於 2014-2-26 17:22
| 
