作者ptguitar (佩蒂吉他)
看板Office
标题[算表] xls,xlsx等汇入
时间Fri Feb 3 16:55:38 2017
软体:excel
版本:2007以上
范例档案如下
https://drive.google.com/file/d/0BwCgrQhGgaw7OVN1SnFIVDNqQU0/view?usp=sharing
我有数十个excel档案
副档名有xls,xlsx 其中有些有加密
我想要汇入这些档案 并依照各自档名取工作表名称贴上去
但遇到加密档案可以跳出画面要我输入档案密码後继续下去
我有找到一个范例档案不知道怎麽修改
麻烦各位 感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.252.11
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1486112141.A.72C.html
2F：→ soyoso: 另外如果该巨集档案和其他要汇入档案在同个目录下，巨集档 02/03 17:27
3F：→ soyoso: 案的排除，和以档名为工作表名称及要汇入档案停止运算、更 02/03 17:28
5F：→ soyoso: 加上贴上後，汇入档案的关闭 02/03 17:29
6F：→ soyoso: 如同档名而不同副档名上，则请再调整如worksheet.name则以 02/03 17:33
7F：→ soyoso: 变数openfile来命名 02/03 17:33
8F：→ soyoso: 原巨集内为开启档案将activesheet复制，贴上於巨集档案内 02/03 17:37
9F：→ soyoso: 如果还要将开启的档案内全部工作表(回圈)或有资料的工作表 02/03 17:38
10F：→ soyoso: (回判和判断)的话，再请调整 02/03 17:38
11F：→ soyoso: 除range.copy和sheets.add外，另可以sheets.copy的方式 02/03 17:44
12F：→ ptguitar: 哇 感谢大大 我上班日研究看看 有问题再来请教 02/03 23:12
13F：→ ptguitar: 那想再问如果遇到密码输入错误要跳过这个档案继续要怎麽 02/06 10:56
14F：→ ptguitar: 写.. 02/06 10:56
15F：→ soyoso: 於回圈上方加上on error resume next 02/06 12:02
16F：→ ptguitar: 可以了 感谢大大!! 02/06 13:38