读书人

在EXCEL中怎么实现在工作表(Sheet1)

发布时间: 2013-05-02 09:39:29 作者: rapoo

在EXCEL中如何实现在工作表(Sheet1)前面插入一个新的工作表?
在EXCEL中如何实现在工作表(Sheet1)前面插入一个新的工作表?
vfp命令怎么写?谢谢

[解决办法]
_ole_excel = CreateObject("Excel.Application")
_ole_excel.VISIBLE=.T.
_ole_excel.WorkBooks.Open('123.XLS')
AA=_ole_excel.ActiveWorkbook.Sheets
AA.ADD(_ole_excel.SHEETS(1),,1,-4167)
[解决办法]
lcFileName='c:\Book1.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open((lcFileName)) &&打开文件
oExcel.Visible=.T.
oExcel.Worksheets.Add(oExcel.Sheets(1)) && 在第1个Sheet之前新建一个 Sheet

*注意 oExcel.Sheets(1) 表示第1个 Sheet,并不一定名称为 Sheet1 的。

读书人网 >VFP

热点推荐