批量加超链接的宏代码

VBA各种超链接代码

功能：遍‎历指定路径‎中的文件夹‎，并在当前‎工作表中添‎加超链接‎Sub ‎c hief‎z jh1(‎)Dim‎i%, ‎r%, m‎F dr$,‎mPth‎$, aD‎r s()‎r = 1‎mpat‎h = "‎h:\"‎m Fdr ‎= Dir‎(mpat‎h, vb‎D irec‎t ory)‎Do W‎h ile ‎m Fdr ‎<> ""‎If m‎F dr <‎> "."‎And ‎m Fdr ‎<> ".‎." Th‎e n‎ If ‎G etAt‎t r(mp‎a th &‎mFdr‎) = 1‎6 The‎n '‎f olde‎r=16,‎f ile=‎32‎‎ReDi‎m Pre‎s erve‎aDrs‎(1 To‎r)‎‎ aDr‎s(r) ‎= mpa‎t h & ‎m Fdr‎‎ r ‎= r +‎1‎ End‎IfE‎n d If‎mFdr‎= Di‎rLoo‎pWit‎h Act‎i veSh‎e et‎ Fo‎r i =‎1 To‎r - ‎1‎‎.Hype‎r link‎s.Add‎anch‎o r:=.‎C ells‎(i, 1‎), Ad‎d ress‎:=aDr‎s(i) ‎ N‎e xt i‎End ‎W ith‎E rase‎aDrs‎End ‎S ub*‎*****‎****R‎e mark‎*****‎*****‎*****‎常数‎值‎描述‎v bNor‎m al ‎0 常‎规v‎b Read‎O nly ‎1 只‎读v‎b Hidd‎e n ‎2隐藏‎vb‎S yste‎m4‎系统文‎件v‎b Dire‎c tory‎16 ‎目录或文‎件夹‎v bArc‎h ive ‎32 ‎上次备份‎以后，文件‎已经改变‎vba‎l ias ‎64 ‎指定的文‎件名是别名‎。

excel中如何批量添加超链接

excel中如何批量添加超链接
第一张sheet表是所有老师的名字，一个老师占一行，后面有几百张sheet表，分别对应老师名字把超链接粘上，有没有批量添加的方法，谢谢各位高手~
=HYPERLINK("#"&A2&"."&B2&"!A1",B2)
或
=HYPERLINK("#"&A2&"."&B2&"!A1","★")
下拉复制公式
如果工作表名只有姓名，公式：
=HYPERLINK("#"&B2&"!A1",B2)
题外话：
用一个工作表一人信息的方法不可取，本人认为用两张表就可以完成所需功能，即列一张信息总表，第行一个记录，录入所有人员信息；另一张查询表（个人表），用姓名作关键字，用VLOOKUP函数引用信息总表数据。

追问
你说的这方法我们也觉得方便，可是领导人家不要这样的，领导就想要复
杂的。

而且我们做的数据量特别大，一千多个老师，每个老师有很多信息，放在一张SHEET确实不方便看数据。

回答
你说重新整理数据麻烦倒有一说，说不方便看数据就不见得了。

在名单中找某个人，点击链接到对应工作表；和在下拉列表中找某个人，自动调用数据是差不多的。

批量添加和删除EXECL超级链接的方法

