增簿表

ddz79101

老师！我想新增工作簿记表，有代码，部分系gwjkkkkk老师，目前有2问题
1无反应。2修改将新增簿保存在任意位置.
特再另提交，请老师指导

ynzsvt

1、没有无反应的情况发生。
2、另存为的代码也正常运行了。

饮冰e士

有反映啊。只是没看明白这是在干什么

ddz79101

ynzsvt 发表于 2024-8-24 17:43
1、没有无反应的情况发生。
2、另存为的代码也正常运行了。

C盘的库存簿，没有新增表。只在本簿新增表了，

ddz79101

饮冰e士 发表于 2024-8-24 17:52
有反映啊。只是没看明白这是在干什么

新谮（在C盘）是否没有新增表呀！

ddz79101

ynzsvt 发表于 2024-8-24 17:43
1、没有无反应的情况发生。
2、另存为的代码也正常运行了。

新增的表应该在C盘的库存簿中，而不是在《新建簿》中

ddz79101

饮冰e士 发表于 2024-8-24 17:52
有反映啊。只是没看明白这是在干什么

新增的表应该在C盘的库存簿中，而不是在《新建簿》中

饮冰e士

ddz79101 发表于 2024-8-24 18:01
新增的表应该在C盘的库存簿中，而不是在《新建簿》中

这一句改一下：
With xlWB.Worksheets.Add(after:=xlWB.Worksheets(xlWB.Worksheets.Count))

ykcbf1100

C盘是系统盘，不要把数据文件存到C盘去，而且，保存到C盘，还需要系统管理员权限。可以改存到D盘，测试通过。

ykcbf1100

小改一下。。。

1. Sub 新建簿及增表2()   '//2024.8.24
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set wb = Workbooks.Add
   
5.     n = Val(InputBox("请输入3的整除数", "", 1))
   
6.     If n = 0 Then Exit Sub
   
7.     ReDim ar(1 To n * 9)
   
8.     br = Array("", "A", "B")
   
9.     For i = 0 To UBound(br)
   
10.         For j = 1 To n * 3
    
11.             With wb.Worksheets.Add(after:=wb.Worksheets(wb.Worksheets.Count))
    
12.                 .Name = j & br(i)
    
13.             End With
    
14.         Next j
    
15.     Next i
    
16.     wb.SaveAs Filename:="d:\库存.xls", FileFormat:=56
    
17.     wb.Close
    
18.     Application.DisplayAlerts = True
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码