Dowloading internet data to worksheet form a ".ccv" file
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 |
All times are GMT +1. The time now is 07:29 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com