> Hi,
> I have a question about using Querytable to download the data from
> website, the code is like this, the question is: Is it possible to
> export the data to some variant or array defined in the VBA, instead of
> the worksheet. Since if the data has too many rows, then worksheet is
> not enought to handle all of them,
> any ideas? thanks
> Sub WebDownload()
> Dim myQTable As QueryTable
> Dim x As Variant
> Set myQTable = ActiveSheet.QueryTables.Add _
> (Connection:="URL;http://ichart.yahoo.com/table.csv?s=BMW.DE&d=0&e=24&f=2007&g=d&a=0&b=...",
> _
> Destination:=Range("A1"))
> With myQTable
> .Name = "Yahoo"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = False
> .RefreshOnFileOpen = False
> .BackgroundQuery = True
> .RefreshStyle = xlOverwriteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .WebSelectionType = xlEntirePage
> .WebFormatting = xlWebFormattingRTF
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = False
> .WebDisableDateRecognition = False
> '.WebDisableRedirections = False
> .Refresh BackgroundQuery:=True
> End With
> End Sub
|
