如何VBA工程中插入或复制工作表对象

如何VBA工程中插入或复制工作表对象

插入新工作表（在最后插入一个新表）：
Sheets.Add After:=Sheets(Sheets.Count)
插入新工作表（在第4个表后面插入一个新表）：
Sheets.Add After:=Sheets(4)

复制工作表（复制SHEET1表，放在最后面）：
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
复制工作表（复制SHEET1表，放在第4个工作表后面）：
Sheets("Sheet1").Copy After:=Sheets(4)

用VBA在表格中插入工作表对象代码如下： Sub Macro1() Dim FilePath As String FilePath = "C:\Documents and Settings\Book1.xls" '-------插入对象的路径 Range("A1").Select '------插入的位置 ActiveSheet.OLEObjects.Add(Filename:=FilePath, Link:=False, DisplayAsIcon:=False).Select End Sub

sub macro3() dim i as byte selection.entirerow.insert for i = 1 to selection.column if selection.offset(-1, 1 - i).hasformula then selection.offset(0, 1 - i).filldown next i end sub 选中最后一列的任何一格，运行此宏（可以设定快捷键的），完成。

代码很简单： Workbooks("AAA.xls").Worksheets("MySht1").Copy Workbooks("NEW.xls").Worksheets("Sheet1") 如果NEW.xls中没有这个工作表的话就不会改变名子。 你复制多个表把“MYSHT1”换成一个变量然后加一个循环就可以了 注意把("Sheet1")换成NEW.xls里有的工作表的表名。 如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！