插入新的<em>EXCEL</em>工作表时，怎样插入已有的<em>EXCEL<

单独在表1的位置增加一行，然后模板全部引用这一行的，挨个把表一的内内容复制到你引用的这一行，就可以了

1. 点击插入单元格下面的对象，然后百选择由文件创建；

2.  选择好文件之后，在显示为图标前面的框框度里面打勾，然后可以在问更改图标里面修改文件的路径；

3. 确定之后再查看原答来的表格，发现这个表格已经插版入进去了。这样就可以了。在这里面的表格只要双权击就可以打开查看里面的数据了；

4. 参考图片
   

Option Explicit

Sub 生成标签()
Dim R As Long
Dim i As Long
Dim sht As Worksheet
Dim shtFrom As Worksheet
Dim shtMB As Worksheet
Dim toBK As Excel.Workbook
Dim FoundMB As Boolean
Dim FoundData As Boolean
For i = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(i).Name = "模板" Then FoundMB = True
If ThisWorkbook.Worksheets(i).Name = "数据" Then FoundData = True
Next

If FoundMB = False Or FoundData = False Then
MsgBox "找不到[模板]或[数据]工作表e799bee5baa6e997aee7ad94e59b9ee7ad94333"
GoTo Exit_Sub
End If
Set shtMB = ThisWorkbook.Worksheets("模板")
Set shtFrom = ThisWorkbook.Worksheets("数据")
R = shtFrom.Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
Set toBK = Application.Workbooks.Add
For i = 2 To R Step 3
shtMB.Copy , toBK.Worksheets(toBK.Worksheets.Count)
Set sht = toBK.Worksheets(toBK.Worksheets.Count)
With sht
.Range("c1") = "'" & shtFrom.Cells(i, 1)
.Range("C3") = shtFrom.Cells(i, 2)
.Range("g5") = shtFrom.Cells(i, 3)
.Range("c19") = "'" & shtFrom.Cells(i + 1, 1)
.Range("C21") = shtFrom.Cells(i + 1, 2)
.Range("g23") = shtFrom.Cells(i + 1, 3)
.Range("c37") = "'" & shtFrom.Cells(i + 2, 1)
.Range("C39") = shtFrom.Cells(i + 2, 2)
.Range("g41") = shtFrom.Cells(i + 2, 3)

End With
sht.Name = Right(shtFrom.Cells(i, 1), 5) & "-" & Right(shtFrom.Cells(i + 1, 1), 5)
Next
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To 3
toBK.Worksheets("Sheet" & i).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
ThisWorkbook.Worksheets(1).Select
'shtFrom.Select
Application.ScreenUpdating = True
Exit_Sub:
Set toBK = Nothing
End Sub

另存-文件格式选择模板，然后他会自动保存到office存放模板的那个zhidao文件夹里
2003以前版的后缀为XLT,2007版本的后缀为XLTX。
如果担心重装系统或者专更换了计算机之后还要重新做模板，可以在把保存的模板文件属保存到其他的文件夹里，重装了系统或者更换了计算机之后再拷贝到office默认的存放模板的文件夹里就可以了。
office默认的存放模板的文件夹：
C:\Documents and Settings\username\Application Data\Microsoft\Templates
其中c:为系统安装盘符，username处为你的账户名称