高分请教VB调用EXCEL后，怎么能够在一个工作薄中显示多个具有相同模板内容的sheet？

Question

Set Ex = CreateObject("excel.application")
Set Exbook = Ex.Workbooks.Open(OperationPath)
Set Exsheet = Exbook.Worksheets("Sheet1")
Ex.Visible = True
我在VB中打开OperationPath这个路径中的Excel模板后，这个模板的内容只能显示在sheet1中，但是我想在sheet2,sheet3，sheet4....中也想显示同样的模板内容,不知道具体命令怎样调用？希望做过这方面的大侠能给小弟以指点，谢谢了。
多谢了。
分若是不够，还可以再加，请大家帮帮小弟。

Answer 1

这个很简单。总的思路是在excel中写个宏就行了。
还想不通的话。明天再交流。
msn随时在线。:[email protected] 

Answer 2

我在握word中查到了一种方法，就是使表格标题同步，不知道EXCEL中有没有，可以查查帮助

Answer 3

不知你需要的是不是这个：Set Ex = CreateObject("excel.application")
Set exbook = Ex.Workbooks.Open(operationpath)
Set exsheet1 = exbook.Worksheets("Sheet1")
Set exsheet2 = exbook.Worksheets("Sheet2")
Set exsheet3 = exbook.Worksheets("Sheet3")
Set exsheet4 = exbook.Worksheets("Sheet4")
Ex.Visible = True
exsheet1.Range(exsheet1.cells(1, 1), exsheet1.cells(100, 100)).Copy _ destination:=exsheet2.Range(exsheet2.cells(1, 1), exsheet2.cells(100, 100))
exsheet1.Range(exsheet1.cells(1, 1), exsheet1.cells(100, 100)).Copy _ destination:=exsheet3.Range(exsheet3.cells(1, 1), exsheet3.cells(100, 100))
exsheet1.Range(exsheet1.cells(1, 1), exsheet1.cells(100, 100)).Copy _ destination:=exsheet4.Range(exsheet4.cells(1, 1), exsheet4.cells(100, 100))

Answer 4

楼上基本正确，Copy是将内容拷贝到剪切板上，再用Paste粘到其他表中。