请教下大家，我使用
oExcel.ActiveSheet.Range("A1:D20").Copy  &&复制表一的内容
 

oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial &&黏贴到表二


但都不成功，请问下上面哪里有问题？，另外请教下，worksheet，清空内容，保留格式，命令应该怎么写

oExcel.ActiveSheet.Range("A1:D20").Copy  &&复制表一的内容
oExcel.Sheets(2).Select
oExcel.ActiveSheet.Range("A1").PasteSpecial  &&黏贴到表二
oExcel.ActiveSheet.Range("C1:E8").ClearContents &&清除内容保留格式

楼主没用过VBA吗？
完整一些的代码：
oExcel= CreateObject("Excel.Application")
oExcel.WorkBooks.Open(GETFILE())
oexcel.visible=.t.
oExcel.ActiveSheet.Range("A1:D20").Copy  &&复制表一的内容
oExcel.Sheets(2).Select
oExcel.ActiveSheet.Range("A1").PasteSpecial  &&黏贴到表二
oExcel.ActiveSheet.Range("C1:E8").ClearContents &&清除内容保留格式
oExcel.ActiveWorkbook.close(.t.)
oExcel.quit

程序能运行，但不能粘贴到Sheets2上

我2楼的代码是回答楼主的问题，后来前后增加了打开、关闭的代码，只是示意性的。下面的代码就基本完整了：
oExcel= CreateObject("Excel.Application")
oExcel.WorkBooks.Open(GETFILE())
oExcel.Sheets(1).Select
*oexcel.visible=.t.
oExcel.ActiveSheet.Range("A1:D20").Copy  &&复制表一的内容
oExcel.Sheets(3).Select
oExcel.ActiveSheet.Range("A1").PasteSpecial  &&黏贴到表二
oExcel.ActiveSheet.Range("C1:E8").ClearContents &&清除内容保留格式
oExcel.ActiveWorkbook.close(.t.)
oExcel.quit

1、还是不能粘贴上内容。
2。*oExcel.ActiveSheet.Range("C1:E8").ClearContents &&清除内容保留格式
我把上句注销后C1:E8"内容没有清空反倒把A1:D20"这区间的内空清空了

[ 本帖最后由 sylknb 于 2013-9-5 12:45 编辑 ]

测试时是粘贴到工作表3，没有改过来，用时根据自己所需要改吧：
    oExcel.Sheets(3).Select
    oExcel.ActiveSheet.Range("A1").PasteSpecial  &&黏贴到表三

运行结果如下：



oExcel= CreateObject("Excel.Application")
oExcel.WorkBooks.Open(GETFILE())
oExcel.Sheets(1).Select
*oexcel.visible=.t.
oExcel.ActiveSheet.Range("A1:D20").Copy  &&复制表一的内容
oExcel.Sheets(2).Select
oExcel.ActiveSheet.Range("A1").PasteSpecial  &&黏贴到表二
*oExcel.ActiveSheet.Range("C1:E8").ClearContents &&清除内容保留格式
oExcel.ActiveWorkbook.close(.t.)
oExcel.quit
我是改了2，照片2是sheet2图示，没有内容，也就是说没有粘上，
我把 oExcel.ActiveSheet.Range("C1:E8").ClearContents 加了注销，它到出来了A1:D20区间的清空。

楼上的问题是Excel两个工作簿位置反了，所以操作反过来了。

原来如此，成功了!