VBS 脚本在 Excel 中创建指向外部网站的热链接答案

【问题标题】：VBS scripting to create a hotlink to external website in ExcelVBS 脚本在 Excel 中创建指向外部网站的热链接
【发布时间】：2016-03-28 18:36:45
【问题描述】：

我们有一个例程，它创建一个使用 VisualBasic 运行的文件，然后创建一个 Excel 电子表格。该方法相对简单，但我在尝试创建指向外部网站的可点击 URL 时遇到了问题。这是代码的sn-p：

xlApp.Cells(14,1).Value="3. Here is some valid sample text:"
xlApp.Cells(14,1).WrapText=True
xlApp.Cells(14,1).Font.FontStyle="Plain"
xlApp.Cells(14,1).HorizontalAlignment=-4131
xlApp.Cells(14,1).IndentLevel = 3

***这是无效的部分 xlApp.Cells(15,1).Select xlApp.ActiveSheet.Hyperlinks.Add Anchor=选择，地址：= _ "http://www.testedu.edu/", TextToDisplay="www.testedu.edu"

xlApp.Cells(16,1).WrapText=True
xlApp.Cells(16,1).Font.FontStyle="Plain"
xlApp.Cells(16,1).HorizontalAlignment=-4131
xlApp.Cells(16,1).IndentLevel = 3
xlApp.ActiveWorkbook.Saved=True

我尝试了多种选项来创建活动 URL，但我似乎无法获得正确的语法。我尝试过使用 =HYPERLINK 语法，但没有成功，尝试了各种其他东西，但找不到密钥。我希望有人可以找出问题并让我直截了当。

谢谢！

迈克

【问题讨论】：

标签： excel url vbscript vba

【解决方案1】：

您添加超链接的代码在应该使用“:=”时使用“=”。试试这个。

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.testedu.edu/", TextToDisplay:="www.testedu.edu"

史蒂夫

【讨论】：