EXCEL VBA 生成新工作表

mxfx999

找高人帮帮忙，生成新工作表的问题。
Sub 生成工作表()
Dim wb As Range
Set wb = Sheets("模板").UsedRange
Sheets.Add.Name = Sheets.Count
wb.Copy [a1]
Sheets("模板").Select
End Sub
这段代码只能在同一工作簿下生成工作表，不能指定行和列，没有按照模板格式复制同时也把里面的代码也复制了。
希望可以改成：
要求：
1，生成的工作表存放到同文件夹下的《表格存档》XLSX中，每次生成以1，2，3，4……依次类推为工作表表名。
2，生成的工作表跟模板格式一样。
3，指定行和列，例如A1:L33。
4,生成的表不要代码，要实际内容。

mxfx999

有人帮个忙吗?

tudarong

请测试.rar (58.22 KB, 下载次数: 6)

2018-7-14 21:58 上传

点击文件名下载附件

请测试，如有帮助，请送几朵小花。

1. Sub SaveAs()
   
2.     Dim wb As Object
   
3.     Dim m, n As Integer
   
4.     Application.DisplayAlerts = False
   
5.     Worksheets("模板").Columns("A:L").Copy
   
6.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\表格存档.xlsx")
   
7.     wb.Sheets.Add After:=Sheets(Sheets.Count)
   
8.     wb.Sheets.Add.Name = Sheets.Count
   
9.     Columns("A:A").Select
   
10.     Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
    
11.         SkipBlanks:=False, Transpose:=False
    
12.     ActiveSheet.Paste
    
13.     Windows("表格存档.xlsx").Visible = True
    
14.     wb.Save
    
15.     wb.Close
    
16.     Application.DisplayAlerts = True
    
17. End Sub

复制代码

tudarong

上述这句代码有误，请自行修正：
误：    wb.Sheets.Add.Name = Sheets.Count
正：    wb.Sheets.Name = Sheets.Count

mxfx999

tudarong 发表于 2018-7-14 22:06
上述这句代码有误，请自行修正：
误：    wb.Sheets.Add.Name = Sheets.Count
正：    wb.Sheets.Name =  ...

首先感谢你的帮忙，测试后还有点问题。
1，同时生成2个工作表一个是以数字命名，有数据，另一个以SHEET命名，没数据。
2，生成的工作表里面的数据不要连接代码，写入实际数据。
3，更正你给出的这句代码后运行错误。

tudarong

请测试.rar (62.86 KB, 下载次数: 6)

2018-7-15 12:17 上传

点击文件名下载附件

代码以修正，请测试。

1. Sub SaveAs()
   
2.     Dim wb As Object
   
3.     Dim m, n As Integer
   
4.     Application.DisplayAlerts = False
   
5.     Worksheets("模板").Columns("A:L").Copy
   
6.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\表格存档.xlsx")
   
7.     wb.Sheets.Add After:=Sheets(Sheets.Count)
   
8.     ActiveSheet.Name = Sheets.Count
   
9.     Columns("A:A").Select
   
10.     Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
    
11.         SkipBlanks:=False, Transpose:=False
    
12.     ActiveSheet.Paste
    
13.     Windows("表格存档.xlsx").Visible = True
    
14.     wb.Save
    
15.     wb.Close
    
16.     Application.DisplayAlerts = True
    
17. End Sub

复制代码

mxfx999

tudarong 发表于 2018-7-15 12:21
代码以修正，请测试。

生成新工作表OK，但是表格还是有外链接代码，我需要实际数据。因为生成的文件我要上传的，不能有外连接。

tudarong

请测试.rar (65.08 KB, 下载次数: 15)

2018-7-15 15:07 上传

点击文件名下载附件

打开 表格存档.xlsx 工作簿，会弹出一个对话框，
即使点了“更新“，文档也更新不了信息，因为文档中的公式已经全部去除了。
你所说的外链接，是图片这个提示吗？

tudarong

mxfx999 发表于 2018-7-15 13:57
生成新工作表OK，但是表格还是有外链接代码，我需要实际数据。因为生成的文件我要上传的，不能有外连接。

生成的新工作表已没有代码，你所指的外链接代码，是在哪里看到的？

mxfx999

tudarong 发表于 2018-7-15 15:13
生成的新工作表已没有代码，你所指的外链接代码，是在哪里看到的？

是的，不能有外链接。