用OLEOBJECT变量连接EXCEL

《用OLEOBJECT变量连接EXCEL》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用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).

2、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).Activ

3、eSheet.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的应用，好将资料放到一个电子表

4、格Myexcel=createobject('EXCEL.APPLICATION')MYEXCEL.VISIBLE=.f.MYEXCEL.WORKBOOKS.ADDO1=MYEXCEL.ACTIVEWORKBOOK.SHEETS(1)O1.NAME='IN'o1.CELLS(1,2).VALUE='abc'又如：excel=createobject('excel.application')EXCEL.VISIBLE=.T.ExcelFile="D:MYDOCU~1DC1999DC_MDT.XLS"ifnotfile(ExcelFile)w

5、aitwind'nofile:'+excelfilereturnendifexcel.workbooks.open(ExcelFile)PB实现象上述VFP的应用，代码如下：方法一：OLEObjectExcelServerintegerExcelOKExcelServer=CREATEOLEObjectExcelOK=ExcelServer.ConnectToNewObject("excel.application")ExcelServer.Workbooks.Open("c:book.xls")ExcelServer.ActiveWorkB

6、ook.Sheets("Sheet2").SelectExcelServer.ActiveSheet.Cells(1,1).value="书名"ExcelServer.Application.Visible=TRUE方法二：先启动excel文件longhandle_1handle_1=OpenChannel("Excel","c:book.xls")//建立与EXCEL的通道setremote("r1c1","书号","excel","c:book.xls")setremote("r1c2","书名","excel","c:book.xl

7、s")//更改某一行或某一列的值，同时关闭通道closechannel(handle_1,handle(parent))