How to create friendly excel popups!

H

Hatcheda

Active Member
Joined
Dec 8, 2005
Messages
354
Apply the following code to a module. or the workbook for a workbook open event.

Code: 
Sub CtrlX()
Application.ScreenUpdating = False
WS = ActiveSheet.name
Sheets("Sheet3").Activate

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.mygoalmanager.com/goals/quoteRss.asp", Destination:=Range("A2"))
.name = "quoteRss":   .FieldNames = True:   .RowNumbers = False
.FillAdjacentFormulas = False:   .PreserveFormatting = True
.RefreshOnFileOpen = False: .BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells: .SavePassword = False
.SaveData = True:  .AdjustColumnWidth = True
.RefreshPeriod = 0: .WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone: .WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True: .WebSingleBlockTextImport = False
.WebDisableDateRecognition = False: .Refresh BackgroundQuery:=False
End With
Cells.Replace What:="document.write(", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="
*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets(WS).Activate
Application.ScreenUpdating = True
MsgBox Sheets("Sheet3").Range("A2")

End Sub

Just having some fun!
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
Try it out.

Each time you run the code you get a different quote from the target website.

Enjoyed it :wink:

Denis
 
I’m gonna plug this into my colleagues’ workbooks to fire up when they open Excel every morning as a thought for the day!

Most amusing! :) :) :)
 
OK - Hatcheda - to continue our discussion...

Customizing Outlook Today with:
Code: 
<BODY> 



 

<TABLE WIDTH="60%" ALIGN="center"> 
 <TR> 
  <TD> 
   <font face="verdana" size="3" color="blue"> 
   <script language='JavaScript' src='http://www.mygoalmanager.com/goals/quoteRss.asp'> 
   </script></font> 
  </TD> 
 </TR> 
</TABLE> 



 

</BODY>

How does one do that?
 
Well, the outlook today page is really just a webpage . . . so
you can link any page using the following:

Make a backup of your system registry.
Run the Registry Editor (regedit.exe).
Navigate to the HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Today subkey.
Create a new STRING value, named URL.
For the value of URL, enter the address of the web page you want to view when you click Outlook Today.

In my case, I wanted to keep the outlook page, not something like yahoo :-)
But I wanted it different, So I downloaded the pack from
http://www.microsoft.com/downloads/...66-0d59-4755-bcb2-499d966f00c5&DisplayLang=en
and edited the outexmpl to my liking: It includes links to my most used sites and a daily quote at the bottom! -Added by applying the code posted earlier to the bottom.

Add in no way have I ever changed the real page. -So I could just delete the URL STRING value

The pack comes with a great white paper with far more than you may want to know. -But there if needed!
 
...The pack comes with a great white paper with far more than you may want to know...
~Hatcheda
Click to expand...

Cool. 8-) Now I have something to read in the event some *@#$%~!! nicks the comics from the lunchroom again today. :lol: Thanks!
 
Cute!
~Hatcheda
Click to expand...

:huh: At 6'4", 300+ lbs and with a back that's fuzzier than most fellers' chests, I must say I don't hear that word directed at me too often. :lol:
 
You must log in or register to reply here.

Forum statistics

Threads
1,222,710
Messages
6,167,778
Members
452,141
Latest member
beraned1218

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top