如何用vba代码将指定列筛选结果中超链接的文件复制到指定文件夹中？

作者：绿色风分类：时间：2022-08-17 浏览：89

楼主 kevinchengcw	Q: 如何用vba代码将指定列筛选结果中超链接的文件复制到指定文件夹中？ A: 代码如下： Sub test() Dim Rng As Range If Dir(ThisWorkbook.Path & "\ForPrint", vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\ForPrint" '如果目标文件夹不存在则创建 For Each Rng In Range([a3], Cells(Rows.Count, 1).End(3)).SpecialCells(xlCellTypeVisible) '循环A列数据区域中的筛选后可见的单元格 If Rng.Hyperlinks.Count > 0 Then CreateObject("wscript.shell").Run Environ("comspec") & " /c copy """ & ThisWorkbook.Path & "\" & Rng.Hyperlinks(1).Address & """ """ & ThisWorkbook.Path & "\forprint\""", 0, 1 '如果单元格存在超链接,则隐藏方式运行命令行窗口把链接文件复制到目标文件夹中并等待过程执行完成后返回 Next Rng End Sub
2楼 lnt1231	向K版学习
3楼宁夏鑫华通	学习
4楼宁夏鑫华通	下载的附件看不到内容
5楼宁夏鑫华通	下载的附件看不到内容

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表