Create a Hyperlink in Excel Spreadsheet Using VBScript

Someone at the newsgroup asked this question. This is the VBScript that I wrote to accomplish this.

Dim objExcel
Set objExcel = WScript.CreateObject("Excel.Application")

objExcel.Visible = TRUE
objExcel.Workbooks.Open "C:\bin\test.xls"
objExcel.Workbooks(1).Activate
objExcel.Workbooks(1).Worksheets(1).Range("A1").Select

Dim sLinkAddress
sLinkAddress = "http://www.google.com"

objExcel.Workbooks(1).Worksheets(1).Hyperlinks.Add _
    objExcel.Selection, sLinkAddress
objExcel.Workbooks(1).SaveAs "C:\bin\test.xls"
objExcel.Quit

set objExcel = nothing 

Popular Web 2.0 Colors

Here is the list of the popular colors for web 2.0.

del.icio.us #0000FE
WordPress #306996
wink #387FD1
Flock #439CF0
SocialText #73A395
Technorati #4DBB00
Odeo #FF42A6
flickr #FE0094

XviD Files Crash Windows Explorer

I copied some XviD encoded AVI files to a machine without XviD codec installed. Whenever I open the folder containing these files. The Windows Explorer crashes with the following event created in the Application log.

Event Type:    Information
Event Source:    Winlogon
Event Category:    None
Event ID:    1002
Date:        2/2/2006
Time:        12:27:02 PM
User:        N/A
Computer:    MyComputer
Description:
The shell stopped unexpectedly and Explorer.exe was restarted.

For more information, see Help and Support Center at 
http://go.microsoft.com/fwlink/events.asp.

I was puzzled by this behaviour at first. The default application to handle AVI files is Windows Media Player. Oh! I forgot to mention that the machine is running Windows XP Professional SP2 with all the updates. The Windows Media Player version is 9. My first take is to upgrade the Media Player to 10. However, Windows Explorer still crashes after the Media Player upgrade. My second take is to install the XviD codec. After I installed the XviD codec, the crashes stopped. I am able to browse those files using Windows Explorer without crashing.