Thanks for the pointer, Carey. I found the Microsoft MSN stock quote macro
here
http://www.vertex42.com/ExcelTemplat...ck-quotes.html
and they're very explicit about the macro working with Excel 2007. But I do
take your point about the listed supported versions of Excel on the MS Web
page itself not including Excel 2007. I'm still confused why the MS Web page
validation step would say "Microsoft Office Ultimate 2007: Product Not
Activated" (which is incorrect) instead of saying something like "This macro
does not support Excel 2007". That's a bug.
I've given up trying to get the MSN stock quote macro from Microsoft to work
with my Excel 2007. I wrote my own which takes the selected cell and
retrieves and places the current stock/fund quote in the cell to immediate
right. It is below in case anyone else can use it.
-Andy
Sub GetStock()
Dim s As String
Dim ret As Double
Dim tempSheet As Worksheet
s = Selection.Value
Set tempSheet = ActiveWorkbook.Worksheets.Add
tempSheet.Visible = xlSheetHidden
With tempSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q/cq?s=" & s,
Destination:=tempSheet.Range("$A$1"))
.Name = "cq?s=msft"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "11"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ret = tempSheet.Range("C2").Value
Application.DisplayAlerts = False
tempSheet.Delete
Application.DisplayAlerts = True
ActiveCell.Offset(0, 1).Value = ret
End Sub
"Carey Frisch [MVP]" wrote:
> That file "Excel 2003/2002 Add-in: MSN Money Stock Quotes"
> is not supported in Office 2007. Read the system requirements.
>
> --
> Carey Frisch
> Microsoft MVP
> Windows Desktop Experience -
> Windows Vista Enthusiast
>
> ---------------------------------------------------------------
>
> "Andy" <Andy@discussions.microsoft.com> wrote in message news:36A03D6D-0C79-46D9-9846-E1E88F274040@microsoft.com...
> Hi,
>
> I have an activated Office 2007 Ultimate which seems fine in every way
> EXCEPT when I try to pull down an Excel 2003 "MSN Stock Quote" macro
> (http://www.microsoft.com/downloads/d...displaylang=en)
> which fails re-validation of Office 2007 with "Microsoft Office Ultimate
> 2007: Product Not Activated." I was instructed by "Lori MS" in the Office
> Genuine Advantage forum to delete the file C:\Documents and Settings\All
> Users\Application Data\Microsoft\Office\Data\data.dat to cause it to
> re-activate. I didn't have a data.dat file in that directory but did have an
> opa12.dat which I renamed and it seemed to have desired effect of asking me
> to re-activate Office next time I fired up MS Word. And that re-activation
> went fine. HOWEVER, when I try to retrieve the macro from MS site, same
> problem. Still says "Microsoft Office Ultimate 2007: Product Not Activated."
>
> "Lori MS" advised if I still had Genuine Advantage problems, to post them
> here (and not in the "Office Genuine Advantage Validation Issues" group I
> originally posted to). I still have a problem in that MS Excel Macro Web
> site still refuses to validate my Office 2007 Ultimate installation properly
> (perhaps that Web site itself is broken in the way it verifies Office 2007
> activation??). For more details on my configuration, please see the original
> string at
> http://forums.microsoft.com/genuine/...8680&siteid=25.
>
> Thanks for any help with ongoing Office 2007 validation (detection) issues!
> Seems like validation bugs should not get in the way of getting value out of
> Microsoft products.
>
> -Andy
>
>
Linear Mode
