选择 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:\temp\123.xls ')
For i = 1 To zx.ActiveSheet.HPageBreaks.Count
WAIT WINDOW zx.ActiveSheet.HPageBreaks.Item(i).Location.Row
ENDFOR