[發問] 用VBA開啟的網頁資料csv檔，如何不為一長串的字串？

vesperlee

我用附檔 開啟的網頁資料  CSV   檔 ，格式如下
1256,F-鮮活,64.50,- 1.60 ,64.60,65.50,64.20,"55,000","3,552,100","50","64.50","65.00","17,640,000",69.00,60.00

想請教如何設定、修改，才能把一長串的字串修改成一格一格的資料擺放完整呢？
或如何在EXCEL工作表上開啟它的網頁？
謝謝解惑！


問問題-102.1.14.rar (10.01 KB)

下載次數: 12

2013-1-14 02:02

Hsieh

回復 1# vesperlee

1. Private Sub CommandButton1_Click()
   
2. Cells.Clear
   
3. GetData_URL = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
   
4. webURL = GetData_URL
   
5. webURL = "URL;" & GetData_URL
   
6. With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
   
7.          
   
8.         .RefreshStyle = xlOverwriteCells
   
9.                 .WebTables = "1"
   
10.        .Refresh BackgroundQuery:=False
    
11. End With
    
12. Columns("A:A").TextToColumns Destination:=[A1], comma:=True '，資料剖析逗號分隔
    
13. End Sub

複製代碼

GBKEE

回復 1# vesperlee

1. Sub Ex()
   
2.     Dim wb As String
   
3.     wb = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
   
4.     Workbooks.Open (wb)
   
5. End Sub

複製代碼