copy to 后
用EXCEL的链接对象打开这个文件
通过sheet对象的复制移动实现
这是比较快且比较安全的办法

[quote]copy to 后
用EXCEL的链接对象打开这个文件
通过sheet对象的复制移动实现
这是比较快且比较安全的办法[/quote]


你这比较快，比较安全的方法，是怎样的几句代码呢？？？希望得到您的帮助

我不清楚你的具体目的,
所以只能按照你的字面解释去写几句
看情况看需要改就是了.
下面的例子是复制到工作薄 1.xls 的第一张表之前

COPY TO 9.xls TYPE xl5
Ex=GETOBJECT("","Excel.application")
ex2=ex.Workbooks.Open("9.xls")
ex3=ex.Workbooks.Open("1.xls")
ex2.Sheets(1).Move(ex3.Sheets(1))

* 一定要注意的是,完成后的这个时候,9.xls 已经被自动关闭了.剩下的ex2对象已无效
* 要可视化或保存等操作,只能对 ex3 进行处理了,例如:

ex3.application.visible=.t.
ex3.save

G2_OBJ_EXL = CREATEOBJECT("EXCEL.APPLICATION")
G2_OBJ_EXL.SHEETSINNEWWORKBOOK = 1
G2_OBJ_EXL.VISIBLE =.F.
G2_OBJ_EXL.WORKBOOKS.OPEN("EXCEL文件名")
G2_OBJ_EXL.Worksheets("EXCEL指定工作薄名").Activate

這個可以激活指定的工作薄，稍微想想，應該可以利用一下。