关于excel的问题

[xiezuming]

我将一个文件的最后一个sheet覆盖另一个文件的第一个sheet，如何才能办到？

[atian25]

先取得2个sheet对象，然后copy过去
看看office vba帮助文档
还有自己录制一下宏

[xiezuming]

程序是这样写吗？
tWorkSheet.Copy(tWorkSheet,sWorkSheet);

[xiezuming]

我这样写报错
HRESULT中的异常:0x800A03EC
怎么才可以正常拷贝啊？

[xiezuming]

对了，忘了说明了，我是想覆盖一个WorkSheet

[atian25]

Sub Macro1()
Dim oxlApp As New Excel.Application
Dim myWorkbooks As New Excel.Workbook
Dim myWorksheets As New Excel.Worksheet
oxlApp.Visible = True
Set myWorkbooks = oxlApp.Workbooks.Add
Set myWorksheets = oxlApp.Worksheets(1)
myWorksheets.Cells(1, 1) = "23"
myWorksheets.Cells(10, 10) = "232"
myWorksheets.Copy After:=Worksheets("Sheet3")

End Sub

可能这样吧，你看看这几个帮助：

Copy 方法
PasteSpecial 方法
TableRange1 属性
TableRange2 属性
CurrentRegion 属性
PageRange 属性