用SQL處理CSV

Question

這行VBA代碼從網上下載CSV文件並將數據轉儲到電子表格中。有人可以幫助我弄清楚如何調整此代碼中的SQL，以便選擇CSV表中的「關閉」列並將該列插入到電子表格中？謝謝！

Sub test() 
Dim sqldata As QueryTable 

Set sqldata = ActiveSheet.QueryTables.Add(_ 
Connection:="TEXT;http://ichart.finance.yahoo.com/table.csv?s=JAZZ&d=9&e=3&f=2010&g=d&a=5&b=1&c=2007&ignore=.csv" & _ 
"sqlstring= SELECT * from table", _ 
Destination:=Range("A1")) 

With sqldata 
.TextFileCommaDelimiter = True 
.Refresh 'executes the retreival 
End With 
End Sub 

Answer 1

這是一個替代方案來達到您的最終結果。可能是這樣做的不正確的方式，但我已經測試過它，它的工作原理。

後你得到的數據，您可以執行此：

Application.ScreenUpdating = False 
Range("A:A,B:B,C:C,D:D,F:F,G:G").Select 
Range("G1").Activate 
Selection.Delete Shift:=xlToLeft 
Range("A1").Select 
Application.ScreenUpdating = True