求助：VFP操作Excel复制粘贴程序，Excel2010及以下版本没问题，Excel2013及以上版本不行，请各位大虾支招 - 编程论坛

#2

scywcxq2022-03-24 15:35

回复楼主 sonmei

希望能帮到你

只有本站会员才能查看附件，请登录

#3

sonmei2022-03-24 16:49

回复 2楼 scywcxq

虽然不是我想要的答案但还是谢谢！

#4

csyx2022-03-25 08:22

我只有2010，无法测试，把你的代码简化下试试：

程序代码：

cPath = Sys(5) + Curdir()

cSrc = '001.xlsx'
cTag = '002.xls'
cSrc = ForcePath(cSrc, cPath)
cTag = ForcePath(cTag, cPath)

oExcel = NewObject('Excel.Application')
oExcel.DisplayAlerts = .F.

oBook1 = oExcel.Workbooks.Open(cSrc)
oExcel.SheetsInNewWorkbook = 2
oBook2 = oExcel.Workbooks.Add()

oBook1.Sheets(1).Cells(1,1).Resize(5,3).Copy()
oBook2.Sheets(2).Cells(1,1).PasteSpecial()
oBook2.Sheets(2).Name = '表2'
oBook2.SaveAs(cTag, 39)

oBook2.Close(.f.)
oBook1.Close(.f.)
oExcel.Quit()

#5

sonmei2022-03-25 09:28

回复 4楼 csyx

已在2010和2013版本试过都可以成功粘贴，谢谢！