EXCEL如何批量插入超链接
有一个总表,假如我想打开某个具体信息,就要打开另一张表,我想做个超链接,只要点一下他就能打开另一个表,这个我会做,只是这样太多了,有7000多个文件,请教高手一下具体怎样...
有一个总表,假如我想打开某个具体信息,就要打开另一张表,我想做个超链接,只要点一下他就能打开另一个表,这个我会做,只是这样太多了,有7000多个文件,请教高手一下具体怎样操作?20分悬偿,
在同一个盘和不在同一个盘的都有.显示在单元格的文字可以不用 展开
在同一个盘和不在同一个盘的都有.显示在单元格的文字可以不用 展开
展开全部
请问那7000多个文件是放在同一个目录下吗?或者说是否只要为某个目录下的所有Excel文件在那个总表里面建立超链就可以了。
还有,超链显示在单元格里面的文字是什么?文件名(去除前面的目录名)?
_____________________________________
补充,下面这个步骤可以收集位于不同文件夹下面的表格文件名,并在当前打开的这个总表的第三列里为所有这些表格文件建立超链:
1、在Excel里面打开或者新建一个表格作为总表;
2、在表格标签上单击鼠标右键,选择“查看代码”;
3、粘贴如下代码到编辑器里面去:
Option Explicit
Sub BuildHyperlinksToWorkbooks()
On Error Resume Next
Dim arrFolders As New Collection
Dim strFolder, strFile As String
Dim fso, oFolder, oFile
Dim oCell As Range
Dim nRowIndex As Integer, nColumnIndex As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
' 设置这个数字来控制把超级链接生成到第几列
nColumnIndex = 3
' 在下面调整/增/删需要搜索的文件夹
arrFolders.Add "C:\Temp\docs\test1\"
arrFolders.Add "C:\Temp\docs\test2\"
arrFolders.Add "C:\Temp\docs\test3\"
nRowIndex = 1
For Each strFolder In arrFolders
Set oFolder = fso.GetFolder(strFolder)
For Each oFile In oFolder.Files
strFile = oFile.Path
If (UCase(Right(strFile, 4)) = ".XLS") Or (UCase(Right(strFile, 5)) = ".XLSX") Then
Set oCell = Cells(nRowIndex, nColumnIndex)
oCell.Hyperlinks.Add Anchor:=oCell, Address:="file://" & strFile, TextToDisplay:=strFile
nRowIndex = nRowIndex + 1
End If
Next
Next
Set oFolder = Nothing
Set fso = Nothing
MsgBox "完成!"
End Sub
4、根据需要增加/删除上面代码中需要搜索的文件夹;同时也可以控制把超级链接生成到第几列去;
5、键入F5运行看到“完成!”结束;
6、键入ALT+Q退出代码编辑返回Excel表格界面,检查所有超链是否正确生成。
如果以后不在需要批量插入超链,则可以在保存这个总表前把上面的代码全部删除。从而避免了每次打开这个总表文件时,Excel都要提示是否启用宏什么的。
还有,超链显示在单元格里面的文字是什么?文件名(去除前面的目录名)?
_____________________________________
补充,下面这个步骤可以收集位于不同文件夹下面的表格文件名,并在当前打开的这个总表的第三列里为所有这些表格文件建立超链:
1、在Excel里面打开或者新建一个表格作为总表;
2、在表格标签上单击鼠标右键,选择“查看代码”;
3、粘贴如下代码到编辑器里面去:
Option Explicit
Sub BuildHyperlinksToWorkbooks()
On Error Resume Next
Dim arrFolders As New Collection
Dim strFolder, strFile As String
Dim fso, oFolder, oFile
Dim oCell As Range
Dim nRowIndex As Integer, nColumnIndex As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
' 设置这个数字来控制把超级链接生成到第几列
nColumnIndex = 3
' 在下面调整/增/删需要搜索的文件夹
arrFolders.Add "C:\Temp\docs\test1\"
arrFolders.Add "C:\Temp\docs\test2\"
arrFolders.Add "C:\Temp\docs\test3\"
nRowIndex = 1
For Each strFolder In arrFolders
Set oFolder = fso.GetFolder(strFolder)
For Each oFile In oFolder.Files
strFile = oFile.Path
If (UCase(Right(strFile, 4)) = ".XLS") Or (UCase(Right(strFile, 5)) = ".XLSX") Then
Set oCell = Cells(nRowIndex, nColumnIndex)
oCell.Hyperlinks.Add Anchor:=oCell, Address:="file://" & strFile, TextToDisplay:=strFile
nRowIndex = nRowIndex + 1
End If
Next
Next
Set oFolder = Nothing
Set fso = Nothing
MsgBox "完成!"
End Sub
4、根据需要增加/删除上面代码中需要搜索的文件夹;同时也可以控制把超级链接生成到第几列去;
5、键入F5运行看到“完成!”结束;
6、键入ALT+Q退出代码编辑返回Excel表格界面,检查所有超链是否正确生成。
如果以后不在需要批量插入超链,则可以在保存这个总表前把上面的代码全部删除。从而避免了每次打开这个总表文件时,Excel都要提示是否启用宏什么的。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在excel中可以非常方便地插入超链接,方法如下:
excel
2003:选择需要插入超链接的单元格,单击菜单“插入→超链接”。
excel
2007:在功能区中选择“插入”选项卡,单击“超链接”按钮,弹出“编辑超链接”对话框。
要显示的文字:单元格中显示的超链接文本,如果原单元格中包含文本,打开该对话框时将直接显示该文本。如果是公式或数值等,此处将显示灰色的“在文档中选定的内容”。
屏幕提示按钮:单击该按钮可以给包含超链接的单元格添加屏幕提示。
地址:在此输入要链接的网址。
在对话框的左侧有四个选项,用于设置各种类型的超链接目标,分别是:
原有文件或网页:选择该选项可以将连接目标设置为已存在的某个工作簿、word文档、应用程序或网页。如果连接目标为excel工作簿,可以单击右侧的“书签”按钮,打开“在文档中选择位置”对话框,在其中设置要打开该工作簿中的位置。如下图中打开的位置为某个工作簿中“sheet3”工作表中的“a10”单元格。
本文档中的位置:选择此选项创建指向工作簿中特定位置的超链接。可以指定需要打开的工作表和单元格。
新建文档:创建指向新文件的超链接。
电子邮件地址:创建指向电子邮件地址的超链接。如果单击指向电子邮件地址的超链接,默认的电子邮件程序将自动启动,并会创建一封在“收件人”框有正确地址的电子邮件。
excel
2003:选择需要插入超链接的单元格,单击菜单“插入→超链接”。
excel
2007:在功能区中选择“插入”选项卡,单击“超链接”按钮,弹出“编辑超链接”对话框。
要显示的文字:单元格中显示的超链接文本,如果原单元格中包含文本,打开该对话框时将直接显示该文本。如果是公式或数值等,此处将显示灰色的“在文档中选定的内容”。
屏幕提示按钮:单击该按钮可以给包含超链接的单元格添加屏幕提示。
地址:在此输入要链接的网址。
在对话框的左侧有四个选项,用于设置各种类型的超链接目标,分别是:
原有文件或网页:选择该选项可以将连接目标设置为已存在的某个工作簿、word文档、应用程序或网页。如果连接目标为excel工作簿,可以单击右侧的“书签”按钮,打开“在文档中选择位置”对话框,在其中设置要打开该工作簿中的位置。如下图中打开的位置为某个工作簿中“sheet3”工作表中的“a10”单元格。
本文档中的位置:选择此选项创建指向工作簿中特定位置的超链接。可以指定需要打开的工作表和单元格。
新建文档:创建指向新文件的超链接。
电子邮件地址:创建指向电子邮件地址的超链接。如果单击指向电子邮件地址的超链接,默认的电子邮件程序将自动启动,并会创建一封在“收件人”框有正确地址的电子邮件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
快捷键Ctrl+k,或者点工具栏里的
插入——超链接
插入——超链接
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
简单
比如a1是百度,b1是http://www.baidu.com
那么在c1输入公式=HYPERLINK(B1,A1)
然后往下拉,就行鸟
然后把A列隐藏,将c列当A列用,当然,公式告诉你了,版你怎么排就是你的事了
比如a1是百度,b1是http://www.baidu.com
那么在c1输入公式=HYPERLINK(B1,A1)
然后往下拉,就行鸟
然后把A列隐藏,将c列当A列用,当然,公式告诉你了,版你怎么排就是你的事了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询