选择 Excel 多张 sheet,该如何解决

选择 Excel 多张 sheet
选择   Excel   多张   sheet   ,   目的复制指定页
*oExl.workbooks.Sheets(Array( '1 ', '2 ', '3 ')).Select   ---   excel   宏指令,但在vfp不能直接用,请指点

oExl.ActiveWorkbook.SaveAs( 'c:22.xls ')


------解决方案--------------------
eole.sheets(1).select &&选择第一工作表
eole.activesheet.cells.copy &&拷贝第一工作表
eole.sheets(2).select &&选择第二工作表
eole.ActiveSheet.Paste &&粘贴
或进行另存为
eole.ActiveWorkbook.SaveAs( 'c:22.xls ')

------解决方案--------------------
是8页还是8个SHEET？
如是前者，要编程解决，得到行号，再处理，示例：
ZX = CREATEOBJECT( 'excel.application ', ' ')
zx.WorkBooks.Open( 'd:temp123.xls ')
For i = 1 To zx.ActiveSheet.HPageBreaks.Count
WAIT WINDOW zx.ActiveSheet.HPageBreaks.Item(i).Location.Row
ENDFOR