Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3522|回复: 2

【求助】Workbooks.Open打开的文件名称会变??

[复制链接]
发表于 2011-10-8 21:56 | 显示全部楼层 |阅读模式
10学分
本帖最后由 xdwy81129 于 2011-10-8 22:08 编辑

这个宏原来就写好的,可是今天运行就与原来运行的情况不一样
s1 = Dir("E:\" & abc & "\【*.xls")
Set wk2 = Workbooks.Open("E:\ abc & "\" & s1)

现在的问题出在打开的文件,会自动后面加上序号
很奇怪
比如,dir是:学习.xls,老师.xls,表格.xls
打开以后成为学习1.xls,老师2.xls,表格3.xls
用MsgBox ActiveWorkbook.Name
检测的名字为:学习1,老师2,表格3

关闭这3个表格,如果有运行该命令,打开以后的文件名称又变为:学习4.xls,老师5.xls,表格6.xls

问题就出在,为什么宏语句打开文件会自动在号码增加序号呢?
同时原来这个宏没有修改过,没有出现过这样的情况。

如果的点击文件打开,没有这样去情况,请求告诉来看见解释下,帮忙解决下这个问题

感谢

 楼主| 发表于 2011-10-8 22:08 | 显示全部楼层
注明
Caption的标题栏,自动在打开的文件名称后面增加了序号
即:学习1,老师2,表格3

学习4,老师5,表格6



回复

使用道具 举报

发表于 2011-10-21 18:40 | 显示全部楼层
s1 = Dir("E:\" & abc & "\【*.xls")
Set wk2 = Workbooks.Open("E:\ abc & "\" & s1)
第一个 ABC 是一个变量,和下面都不一样!
什么原因。上附件看一下

或这句改一下:
s1 = Dir("E:\ abc\*.xls")
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-26 09:16 , Processed in 0.101439 second(s), 4 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表