UC知道EXCEL 超级链接 宏
来源：百度知道 编辑：UC知道 时间：2024/06/17 16:48:21
谢谢过路得朋友看看我这个问题，我有个EXCEL员工表，每一行都是一个员工得所有记录，比如A1:姓名，B1性别,C1：部门等等，并且我现在有所有员工得WORD文档（每一个员工一个DOC文档），我现在做个宏目的是点击EXCEL随意一个姓名，系统会超链接打开所对应这个员工得DOC文档。
我写了一个宏：
i = 1
Do While Range("A" & i).Cells.Text <> ""
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("A" & i).Cells.Text & ".doc", TextToDisplay:=Range("A" & i).Cells.Text
i = i + 1
Loop
这个宏只是支持，DOC文件名=某个员工名的时候，这个宏才能把这个姓名和DOC文档做上超链接。问题就在于我所有员工DOC文档是 部门名称-姓名-职务.doc 这种方式命名的，Address:=Range("A" & i).Cells.Text & ".doc", 这句话就不知道该如何写了。 求各位朋友帮忙。谢谢！~~
我写了一个宏：
i = 1
Do While Range("A" & i).Cells.Text <> ""
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("A" & i).Cells.Text & ".doc", TextToDisplay:=Range("A" & i).Cells.Text
i = i + 1
Loop
这个宏只是支持，DOC文件名=某个员工名的时候，这个宏才能把这个姓名和DOC文档做上超链接。问题就在于我所有员工DOC文档是 部门名称-姓名-职务.doc 这种方式命名的，Address:=Range("A" & i).Cells.Text & ".doc", 这句话就不知道该如何写了。 求各位朋友帮忙。谢谢！~~
假设你的word文档名称如你的格式命名，“部门名称-姓名-职务.doc”，且在Excel中，A列为姓名，C列为部门名称，D列为职务的话，则你的代码只需修改一句：
……Address:=Range("C" & i).Cells.Text & "-" & Range("A" & i).Cells.Text & "-" & Range("D" & i).Cells.Text & ".doc", ……就可以了。
因为Address属性是string类型，你完全可以用常规的字符串方式来给它赋值。