Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old April 24th 05, 08:24 PM
Duane L Kibby
 
Posts: n/a
Default 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


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Expand/Collapse Grouped Data in Protected Worksheet Robert Slattery Excel Discussion (Misc queries) 8 November 24th 15 05:08 PM
Search/Match between 2 x separate Worksheets and populate result in third worksheet Alan Bartley Excel Discussion (Misc queries) 1 April 11th 05 05:21 AM
Weekly Transaction Processing Ralph Howarth Excel Worksheet Functions 4 January 19th 05 05:37 AM
Pulling data from 1 sheet to another Dave1155 Excel Worksheet Functions 1 January 12th 05 05:55 PM
URGENT Please... new worksheet with copied formats but no data. DarrellK Excel Worksheet Functions 2 December 1st 04 07:11 PM


All times are GMT +1. The time now is 07:45 PM.

Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright 2004-2019 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017