摘要: #获取制定单元格内超链接对应的链接地址Sub geturi() For Each cell In Range("E3:E43") If cell.Hyperlinks.Count 0 Then cell.Offset(0, 7) = cell.Hyperlinks(1).Address End If Next End Sub #获取这些路径对应文档的最后修改时... 阅读全文
posted @ 2017-10-20 15:54 忙碌在路上 阅读(1314) 评论(0) 推荐(0) 编辑