批量添加和删除EXECL超级链接的方法
在日常使用EXECL中我们常常需要将EXECL表格超级谅链接到本地或者网络中得某一路径，对于单个单元格的操作方法网上到处都是，而且很容易就操作了，这里就不讲解了，今天主要将一下批量操作的方法：
1.批量添加超级链接,可以使用公式HYPERLINK，公式使用格式：HYPERLINK（”
链接路径”,单元格显示内容），比如HYPERLINK（”D:\123”,123）就是将选定单元
格链接到D:\123的目录下面，并且单元格显示123，备注：公式中得路径可以是绝
对路径也可以是引用路径，比如HYPERLINK（A1，A2），即使链接到A1单元格
所显示的路径下面，单元格显示A2的内容！公式循环利用示列：HYPERLINK("E:\
网络购物\原始图片\女\"&M2,M2)
2.批量删除单元格超级链接，方法是使用宏操作Selection.Hyperlinks.Delete，该方法
来自于网络，但是网络给予的方法是讲整个Sheet的链接全部删除，本人加以修改
可以删除指定区域的链接，
Range("M:M").Select
Selection.Hyperlinks.Delete 使用这两行代码就可以删除M列的所有超级链接了，
并且可以将M:M更改成任意你想删除的单远格区域即可删除指定单元区域的链接
了！。

怎样批量激活excel中的超链接

怎样批量激活excel中的超链接
本人在一个excel工作薄中建立了几百个超链接，但在昨天打开excel时发现其中的超链接打不开了，一一编辑太麻烦了，下面的方法让我轻松搞定。

1、打开excel工作薄（您要激活超链接的xls文档）。

2、建立一个名叫“批量激活超链接”的宏：先按住Alt键不松开，再依次按F11、I、M键，在“模块X代码”（X是指第几个模块，可以关闭已有的模块，在空白模块）中的<通用>下<编辑区>粘贴如下代码：
Sub批量激活超链接()
For Each C In [C8:C300]
ActiveSheet.Hyperlinks.Add C, C.Value
Next
End Sub
代码中红色的C8:C300，是指要批量激活超链接的单元格；蓝色的批量激活超链接是宏名。

红色的地方可根据您excel工作薄中的实际而定，蓝色的地方也可重命名。

3、执行“批量激活超链接”的宏：回到打开的excel工作薄中，先按住Alt键不松开，再依次按下T、M、M，在宏名下选择“批量激活超链接”，点击“执行”即可。

值得注意的是：要把工作薄放在要超链接的目录中。

我是一只名符其实的菜鸟，就是用此法成功的<超简单，特有效>，故写下此文，以资共享。

另：怎样在excel中批量取消超链接
1、选中要批量取消超链接的地方，再在选中处“复制”，到别处（有足够空白单元格的地方）“选择性粘贴”，选“数值”，“确定”（超链接是不是没有了，如果想要使工作薄回原样，进行如下操作）。

2、删除不要超链接且已粘贴好的地方。

3、复制刚才粘贴的部分（取消了超链接的单元格），粘贴回来即可。

VBA为EXCEL批量加入超链接

VBA为EXCEL批量加入超链接Sub 链接(path As String)On Error Resume NextDim myPath As StringDim myFileName As StringDim myWorksheetName As StringDim sName As StringDim addr As StringmyWorksheetName = /doc/a5609408.html, '选择活动工作表myPath = path & "\" '目标文件夹myFileName = Dir(myPath, 0)Dim file() As StringDim n, k, xx = 2n = 1: k = 1ReDim file(1 T o n)'file(1) = myPathDo Until n > k '遍历文件夹和子文件夹myFileName = Dir(file(n), vbDirectory)Do Until myFileName = ""If InStr(myFileName, ".") = 0 Thenk = k + 1ReDim Preserve file(1 To k)file(k) = file(n) & myFileName & "\"End IfmyFileName = DirLoopn = n + 1LoopFor n = 1 To k '添加链接myFileName = Dir(file(n) & "*.*")Do Until myFileName = ""addr = file(n) & myFileNamesName = Left(myFileName, Application.Find(".", myFileName) - 1)Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:=addr, TextToDisplay:=sName'Range("B" & x).Value = myWorksheetNameRange("D" & x).Value = Format(CreateObject("scripting.filesystemobject").getfile(addr). DateCreated, "yyyy-mm-dd hh:nn") '文件创建时间x = x + 1myFileName = DirLoopNext'按时间排序降序Columns("D:D").SelectActiveWorkbook.Worksheets(myWorksheetName).Sort.Sort Fields.ClearActiveWorkbook.Worksheets(myWorksheetName).Sort.Sort Fields.Add Key:=Range("D1"), SortOn _:=xlSortOnValues, Order:=xlDescending,DataOption:=xlSortNormalWith ActiveWorkbook.Worksheets(myWorksheetName).Sort .SetRange Range("A2:D" & x).Header = xlNo.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd Sub。

Excel获取单元格超链接地址

要想批量获得有超链接的单元格的超链接地址，如果每一个右击编辑获取，那真是相当大的工作量，本人爱偷懒，终于在网上找到了更简便快速的方法，分享一下，顺便当做记录，以防忘记
STEP1：启动VB编辑器，可从Excel选项里选择然后添加到快速访问工具栏中
STEP2：点击【工具】选择【宏】
转载方法如下：
1、点击菜单“工具”->宏->宏->输入宏名“复制超级链接”->点“创建”
2、在宏编辑窗口里，输入以下代码：
Sub 复制超级链接()
For a = 1 To 10 '这里控制读取A列的第1到10行，你根据自已的要求修改一下起始和结束行数
If Cells(a, 1).Hyperlinks.Count > 0 Then Cells(a, 2).Value = Cells(a, 1).Hyperlinks.Item(1).Name
Next
End Sub
STEP3：保存后点击运行即可
说明：Hyperlinks.Item(1).Name 参数：.Name 对应超级链接名字参数：.Address对应的是超级链接地址参数。

感谢，万能的网络。

感谢百度！。

如何在EXCEL中批量添加文件夹内文件的链接

如何在EXCEL中批量添加文件夹内文件的链接有一简单方法：点击电脑左下角的开始，在运行处输入cmd，进入DOS界面，到你说的文件夹，如路径为D:\SS\Files，则输入以下命令，都是用回车结束：D:CD SS\FilesDIR〉E:＼1.txt(回车)看到所有文件了，点击DOS窗口左上角，编辑，标记，用鼠标将这100个文件名字选中（一个白色方框，宽度为文件名最长的），再点击DOS窗口左上角，编辑，复制。

退出DOS再回到Excel中，粘贴。

然后用公式=HYPERLINK()就可以了。

在B1输入=HYPERLINK("D:\T est\"&A1&".xls",A1)粗体换为实际路径。

xls换为xlsx。

HYPERLINK请参阅创建一个快捷方式（跳转），用以打开存储在网络服务器、Intranet 或Internet 中的文件。

当单击函数HYPERLINK 所在的单元格时，Microsoft Execl 将打开存储在link_location 中的文件。

语法HYPERLINK(link_location, friendly_name)Link_location 为文档的路径和文件名，此文档可以作为文本打开。

Link_location 还可以指向文档中的某个更为具体的位置，如Execl 工作表或工作簿中特定的单元格或命名区域，或是指向Microsoft Word 文档中的书签。

路径可以是存储在硬盘驱动器上的文件，或是服务器（在Microsoft Excel for Windows 中）上的“通用命名规范”(UNC) 路径，或是在Internet 或Intranet 上的“统一资源定位符”(URL) 路径。

Link_location 可以为括在引号中的文本字符串，或是包含文本字符串链接的单元格。

如果在link_location 中指定的跳转不存在或不能访问，则当单击单元格时将出现错误信息。

excel多文件批量超链接处理教程

批量处理可以减少很多重复劳动，提高工作效率。

建立多文件批量超链接步骤：
1. 按快捷键Win+R，打开运行窗口，输入cmd,打开命令行，分别输入以下内容：
（1）H: +回车（跳转至H盘）
（2）cd H:\音乐 +回车 (打开文件夹所在目录)
（3）“dir /b>rename.xls"（在“H:\音乐”里自动生成了一个名叫rename的表格，其将“H:\音乐”里所以文件的名字列在excel中）
2.将rename表格打开，按以下步骤操作
（1）在最上面插入空白行
（2）在表格A1中输入“H:\音乐”（指明文件夹地址）
（3）在表格B2中输入超链接公式“=HYPERLINK($A$1&”\”&A2,A2)”，依次拉下来就可以了（其中$A$1为绝对地址“H:\音乐”的起始位）
3.注意输入的所有字符都是英文字符。

祝你成功
xqli1125
2015.1.10。

Excel中VBA怎么实现自动批量添加超链接？

Excel中VBA怎么实现⾃动批量添加超链接？想要使⽤VBA程序在Excel中批量添加超链接；将Excel其中⼀个⼯作表的某列添加另外⼀个⼯作表的某列的超链接。

下⾯我们就来看看详细的教程。

Microsoft Office 2019 正式版中⽂个⼈版/学⽣版(附批量授权) 64位类型：办公软件⼤⼩：4.67MB语⾔：简体中⽂时间：2018-09-26查看详情1、将Excel的VBA宏安全性改为最低，这样⽅便运⾏宏代码2、在Excel表格任意位置添加【按钮控件】3、改变按钮控件名称4、双击按钮控件，打开代码编辑VBA窗⼝；删除全部显⽰的代码。

5、'复制此步骤所有内容到VBA窗⼝，包括这句话。

Option ExplicitPublic Sub PiLiangChaoLianJie()'01----批量超链接，将⼀个⼯作表中的列作为超链接添加到另外⼀个⼯作表中' 宏由 keke 录制，时间: 2019/9/25'Dim S1 As String, S2 As StringDim SHEET_NAME As StringDim LINK_CELL As String, Link_S As String, LINK_Name As StringDim I As IntegerDim LINK_text As StringDim Str_i%, End_i%Str_i = InputBox("请输⼊起始⾏", , 1)End_i = InputBox("请输⼊结束⾏", , 50)SHEET_NAME = InputBox("请输⼊需要添加超链接的【⼯作表】名字", , "sheet1")S2 = InputBox("请输⼊需要创建连接的【列】名", , "A")LINK_Name = InputBox("请输⼊链接到的【⼯作表】的名字", , "sheet2")Link_S = InputBox("请输⼊链接到⼯作表所在的【列】名", , "A")For I = Str_i To End_iLINK_CELL = LINK_Name & "!" & Link_S & IS1 = S2 & IRange(S1).SelectSheets(SHEET_NAME).SelectIf Worksheets.Application.Range(LINK_CELL).Value = "" ThenLINK_text = LINK_CELLElseLINK_text = Worksheets.Application.Range(LINK_CELL).ValueEnd IfActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LINK_CELL, TextToDisplay:=LINK_text Next IEnd SubPrivate Sub CommandButton1_Click()PiLiangChaoLianJieEnd Sub上⼀页12下⼀页阅读全⽂。

Excel批量创建超链接

Excel批量创建超链接
先来了解一下Excel中的网址为何没有超链接，大致有以下4种情况。

1 输入网址时，Excel未开启自动更正选项（建议设置勾选）。

2 从其他来源复制粘贴时在单元格直接粘贴，未进入编辑状态。

3 将已有链接取消了超链接
4 在输入网址回车以后又按了Ctrl+Z，撤销仅取消超链接，不会撤销已输入的网址。

好了，在了解了没有超链接网址的生成原因之后，我们来看一下对木已成舟的网址如何批量创建超链接。

1 复制粘贴法
复制粘贴也能生成超链接？似乎有点不可思议。

当然啦，这里要借助HYPERLINK函数帮忙啦，在D2单元格输入公式=HYPERLINK(C2)往下复制，然后按2次Ctrl+C复制，再到目标单元格点击剪贴板上的内容粘贴就OK啦。

2 双剑合璧法
Excel和Word永远是一对密不可分的好朋友，很多工作由她俩合作完成那效率是杠杠的。

复制无超链接网址，到Word中粘贴，然后按Alt+Ctrl+K（自动套用格式），看到什么变化了吗，接下来再把这些网址搬回Excel就OK啦
3 WPS有绝活
使用WPS的小伙伴骄傲的说，我只需点点鼠标就能搞定，选择数据，点【开始】-【格式】-文本转换成超链接。

好了，今天的分享就是这些，动手练一练，学习效果会更好。

图文制作：心电感应。

Vba实现同一文件夹下的批量文件生成excel表格超级链接

Vba实现同一文件夹下的批量文件生成excel表格超级链接最近excel实践者比较忙了，所以更新博文迟了。

今天来介绍一个函数教程学员遇到的一个问题。

值得庆贺的事，函数入门教程购买的学员已经突破100人了。

下述要介绍的vba代码是网上找的。

Vba编程是个好东西，对于非编程出生的人员，学好编程很难，但是入门，我感觉还是比较容易的。

我们能看懂vba编程并去整合修改代码，为我所用，我觉得是足够了。

今天要介绍的代码，也不是我的。

说实话，这段代码，对于非编程人员太难了，我只是整合了下为自己所用罢了。

该excel运行下的vba编程的效果就是把同一文件夹下的批量文件生成一个个能在excel工作表里生成超级链接。

方便以后，不沿着路径去打开，也能实现对文件的调用等操作。

以下为完全代码，下面的源文件里也有。

具体操作是启用宏，点快捷键alt+F11进入VBE编辑器，复制下段代码进去，点击运行。

关于宏和编程的入门使用，请看这篇尚西博客中的视频介绍 Vba代码如下：Sub add_link()On Error GoTo err_exit Dim fd As FileDialogSet fd = Application.FileDialog(msoFileDialogFolderPicker)Dim vritem As Variant With fdIf .Show = -1Then i = 0For Each vritem In .SelectedItemsi = i + 1 dname = vritem Next vritemIf i >= 2 Then MsgBox ("不能够选择多个文件夹，请重新选择") Exit SubEnd IfEnd IfEnd WithSet fd = Nothingdir_name = (dname & "\")strfilename = Dir(dir_name)J = 0 n = 2Do While strfilename <> ""Sheets(1).Cells(n, 1) = strfilename'sheets(1)代表结果反映在第一个表里，改成2就是第二个表了。

快速插入当前工作表的链接

快速插入当前工作表的链接在Excel中，我们经常需要在同一工作簿的不同工作表之间进行跳转和引用。

为了快速插入当前工作表的链接，我们可以采用以下方法：1. 使用超链接函数：在Excel中，可以使用HYPERLINK函数来创建链接。

首先，在需要插入链接的单元格中，输入如下公式：=HYPERLINK("#'"&CELL("filename",A1)&"'!A1","当前工作表")其中，A1为当前单元格的地址，"当前工作表"为链接名称。

这个公式的作用是创建一个跳转链接，点击该单元格后会跳转到当前工作簿的同一工作表的A1单元格。

2. 使用宏：如果需要经常插入当前工作表的链接，可以使用宏来实现自动插入。

打开Visual Basic for Applications（VBA）编辑器，在当前工作簿的VBA项目中插入以下代码：Sub InsertLink()Dim ws As WorksheetDim link As HyperlinkSet ws = ActiveSheetSet link = ws.Hyperlinks.Add(Anchor:=Selection, Address:="", _SubAddress:="'" & & "'!A1", TextToDisplay:="当前工作表")End Sub然后，保存并关闭VBA编辑器。

每次需要插入当前工作表的链接时，只需要选中需要插入链接的单元格，然后运行该宏即可。

3. 使用快捷键：为了更快速地插入链接，可以自定义一个快捷键。

点击"文件"，选择"选项"，在"自定义功能区"中选择"快速访问工具栏"。

Excel怎么做超链接

Excel怎么做超链接篇一：EXCEL中怎样批量设置超链接EXCEL中怎样批量设置超链接sheet1对应后面的所有sheet 请参考如下步骤在第一个工作表自动批量生成指向后续各个工作表的超链目录：1、把光标放在第一个工作表希望插入目录的地方；2、键入Alt+F11打开VBA编辑器，然后选择菜单“插入 - 模块”；3、在代码编辑区粘贴如下代码：Option ExplicitSub AutoGenerateHyperlinks()Dim nIndex As IntegerDim oRange As RangeFor nIndex = 2 ToSet oRange = Cells( + nIndex - 2, )Anchor:=oRange, Address:=““, SubAddress:=Sheets(nIndex).Name & “!A1”,TextToDisplay:=Sheets(nIndex).NameNextEnd Sub4、键入F5运行，再键入Alt+F11切换回第一个工作表，检查目录超链是否自动建立成功。

注意：工作表的名称不能包括空格，否则生成的超链接将失去链接的效果。

以下函数去掉空格，也可以重命名sheet：Sub RenameSheet()Dim nIndex As Integer= FalseFor nIndex = 2 ToSheets(nIndex).Name = Replace(Sheets(nIndex).Name, ““, ““) ‘Sheets(nIndex).Name = “报表” &nIndex rem 重命名sheet Next nIndex= TrueEnd Sub篇二：Excel中的批量超链接创建与批量超链接删除Excel中的批量超链接创建与批量超链接删除关键词：HyperLink语法：HYPERLINK(link_location, friendly_name)Friendly_name可以省略，这样就变成了HYPERLINK(link_location)。

vba hyperlinks的用法

vba hyperlinks的用法VBA (Visual Basic for Applications) 是一种用于在Microsoft Office产品中编写宏的编程语言。

在VBA中，我们可以使用超链接（hyperlinks）来连接不同的文档、网页或者执行VBA代码中的其他程序。

本文将详细介绍VBA超链接的用法，包括如何添加、修改和删除超链接，以及如何在VBA代码中使用超链接。

一、添加超链接在VBA中，可以使用Hyperlinks对象来添加超链接。

Hyperlinks对象是指向单元格上的超链接的集合，该集合位于Worksheet对象上。

下面是一个简单的示例代码，演示了如何在VBA中添加超链接到单元格：Sub AddHyperlink()Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表的名称Dim rng As RangeSet rng = ws.Range("A1") '替换为你要添加超链接的单元格Dim hyperlink As HyperlinkSet hyperlink = rng.Hyperlinks.Add(rng, " '替换为你的目标网址MsgBox "超链接已添加到单元格" & rng.AddressEnd Sub在上面的示例代码中，首先声明了一个Worksheet对象ws，它被设置为该示例工作簿（ThisWorkbook）中名为"Sheet1"的工作表。

然后，声明了一个Range对象rng，它被设置为需要添加超链接的单元格。

接下来，声明了一个Hyperlink对象hyperlink，并通过调用Add方法向rng单元格添加了一个超链接。

可以通过更改Add方法的第二个参数来指定超链接的目标地址。