有關EXCEL VBA 抓取不到完整網址CSV問題

帖子: 11
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-9-17
最後登錄: 2017-4-24

2^# 倒序看帖

打印

字體大小: tT

發表於 2014-2-26 20:23 | 顯示全部帖子

有關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

3^#

發表於 2014-2-27 10:57 | 顯示全部帖子

謝謝高手太感謝了

帖子: 11
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-9-17
最後登錄: 2017-4-24

4^#

發表於 2014-2-27 11:11 | 顯示全部帖子

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

5^#

發表於 2014-3-3 14:47 | 顯示全部帖子

謝謝heavenweaver，又學到一招了