请教VFP操作Excel和Word问题
请教高手，我的Excel文档中有N个Sheet，我想只拷贝当前Sheet到Word文档中，但是拷贝完成后，点击打开Word文档中的表格后发现，拷贝过来的是原Excel中的所有N个Sheet，请教以下的命令错在哪里：
.ActiveSheet.UsedRange.Cells.Copy &&拷贝Excel中当前激活Sheet中已使用了的单元格
ow.Application.WindowState = -4043
ow.selection.pastespecial(0,.f.,0,.f.,0,"","")&&粘贴到Word文档中
谢谢指教！
[解决办法]
测试了一下，没有这种情况
_ole_excel = CreateObject("Excel.Application")
_ole_excel.VISIBLE=.T.
_ole_excel.DisplayAlerts = .F.
_ole_excel.WorkBooks.Open('a1.xls')
_ole_excel.ActiveSheet.UsedRange.Cells.Copy &&拷贝Excel中当前激活Sheet中已使用了的单元格
ow = CreateObject("Word.Application")
ow.VISIBLE=.T.
ow.Documents.Add
ow.selection.pastespecial(0,.f.,0,.f.,0,"","")&&粘贴到Word文档中
[解决办法]
把你完整的代码粘出来，最好能上传一下你的excel,这样有助于解决问题！
[解决办法]
确实是楼主说的问题，
看来不能以 OLE object 方式粘贴，
改为以 Rich Text Format (RTF) 或 HTML 方式粘贴，如：
ow.selection.pastespecial(0,.f.,0,.f.,1,"","") && RTF
或
ow.selection.pastespecial(0,.f.,0,.f.,10,"","") && HTML
