More detailed information here:

http://www.xlconsulting.net/flink.php

Tried your code but could not get passed ‘Dim ieApp As InternetExplorer’. Is there a ‘Tools:Reference’ required to execute this statement?

Note that I can get ‘Set ieApp = CreateObject(“InternetExplorer.Application”)’ to work OK if I declare ‘Dim ieApp as Object’ but otherwise compiler balks at your code.

Any help appreciated.

Collette

I liked the succinct style of your code, but am have trouble with it! You may have inadvertently missed the ‘End With’ closure. But even after correcting that omission I still am having error at:
sHTML = .document.body.innerHTML

Are any additional VB ‘Tools:References’ required? Where should the ‘End With’ be inserted? do you get the code to run as published?

I am running vista with Excel 2003, and 3 references ‘Visual Basic For Applications’, Microsoft Excel 11.0 Object Library’ and Microsoft Forms 2.0 Object Library’.

Collette

I bet you’d have more luck at winning the big ones. They are now averaging over 4.5 games per showing as compared to the overall average of 3.5 games. It stands to reason that if everything evens out eventually, that these numbers will come out more often and the other numbers will slow down.

I’d love to know how it works out for ya, what state is this?

Sub abre(direccion, iatadestino, aaa)

Set exc = New Excel.Application
exc.Workbooks.Open (direccion)
Set ccc = exc.Worksheets(“Hoja1?)
x = 4
While aaa.Cells(x, 2) Empty
ID = aaa.Cells(x, 4)
u = 13
While ccc.Cells(u, 1) Empty
IO = ccc.Cells(u, 2)
If IO = ID Then
aaa.Cells(x, 23) = ccc.Cells(u, 10)
aaa.Cells(x, 24) = ccc.Cells(u, 11)
GoTo 1
End If
u = u + 1
Wend
1 x = x + 1
Wend
‘exc.Application.DisplayAlerts = False
exc.Quit

thanks in advance!!
Remy

Public Const URL As String = “http://finance.yahoo.com/q?s=”
Function GetQuote(sTicker As String) As String
‘=======================================================
‘Fuction written by: David Miller
‘Returns a !Yahoo Finanace quote
‘=======================================================
Dim ie As Object
Dim sHTML As String
On Error GoTo GetQuote_Err
Application.ScreenUpdating = False
Set ie = CreateObject(“InternetExplorer.Application”)
If IsNull(sTicker) Then GoTo GetQuote_Err
With ie
.Visible = False
.navigate (URL & sTicker)
Do Until .readystate = 4
DoEvents
Loop
sHTML = .document.body.innerHTML
GetQuote = Mid(sHTML, InStr(sHTML, “yfs_l10_” & LCase(sTicker)) + Len(“yfs_l10_” & sTicker & Chr(34) & “>”) – 1,
If InStr(GetQuote, ” 0 Then
GetQuote = Left(GetQuote, InStr(GetQuote, “

I just type “=GetQuote(“FFFFX”)” into a cell and I get the value.

Dave Miller

====================================================================

Public Const URL As String = “http://finance.yahoo.com/q?s=”
Function GetQuote(sTicker As String) As String
Dim ie As Object
Dim sHTML As String

On Error GoTo GetQuote_Err
Application.ScreenUpdating = False

Set ie = CreateObject(“InternetExplorer.Application”)

If IsNull(sTicker) Then GoTo GetQuote_Err

With ie
.Visible = False
.navigate (URL & sTicker)
Do Until .readystate = 4
DoEvents
Loop
sHTML = .document.body.innerHTML
GetQuote = Mid(sHTML, InStr(sHTML, “yfs_l10_” & LCase(sTicker)) + Len(“yfs_l10_” & _
sTicker & Chr(34) & “>”) – 1,
If InStr(GetQuote, ” 0 Then
GetQuote = Left(GetQuote, InStr(GetQuote, “