增簿表

ynzsvt

假如代码输入n=6，你希望的结果是代码的工作簿不变，产生的工作簿6个工作表。我这样理解你的需求对吗？

gwjkkkkk

https://club.excelhome.net/forum ... amp;_dsign=f5cd05a8

ddz79101

ykcbf1100 发表于 2024-8-24 18:25
C盘是系统盘，不要把数据文件存到C盘去，而且，保存到C盘，还需要系统管理员权限。可以改存到D盘，测试通过 ...

谢谢老师！有点状况：见图片

ykcbf1100

ddz79101 发表于 2024-8-24 19:32
谢谢老师！有点状况：见图片

我发现你的系统与众不同。这个是标准的保存工作簿方法了。

ddz79101

ykcbf1100 发表于 2024-8-24 19:33
我发现你的系统与众不同。这个是标准的保存工作簿方法了。

奥！谢谢老师！我2003的呀。你那里是成功的，那么是我这里问题了。

ykcbf1100

ddz79101 发表于 2024-8-24 19:39
奥！谢谢老师！我2003的呀。你那里是成功的，那么是我这里问题了。

我这里肯定成功啊，我给你写的已是标准的写法，我平时都是简写的。
建议你还是升级一下office系统，很多问题都会消失。

ddz79101

ykcbf1100 发表于 2024-8-24 19:41
我这里肯定成功啊，我给你写的已是标准的写法，我平时都是简写的。
建议你还是升级一下office系统，很多 ...

谢谢！好的

ddz79101

饮冰e士 发表于 2024-8-24 18:21
这一句改一下：
With xlWB.Worksheets.Add(after:=xlWB.Worksheets(xlWB.Worksheets.Count))

谢谢老师！运行成功

ddz79101

ykcbf1100 发表于 2024-8-24 18:26
小改一下。。。

老师！我将wb.SaveAs Filename:="d:\库存.xls", FileFormat:=56中FileFormat:=56删除后，正常了。不知什么原因

ykcbf1100

ddz79101 发表于 2024-8-24 19:59
老师！我将wb.SaveAs Filename:="d:\库存.xls", FileFormat:=56中FileFormat:=56删除后，正常了。不知什 ...

后面这个本可以不要，简写就是这样的