Awhile back<\/B><\/A> we answered a similar question about adding a hyperlink to a Microsoft Word document. In order to answer this question, we pretty much took the script we wrote for that column, crossed out Microsoft Word<\/I> and wrote in Microsoft Excel<\/I>. We are suitably ashamed and embarrassed and we promise that something like this will never happen again.<\/P>\nWell, not unless someone wants to know how to add a shortcut to a PowerPoint presentation \u2026.<\/P>\n
Admittedly, we didn\u2019t exactly knock ourselves out for today\u2019s column; on the bright side, however, everyone gets a useful little script out of the deal. If you want to add a hyperlink to an Excel spreadsheet here\u2019s what you need to do:<\/P>
Set objExcel = CreateObject(“Excel.Application”)\nobjExcel.Visible = True<\/p>\nSet objWorkbook = objExcel.Workbooks.Add\nSet objWorksheet = objWorkbook.Worksheets(1)<\/p>\n
objWorksheet.Cells(1, 1) = “Script Center”<\/p>\n
Set objRange = objExcel.Range(“A1”)\nSet objLink = objWorksheet.Hyperlinks.Add _\n (objRange, “http:\/\/www.microsoft.com\/technet\/scriptcenter”)\n<\/PRE>\n
As you can see, we begin by creating an instance of the Excel.Application<\/B> object and then setting the Visible<\/B> property to True; that gives us a running instance of Microsoft Excel that we can see onscreen. Next we use these two lines of code to create a new workbook and a new worksheet:<\/P>Set objWorkbook = objExcel.Workbooks.Add\nSet objWorksheet = objWorkbook.Worksheets(1)\n<\/PRE>\nOnce we have that worksheet we then use this line of code to add the term \u201cScript Center\u201d to cell A1 (that is, cell row 1<\/B>, column 1<\/B>):<\/P>objWorksheet.Cells(1, 1) = “Script Center”\n<\/PRE>\nAs you probably figured out, we\u2019re going to use Script Center as the hyperlink text.<\/P>\n
OK, so what about<\/I> the hyperlink? Well, to begin with, we need to create an instance of the Excel Range<\/B> object, an instance that will encompass the hyperlink text. Because we want to hyperlink to appear in cell A1 we create a range that consists solely of cell A1:<\/P>Set objRange = objExcel.Range(“A1”)\n<\/PRE>\nAll that\u2019s left now is to call the Add<\/B> method and add a new link to the Hyperlinks<\/B> collection. Here\u2019s how we do that:<\/P>Set objLink = objWorksheet.Hyperlinks.Add _\n (objRange, “http:\/\/www.microsoft.com\/technet\/scriptcenter”)\n<\/PRE>\nPretty simple, huh? We just call the Add method and pass it two parameters: the object reference for our Range object (objRange) and the URL for the hyperlink (http:\/\/www.microsoft.com\/technet\/scriptcenter). You\u2019ll now be able to click on cell A1 and transport yourself to the Script Center. <\/P>\n
Yes, exactly<\/I> like the transporters on the old Star Trek<\/I> TV show.<\/P>\n
OK, OK, we admit it: it\u2019s nothing at all like the transporters on the old Star Trek<\/I> TV show. You guys are a tough audience; if this keeps up we might have to start telling the truth once in awhile. With that in mind, the Scripting Guys would like to issue the following corrections: Dean Tsaltas is from Canada, not Pluto. Peter Costantini isn\u2019t 537 years old (not till April anyway) and Jean Ross is not a talking squirrel. Finally, Greg Stemp did not<\/I> win the 1937 Miss Nebraska beauty pageant; in fact, he did not even place in the top 10.<\/P>\n
We hope you\u2019re satisfied now.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I add a hyperlink to an Excel spreadsheet?— J B-N Hey, J B-N. To begin with, we\u2019d like to point out that we\u2019re well aware of all the recent media scandals involving such prestigious organizations as The New York Times. As you know, many of those scandals revolve around writers […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[48,49,3,5],"class_list":["post-68593","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-excel","tag-office","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I add a hyperlink to an Excel spreadsheet?— J B-N Hey, J B-N. To begin with, we\u2019d like to point out that we\u2019re well aware of all the recent media scandals involving such prestigious organizations as The New York Times. As you know, many of those scandals revolve around writers […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/68593","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=68593"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/68593\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=68593"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=68593"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=68593"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n