VBA遍历另一个excel的文件名设置超链接

Sub a()
Dim wb1 As Object
Dim x As Integer
Dim i As Integer
Dim z As Integer
Dim s As String
Path = "C:\Users\1111\Desktop\CommProtocol.xlsx" ’输入地址
Set wb1 = CreateObject(Path)
For x = 5 To 53
For i = 1 To wb1.Worksheets.Count
s = wb1.Worksheets(i).Name
If InStr(1, Cells(4, x), s) > 0 Then ‘如果含有文件名，就设置超链接
For z = 5 To 170
If Cells(z, x) <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(z, x), Address:= _
Path, _
SubAddress:="'" & wb1.Worksheets(i).Name & "'" & "!A1"
End If
Next
End If
Next
Next
End Sub

VBA遍历另一个excel的文件名设置超链接相关推荐

python给excel添加超链接_怎样使用python在excel文件中设置超链接
import os import xlwt import openpyxl import time import xlsxwriter #使用这个库创建excel def search_file(st ...
java 写入excel表，设置超链接单元格
XSSF List<String[]> allAIItems; // 将allAIItems写入excel,第一列为超链接(图片地址)try {// 定义输出流os,指向要生成的报告文件O ...
如何快速把多个excel表合并成一个excel表（不熟悉vba及公式的人）
对于不熟悉Excel公式,不熟悉vba的人,要如何按需要快速把多个excel表合并成一个excel表? 对于Excel的合并,很多需要通过vba变成,但对于不熟悉vba编程的人,如何合并呢?给大家推荐 ...
小福利，用Excel VBA编程制作一个变色小游戏
小福利,用Excel VBA编程制作一个变色小游戏设计思想:在正方形的四条边上都是设置循环函数,不断改变颜色和单元格里面的数值. Option ExplicitSub 按钮1_Click() Dim ...
如何快速提取文件名放在一个excel表里？
如何快速提取文件名放在一个excel表里?有时候因为工作的特殊原因,需要对大量的文件名进行归纳整理,将所有文件名的名称一次性的全部提取出来,然后放到一个excel表格里.这是一个典型的文件名批量提取电 ...
将多个文件的Sheet按名称提取，每个作为一个Sheet合并到一个Excel，以文件名作为Sheet名
将多个文件的Sheet按名称提取,每个作为一个Sheet合并到一个Excel,以文件名作为Sheet名. 工具界面如下: 1.点击选择需合并的文件 ,选择需要提取的文件.目录中的所有文件,用Ct ...
vba宏如何快速的把多个excel表合并成一个excel表（便捷高效）
我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel.如图所示: 接下来我们打开新建excel表格,按快捷键Alt+F11进入图示界面,或右键单击sheet1,找到& ...
.net excel循环插数据_Python实战: 如何将数据从一个Excel文件移动到另一个？
使用Python中的Pandas库,我们可以从源Excel文件中获取数据并将其插入到新的Excel文件中,然后命名并保存该文件.当您需要深入到特定数据和/或重新格式化报表的数据时,这很有用. 作为一个 ...
多个excel合并成一个excel的sheet
1.方案一:使用POI的API 缺点是:数据量稍微大一点生成特别耗时.数据量在3000条记录的样子优点:不依赖第三方应用,使用POI自己的API完成建议:小数据量可以满足要求, public cl ...

VBA遍历另一个excel的文件名设置超链接

VBA遍历另一个excel的文件名设置超链接相关推荐

最新文章

热门文章