2010年7月29日 星期四

使用Powerbuilder在EXCEL欄位插入圖片

這是由 calvin 提供的
主要是想把圖片插入EXCEL裡面

可以參考下列片段:



string ls_filename1,ls_path1,ls_range

//要插入的圖
ls_pic = "c:\sign.bmp"

OleObject Loo_Excel

Loo_Excel=create oleobject

if Loo_Excel.ConnectToNewObject("Excel.Application") <> 0 then

messagebox('提示','系統未安裝Excel,無法運行此操作!')
  return
end if

Loo_Excel.Workbooks.Open(ls_filename)

//選好要插入的儲存格

Loo_Excel.Application.Range( "M22").Select

Loo_Excel.Application.ActiveSheet.Pictures.Insert(ls_pic).Select

Loo_Excel.application.ActiveWorkbook.Save()

Loo_Excel.Application.ScreenUpdating = True

Loo_Excel.Application.workbooks.close()

Loo_Excel.DisconnectObject()

destroy Loo_Excel



其他的部分都可以依理延伸。

0 個回應: