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

---

作者: vesperlee    時間: 2013-1-14 02:05     標題: 用VBA開啟的網頁資料csv檔，如何不為一長串的字串？

我用附檔 開啟的網頁資料  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工作表上開啟它的網頁？
謝謝解惑！


[attach]13924[/attach]

---

作者: Hsieh    時間: 2013-1-14 08:35

回復 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    時間: 2013-1-14 15:47

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)