請教大神：
我想看到經過樣板excel及資料視窗中資料拼湊出來的待保存、列印的目標EXCEL表格，該怎么實作？
是否視窗中要定義一個ole object，object 型別定義為excel表單，以用于我的目標excel的預覽？
如果這樣，如何賦值呢？
uj5u.com熱心網友回復：
於Excel 裏插入圖片的例子, 設置cell值也是類似的OLEObject ExcelServer
integer li_rc
String ls_path = 'd:\enco\5094.jpg'
ExcelServer = CREATE OLEObject
li_rc = ExcelServer.ConnectToObject("Excel.Application")
if li_rc < 0 then
li_rc = ExcelServer.ConnectToNewObject("Excel.Application")
if li_rc < 0 then
Messagebox(" 提示 "," 您可能沒裝 EXCEL! 請檢查 ")
return
end if
end if
//ExcelServer
ExcelServer.Application.workbooks.Add()
ExcelServer.Application.Visible = False
// 插入位置 b 列 3 行
ExcelServer.Application.Range("B3").Select
ExcelServer.Application.ActiveSheet.Pictures.Insert(ls_path).Select
ExcelServer.application.ActiveSheet.saveas('d:\enco\demo.xls')
ExcelServer.Application.workbooks.close()
ExcelServer.Disconnectobject()
destroy ExcelServer
uj5u.com熱心網友回復：
oleobject eoleeole=CREATE OLEObject
//連結 excel
li_ret=eole.ConnectToObject("","Excel.Application")
if li_ret<>0 then
li_ret=eole.ConnectToNewObject("Excel.Application")
end if
//-------------
string ls_full_name
OLEObject excelWB
ls_full_name='excel_xltx_filename.xltx' //xltx 檔名
excelWB=eole.Workbooks.Open(ls_full_name,0,true,1)
uj5u.com熱心網友回復：
樓上的大神，沒看到進行列印預覽的陳述句。問：這列印預覽是printpreview將activesheet作為預覽內容，把控制權交給excel程式，由excel來展現的嗎？還是？uj5u.com熱心網友回復：
反正我運行到printpreview那一步時excel沒動靜，程式死機，無法退出！uj5u.com熱心網友回復：
剛測試ExcelOle.Worksheets(1).PrintPreview
的確, 不退出Excel的Preview前, PB不會有反應
會找時間研究, 為何會如此
於找到答案前, 要請其他大神先協助
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/26428.html
標籤：控件與界面