vf控制excel将三个excel个工作表合并到一个excel工作簿中如何实现?

[ilovevf]

vf控制excel将三个excel已经存在的工作表合并到一个excel工作簿中如何实现?
求各位大侠帮忙!谢谢!

[十豆三]

录制宏，你手工操作，然后根据宏代码转写成 vfp 代码。

[ilovevf]

有了思路，谢谢！

[不假思索]

eole = Createobject( 'excel.application' )
ebook1 = eole.workbooks.Open( 'myExcel1.xls' )

For i = 2 To n
ebook2 = eole.workbooks.Open( 'myExcel' + alltrim( str( i )) + '.xls' )
ebook2.activesheet.Copy( ,ebook1.Worksheets( i - 1 )) &&把下一张表复制到前一张表之后。
ebook2.Close( .F.)
ENDFOR

ebook1.SaveAs( 'someone.xls' )
ebook1.Close

eole.Quit
Release eole