有關EXCEL VBA 抓取不到完整網址CSV問題
- 帖子
- 15
- 主題
- 7
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-29
- 最後登錄
- 2021-7-4
|
請教如何運用 VBA 把 網路*.csv 的檔案下載到EXCEL的表格裏？
請教如何運用 VBA 把
特定日期的 鉅額交易日成交資訊 - 資料
下載到EXCEL的表格裏？
參考網址：
http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php
 請教問題102.11.8.rar (17.84 KB)
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2013-11-9 09:19
| 只看該作者
本帖最後由 GBKEE 於 2013-11-9 17:13 編輯
回復 1# vesperlee
URL; http://www.twse.com.tw/ 多出一空格不適用2003後的新版本,
謝謝stillfish00幫忙除錯,已更正為 URL;http://www.twse.com.tw/- Option Explicit
- Sub TEXT_102()
- 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 = "http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.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:=webURL, 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
|
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
3#
發表於 2013-11-9 10:51
| 只看該作者
回復 2# GBKEE
執行到 .Refresh BackgroundQuery:=False 便出現 1004 的錯誤訊息。
請教您，這會是甚麼狀況？ |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
4#
發表於 2013-11-9 11:00
| 只看該作者
本帖最後由 GBKEE 於 2013-11-9 11:10 編輯
回復 3# c_c_lai
少了一點 .Range("A1"),謝謝你的測試.(2#的程式碼已加上一點了)
因為作用中的工作表不是Sheets("下載資料")時,少了一點就是作用中的工作表的Range("A1")- With .QueryTables.Add(Connection:=webURL, Destination:=.Range("A1"))
|
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
5#
發表於 2013-11-9 11:24
| 只看該作者
本帖最後由 c_c_lai 於 2013-11-9 11:31 編輯
回復 c_c_lai
少了一點 .Range("A1"),謝謝你的測試.(2#的程式碼已加上一點了)
因為作用中的工作表不是S ...
GBKEE 發表於 2013-11-9 11:00 
之前我亦加上了一 "."， 還是一樣的結果。
Destination:=.Range("A1")
我也是在找原因。 在 2003 能執行嗎？ |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
7#
發表於 2013-11-9 11:57
| 只看該作者
回復 6# GBKEE
活頁簿1.rar (9.73 KB)
目前無論是上傳附件或圖片，都必須另外使用 IE，
無法在 FireFox 內執行，非常地不方便，我也跟
小誌版主提過，還是無法上船，蠻困擾的。 |
|
|
|
|
|
|
|
- 帖子
- 2
- 主題
- 0
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WIN
- 軟體版本
- VISTA
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-11-6
- 最後登錄
- 2019-9-2
|
8#
發表於 2013-11-9 12:08
| 只看該作者
Sub TEXT_102()
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/block/BFIAUU/BFIAUU.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 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
9#
發表於 2013-11-9 12:10
| 只看該作者
回復 7# c_c_lai
你的檔案2003沒問題的,須請2007,2010來試試看
(目前無論是上傳附件或圖片，都必須另外使用 IE，會是這原因...) |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
10#
發表於 2013-11-9 12:23
| 只看該作者
回復 9# GBKEE
應用 #8 的 GetData_URL 便 OK 了。- GetData_URL = "URL;http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.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"
|
|
|
|
|
|
|
|
