WPS的JS宏如何批量实现文字的超链接

表格中需要对文字进行超链接,每个链接指引到不同的地址。例如:

实现如下表格中,文件名称超级链接到对应的文件路径上,点击对应的文件名称,即可打开对应的文件。

序号文件名称文件路径
1变更申请与处理表.xls文档\系统配置\变更申请与处理表.xls
2配置审计报告.xls文档\系统配置\配置审计报告.xls
3配置权限表.xlsx文档\系统配置\配置权限表.xlsx
4配置管理总结报告.xls文档\系统配置\配置管理总结报告.xls
5配置管理计划.doc文档\系统配置\配置管理计划.doc
6配置项状态报告.xls文档\系统配置\配置项状态报告.xls

把上述表格放入Excel表中,序号对应A列,文件名称对应B列,文件路径对应C列;

JS宏对应代码编写如下:

	for(i=2;i<=7;i++)
	{//文本的超链接设置
		Range("B"+ i).Select();
		Selection.Hyperlinks.Add(Selection, Range("C"+i).Formula, "", "", Range("B"+ i).Formula);
	}

 执行之后,即可实现如下效果:

上述表中为每一条文件名称完成了相应文件路径的超级链接,点击相关的文件名称之后,即可打开对应的文件,不需要为每一条记录进行单独的指定超级链接。

扩展,下面对话框的中功能,对应的代码实现为:

//配置管理计划.doc文本 超链接到文件地址"文档\\系统配置\\配置管理计划.doc"
	Selection.Hyperlinks.Add(Selection, "文档\\系统配置\\配置管理计划.doc", "", "", "配置管理计划.doc");
	//本文档中的位置:配置管理计划.doc链接到本文档的Sheet1!A1
	Selection.Hyperlinks.Add(Selection, "", "Sheet1!A1", "", "配置管理计划.doc");
	//配置管理计划.doc 超链接到电子邮件地址,点击后自动打开电子邮件客户端(eg:foxmail),并设置好邮件地址support@163.com,以及邮件标题
	Selection.Hyperlinks.Add(Selection, "mailto:support@163.com?subject=关于配置管理计划", "", "", "配置管理计划.doc");

  • 2
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

红狐九尾

你的鼓励是我持续创作的动力!

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值