vba复制工作表并改名称

tiantao186

将工作簿中1中的工作表复制到工作簿2中，并修改工作表名称

半百

高个子

半百 发表于 2023-3-7 15:02

他的意思应该是拆表。

半百

高个子 发表于 2023-3-7 15:21
他的意思应该是拆表。

他表中有多个过程，清空样表》复制筛选的数据到样表》计算样表》复制样表到包材表，最后 这个是空的，所以补充了这个。

tiantao186

半百 发表于 2023-3-7 15:02

老师，能不能发个代码，打出来试了下，没成功

半百

tiantao186 发表于 2023-3-7 15:41
老师，能不能发个代码，打出来试了下，没成功

Sub 复制工作表()
With ThisWorkbook
    Set wb = Workbooks.Open(.Path & "\包材表")
    .Sheets("样表").Copy wb.Sheets(1)
    wb.Sheets(1).Name = wb.Sheets(1).[C2]
    wb.Close True
End With
End Sub

gwjkkkkk

tiantao186 发表于 2023-3-7 15:41
老师，能不能发个代码，打出来试了下，没成功

代码重写一遍，请 参考。。。

tiantao186

半百 发表于 2023-3-7 16:08
Sub 复制工作表()
With ThisWorkbook
    Set wb = Workbooks.Open(.Path & "\包材表")

老师，帮我看看，最开始可以用，增加了数据后，报错了

半百

tiantao186 发表于 2023-3-9 16:43
老师，帮我看看，最开始可以用，增加了数据后，报错了

你两个表版本不一样，不能直接复制表
试试复制单元格区域看看