EXCEL两个工作簿间表的复制

Question

worksheet copy after:=...这样的命令似乎只能在单个工作表里面进行表的复制。
但是我复制数据到另一个表（包含格式）
该怎么做呢？
谢相助

Answer 1

复制是没错，但粘贴的时候注意选择【选择性粘贴】
 Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Answer 2

Dim ExcelApp As Object       'Excel程序对象
Dim SourceBook As Object     '源   工作薄
Dim DesBook As Object        '目标 工作薄
Dim ExcelSheet As Object     '工作表Set ExcelApp = CreateObject("Excel.Application")
Set SourceBook = ExcelApp.Workbooks.Open("C:\test.xls")    '打开源工作薄
Set ExcelSheet = SourceBook.Worksheets("sheet1")           '设定当前要复制的工作表ExcelSheet.Copy After:=DesBook.sheets(1)   '把源工作表复制到 目标工作薄的第1个工作表