用ole控件如何操作excel、powerpointer，急急急急急！！！！！！！！！

[lmzyhy]

//从数据库取数据
blob lb_tempt,lb_nullblob
sqlca.autocommit=true
SELECTblob content
INTO :lb_tempt
FROM TClientHandy
WHERE id = :il_ID ;
sqlca.autocommit=false
if SQLCA.SQLCode < 0 then //查询数据库出错
MessageBox("数据库错误",SQLCA.SQLErrText)
return
end if
ole_1.objectdata =lb_tempt
//ole_1.activate(offsite!)

oleobject ole_client
ole_client=create oleobject
if ls_file_type='Word 文件' then
ole_client=ole_1.object.application
ole_client.documents.item(1).saveas("e:\opcrm\"+ls_document_name)
end if
if ls_file_type='Excel 文件' then
??????
end if
if ls_file_type='PowerPoint 文件' then
??????
end if
destroy ole_client

oleobject ole_t
ole_t=create oleobject
if ls_file_type='Word 文件' then
ole_t.connecttonewobject( "word.application")
ole_t.application.visible=true
ole_t.documents.open("e:\opcrm\"+ls_document_name)
end if
destroy ole_t
我的问题是：ole_client=ole_1.object.application
ole_client.documents.item(1).saveas("e:\opcrm\"+ls_document_name)
在world中可以，但是在excel和powerpointer中不可以，如何去做？
我这个主要实现从数据库中读取到excel和powerpointer，然后对修改进行保存，然后在保存到数据库，world 我已经实现，清高手指教！！！！

[aty283]

up

[sinkiangscorpio]

OLEObject xlapp,xlsub
int ret
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.application" )
if ret < 0 then
MessageBox("没有安装Excel!",string(ret))
return
end if
xlApp.Application.Workbooks.open(gs_path+'\report\temp.xls')

xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]

//xlapp.Application.ActiveSheet.WindowState=1
xlapp.Application.ActiveSheet.PageSetup.PrintHeadings = False
xlapp.Application.ActiveSheet.PageSetup.PrintHeadings = False
xlapp.Application.ActiveSheet.PageSetup.PrintGridlines = False
xlapp.Application.ActiveSheet.PageSetup.PrintQuality = 600
xlapp.Application.ActiveSheet.PageSetup.CenterHorizontally = true
xlapp.Application.ActiveSheet.PageSetup.CenterVertically = False
xlapp.Application.ActiveSheet.PageSetup.Orientation=2
xlapp.Application.ActiveSheet.PageSetup.Draft = False
xlapp.Application.ActiveSheet.PageSetup.PaperSize = 8
//xlapp.Application.ActiveSheet.PageSetup.FirstPageNumber = "xlAutomatic"
xlapp.Application.ActiveSheet.PageSetup.BlackAndWhite = False
xlapp.Application.ActiveSheet.PageSetup.FitToPagesWide = 1
xlapp.Application.ActiveSheet.PageSetup.FitToPagesTall = 1


//xlapp.Application.Range("A5:AN64").Select
//xlapp.Application.Selection.RowHeight = 22.5

//
xlapp.Application.ActiveWorkbook.PrintOut
xlapp.Application.ActiveWorkbook.saved = true
xlapp.Application.ActiveWorkbook.close
xlApp.DisConnectObject()
Destroy xlapp

[lmzyhy]

谢谢高手指教，上面的问题我已经解决，但是只有在word中里的进程不能关掉，也就是我查看后关掉word但是进程里的关不掉，清高手帮助！！！！

[knapman]

ole_object.Application.Quit()

ole_object.DisConnectObject() //断开OLE连接

Destroy ole_object