Управление CSV с помощью SQL

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