Need some VB help. (Or get this example to work...)

[BChico]

I need to be able to get CSVs from Yahoo finance and dump it into a file. I couldnt find any good examples on Google. Has anyone worked with this?

I think its something that is pretty common, so I was just checking to see if anyone had anything i could use.

Thanks

 

[BChico]

This looks like a decent example, but i cant get it working. It is giving me some error abour LBound... If someone can figure out how to get this working in a project, with a single text box and button i would really appreciate it.

http://www.vb-helper.com/howto_get_stock_prices.html

 

[xtknight]

Very easy to get working.

Open Notepad, copy the attached code in to a file and save it as yahoo-stockquote.frm.

Make a new standard project in VB6. Remove the new form it automatically gives you. Load the components dialog and add MSINET.ocx ("Microsoft Internet Transfer Control"). Then load in yahoo-stockquote.frm to your empty project. Run it, and change Startup Object to Form1 if asked.

It had given you crap about LBound/UBound because you didn't have an array of textboxes. Any txtSymbol(x) textbox you create will be added to the loop in which to retrieve stocks. I made four in this example. Then I just created the other obligatory objects and set txtQuotes (receiver) to MultiLine=True so it can accept multiple lines of text. The txtSymbol textboxes are set to default to stocks Microsoft Corporation, ATI Technologies Inc., NVIDIA Corporation, and AMD.

 

[BChico]

Originally posted by: xtknight
Very easy to get working.

Open Notepad, copy the attached code in to a file and save it as yahoo-stockquote.frm.

Make a new standard project in VB6. Remove the new form it automatically gives you. Load the components dialog and add MSINET.ocx ("Microsoft Internet Transfer Control"). Then load in yahoo-stockquote.frm to your empty project. Run it, and change Startup Object to Form1 if asked.

It had given you crap about LBound/UBound because you didn't have an array of textboxes. Any txtSymbol(x) textbox you create will be added to the loop in which to retrieve stocks. I made four in this example. Then I just created the other obligatory objects and set txtQuotes (receiver) to MultiLine=True so it can accept multiple lines of text. The txtSymbol textboxes are set to default to stocks Microsoft Corporation, ATI Technologies Inc., NVIDIA Corporation, and AMD.

Thanks! Im not the best at VB...

 

[BChico]

Originally posted by: xtknight
Very easy to get working.

Open Notepad, copy the attached code in to a file and save it as yahoo-stockquote.frm.

Make a new standard project in VB6. Remove the new form it automatically gives you. Load the components dialog and add MSINET.ocx ("Microsoft Internet Transfer Control"). Then load in yahoo-stockquote.frm to your empty project. Run it, and change Startup Object to Form1 if asked.

It had given you crap about LBound/UBound because you didn't have an array of textboxes. Any txtSymbol(x) textbox you create will be added to the loop in which to retrieve stocks. I made four in this example. Then I just created the other obligatory objects and set txtQuotes (receiver) to MultiLine=True so it can accept multiple lines of text. The txtSymbol textboxes are set to default to stocks Microsoft Corporation, ATI Technologies Inc., NVIDIA Corporation, and AMD.

If i want to throw this into another form i already have, what would be the best way to do that?