Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
HELP! run-time error 424
I am using an excel spreadsheet to track my portfolio. The macros and
spreadsheet works fine on my win2000 machine at home but not on my XP machine at work. The spreadsheet opens but when I hit the pricing function that prices my positions from yahoo.com I get this run-time error '424': MICROSOFT FORMS Could not load an object because it is not available on this machine. When I hit debug I get this part of the below text highlighted in yellow: xx = Inet1.OpenURL(myURL) ---------------------------------------- Private Sub doit() BuildRanges 'Build list of open symbols: SymbList = "" SymbCount = 0 For i = openStart To openEnd If Cells(i, colSymbol) < "" Then If SymbCount < 0 Then SymbList = SymbList & "," End If SymbList = SymbList & Trim(Cells(i, colSymbol)) SymbCount = SymbCount + 1 End If Next i 'Get quotes from Yahoo myURL = "http://finance.yahoo.com/d/quotes.csv?s=" & SymbList & "&f=sl1d1t1c1ohgv&e=.csv" xx = Inet1.OpenURL(myURL) Open quotesFile For Output As #1 Print #1, xx; Close #1 UserForm1.Hide ' Update Open Trades with current prices Open quotesFile For Input As #1 Do While Not EOF(1) Input #1, Ysymbol, Yprice, Ydate, Ytime, Ychg, Yopen, Yhigh, Ylow, Yvolume For i = openStart To openEnd If Trim(Ysymbol) = Trim(Cells(i, colSymbol)) Then Cells(i, colCurrPrice) = Yprice Cells(i, colPriceDate) = Ydate End If Next i Loop Close #1 End Sub ------------------- Any ideas on what is causing this and how can I fix it? Thanks for any help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Application Run Time Error 1004 and Stack Error | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming | |||
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming |