- 博客(2)
- 收藏
- 关注
转载 批量提取文件
endL = mSheet.Range("a1000").End(xlUp).Row '获取A列的有效行数。endL = mSheet.Range("a1000").End(xlUp).Row '获取A列的有效行数。sourPath = "E:\Desktop\专利数据申请\" '要查找的文件所在位置。savePath = "E:\Desktop\存储位置\" '找到后将文件复制到此位置。sourPath = "E:\Desktop\专利数据申请\" '要查找的文件所在位置。Sub 快速查找文件并复制()
2023-03-14 17:38:47 101
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人