Question

此行VBA代码从Web下载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

使用SQL操作CSV

1 个答案: