新手请教各位大佬，为什么代码在07版excel可以运行，在16版就运行不了？

如意的大魔王 · 发表于 2018-9-5 11:11

本帖最后由如意的大魔王于 2018-9-6 12:43 编辑

各位大佬，我想以工资生产表的A1单元格命名新生成的工作表，在07版可以运行，16的64位office就老是提示错误1004，您为工作表或图标输入的名称错误。不知道有什么办法解决代码如下：

Private Sub CommandButton1_Click()
CommandButton1.Caption = "保存工资表"
Dim mYn As String
mYn = Sheets("工资生成表").Cells(1, 1)
Range("A2:N40").Select
Selection.Copy
Sheets.Add(after:=Sheets(Sheets.Count)).Name = mYn
Sheets(mYn).Select
ActiveSheet.Paste
End Sub

跪求各位大佬指点！！！

我是来讨说法的 · 发表于 2018-9-5 11:23

这提示不是很清楚明白么

约定的童话 · 发表于 2018-9-5 11:27

上文件啊，没文件不好测试

weisilisid · 发表于 2018-9-5 13:37

Cells(1, 1) 作为文件名报错，Cells(1, 1) 有不能作为文件名命名的非法字符

如意的大魔王 · 发表于 2018-9-6 12:34

我是来讨说法的发表于 2018-9-5 11:23
这提示不是很清楚明白么

但是在07版是可以运行的啊，16版的为什么会有这个提示？要怎么改呢？

如意的大魔王 · 发表于 2018-9-6 12:44

约定的童话发表于 2018-9-5 11:27
上文件啊，没文件不好测试

刚上传了，麻烦大佬帮我看看呢

如意的大魔王 · 发表于 2018-9-6 12:45

weisilisid 发表于 2018-9-5 13:37
Cells(1, 1) 作为文件名报错，Cells(1, 1) 有不能作为文件名命名的非法字符

我这里没有这个提示呀，这个也是我抄的别人的

约定的童话 · 发表于 2018-9-6 13:06

给你四张图，你自己理解下吧.....
至于为什么07能运行，这个可能和excel版本有关系

weisilisid · 发表于 2018-9-7 09:09

@楼主，8楼的意思是：
你的VBA里写法，在有的版本有问题。
所以，在另存为工作簿的时候，可以先用 text 函数转一下格式

如意的大魔王 · 发表于 2018-9-13 14:52

约定的童话发表于 2018-9-6 13:06
给你四张图，你自己理解下吧.....
至于为什么07能运行，这个可能和excel版本有关系

真是太感谢了，谢谢大佬！

		自动登录	找回密码
密码			免费注册

[求助] 新手请教各位大佬，为什么代码在07版excel可以运行，在16版就运行不了？

评分