Dowloading internet data to worksheet form a ".ccv" file

D

Duane L Kibby

I am download stock data with the following code.

Set shFirstQtr = Workbooks(1).Worksheets(2)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection:="URL;http://finance.yahoo.com/d/quotes.csv?s=" &
Left(SymbolString, Len(SymbolString) - 1) & "&f=l1vb3b2ogha2&e=.csv", _
Destination:=shFirstQtr.Cells(2, 2))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True

.WebFormatting = xlRTF
.Refresh
End With

The problem is that all 8 data items are piled into one column. The data is
comma delimited. I can manually, using the Data optioon and the Text to
columns , move the data to columns but I need to able to it programmatically,

Any help will be appreciated.

Duane
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top