查看完整内容
使用道具 举报
daqinqin 发表于 2019-6-4 22:08 那两个表是空的excel文件没有任何内容
l00l00 发表于 2019-6-2 22:59 myfile=dir(ThisWorkbook.Path & "\" & "汇总表*.xlsx") Do While myfile "" Set wb = m ...
ahn 发表于 2019-6-2 00:16 试试把 Set wb = GetObject(ThisWorkbook.Path & "\" & "汇总表*.xlsx") 改成
daqinqin 发表于 2019-6-4 00:00 谢谢,但是运行后那两个汇总表就打不开了
ahn 发表于 2019-6-4 11:05 怎么会打不开呢?把你的工作簿发我 QQ45855810 看看。
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-9-22 02:17 , Processed in 0.455382 second(s), 9 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.