EXCELVBA给单元格添加超链接。对表格中的文件自动添加超链接，打开文件目录
工具/原料
EXCEL宏表
EXCEL2007
见附件的文件夹和表格文件
方法/步骤
1、原始文件
2、新建一个EXCEL表格，另存为启用宏的工作薄
3、在菜单栏，选择开发工具，点击下VisualBasic后，启动EXCELVBA。
4、在开发工具上，选择插入-ActiveX插件中的按钮工具，创建一个按钮。
5、在EXCELVBA上，点击插入-用户窗体，插入窗体文件。
6、依次添加标签，文本框和2个按钮，见附图
7、双击“指定文件路径”按钮，添加如下代码：DimobjShellDimobjFo盟敢势袂lderDimstrP锾攒揉敫athAsStringSetobjShell=CreateObject("Shell.Application")SetobjFolder=objShell.BrowseForFolder(0,"选择文件目录",0,0)IfNotobjFolderIsNothingThenTextBox1.Text=objFolder.self.PathElseTextBox1.Text=""EndIfSetobjFolder=NothingSetobjShell=Nothing
8、点击“添加超链接”按鸵晚簧柢钮，加入如下代码：DimMyPath,MynameAsStringDimi,q,nAsIntegerDimshtAsWorksheetMyPath惺绅寨瞀=TextBox1.Text&"\"Myname=Dir(MyPath,vbDirectory)'读取指定目录中的第一个文件夹名称Setsht=ActiveWorkbook.Sheets(1)n=ActiveSheet.UsedRange.Rows.Count'指定n为最大行数IfTextBox1.Text=""ThenMsgBox("请输入地址")DoWhileMyname<>""Fori=2TonIfMyname<>"."AndMyname<>".."ThenIfMyname=sht.Cells(i,1)Thensht.Hyperlinks.Addanchor:=sht.Cells(i,1),Address:=MyPath&Myname&"\"ElseEndIfEndIfNextiMyname=DirLoop
9、返回到表格评鲦易纪文件中，双击“添加超链接”按钮，添加如下代码，启动窗体文件。UserForm1.Show保存退出。
10、退出设计模式，点击“添加超链接”按钮，指定文件路径，点击窗体上的“添加超链接”。完成添加超链接。
11、点击每一个文件名称后，就可以打开其对应的文件夹了。
