用OLEOBJECT变量连接EXCEL.doc

用OLEOBJECT变量连接EXCEL,或用DDE通道连接EXCEL.后逐行写入某个EXCEL文档的SHEET中.iole_object_Excel.Application.Workbooks.Add() /新增工作薄以下的Workbooks(1)也可使用ActiveWorkbook替换iole_object_Excel.Application.Workbooks(1).Sheets(i).Name = AA /设置第一个工作薄的第I个SHEET名称iole_object_Excel.Application.Workbooks(1).Worksheets(sheet1).Activate /激活第一个工作薄名为SHEET1的页iole_object_Excel.Application.Workbooks(1).Sheets.Add() /新增一个SHEET页iole_object_Excel.Application.Workbooks(1).Sheets(i).Select /选择第I个SHEET页使其成为当前活动页iole_object_Excel.Application.Workbooks(1).ActiveSheet.Move(iole_object_Excel.Application.Workbooks(1).Sheets(iole_object_Excel.Application.Workbooks(1).Sheets.Count) / 将当前SHEET页移动到最后iole_object_Excel.Application.Workbooks(1).ActiveSheet.Range(A1).FormulaR1C1 =W/设置当前活动页的A1单元格的值。PB实现象下面的VFP 的应用，好将资料放到一个电子表格Myexcel=createobject(EXCEL.APPLICATION)MYEXCEL.VISIBLE=.f.MYEXCEL.WORKBOOKS.ADDO1=MYEXCEL.ACTIVEWORKBOOK.SHEETS(1)O1.NAME=INo1.CELLS(1,2).VALUE=abc又如：excel=createobject(excel.application)EXCEL.VISIBLE=.T.ExcelFile=D:MYDOCU1DC1999DC_MDT.XLSif not file(ExcelFile)wait wind no file:+excelfilereturnendifexcel.workbooks.open(ExcelFile)PB实现象上述VFP 的应用，代码如下：方法一：OLEObject ExcelServerinteger ExcelOKExcelServer = CREATE OLEObjectExcelOK = ExcelServer.ConnectToNewObject( excel.application )ExcelServer.Workbooks.Open(c:book.xls)ExcelServer.ActiveWorkBook.Sheets(Sheet2).SelectExcelServer.ActiveSheet.Cells(1,1).value = 书名ExcelServer.Application.Visible = TRUE方法二：先启动excel文件long handle_1handle_1 = OpenChannel(Excel, c:book.xls)/建立与EXCEL的通道setremote(r1c1,书号,excel, c:book.xls)setremote(