用SQL处理CSV

2010-10-03 40 views 0 likes

这行VBA代码从网上下载CSV文件并将数据转储到电子表格中。有人可以帮助我弄清楚如何调整此代码中的SQL，以便选择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

来源

2010-10-03 AME

就“关闭”，并没有其他的列 - 例如无日期”？另外，您是否想要标题为“关闭”的栏目或“调整关闭”栏目？ – barrowc 2010-10-05 00:29:25

回答

这是一个替代方案来达到您的最终结果。可能是这样做的不正确的方式，但我已经测试过它，它的工作原理。

后你得到的数据，您可以执行此：

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

来源

2010-10-03 08:23:55 Jorge

用SQL处理CSV

回答

相关问题