我想在視窗中插入一個ole 控制元件ole_1，并顯示xls表或doc檔案，并此ole物件裝入的檔案在資料視窗dw_1的doubleclicked事件要能夠改變（即讀取資料視窗的blob欄位，資料視窗的blob欄位不能就地顯示，把它傳給ole控制元件再顯示，是本人采取的折中辦法）。本人初次接觸0le，請各位兄弟姐妹想想法子，幫我弄個顯示ole的代碼也行！謝謝！
uj5u.com熱心網友回復：
inset->control->oleuj5u.com熱心網友回復：
好像沒有EXCEL的OLE控制元件估計得自己連到EXCEL里讀、寫資料了
uj5u.com熱心網友回復：
雜七雜吧資料視窗應用集錦- -| 回首頁 | 2005年索引 | - -購買了自己的國際域名www.28du.com
pb OLE控制EXCEL的全面認識- -
VFP中直接來控制Excel。下面就在開發VFP應用專案時對Excel的
控制作一下介紹：
1．創建Excel物件
eole=CREATEOBJECT(′Excel.application′)
2．添加新作業簿
eole.Workbooks.add
3．設定第3個作業表為激活作業表
eole.Worksheets(″sheet3″).Activate
4．打開指定作業簿
eole.Workbooks.Open(″c:\temp\ll.xls″)
5．顯示Excel視窗
eole.visible=.t.
6．更改Excel標題欄
eole.Caption=″VFP應用程式呼叫Microsoft Excel″
7．給單元格賦值
eole.cells(1,4).value=https://bbs.csdn.net/topics/XM(XM為資料庫欄位名)
8．設定指定列的寬度(單位：字符個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．設定指定行的高度(單位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高為1厘米，1磅=0.035厘米)
10．在第18行之前插入分頁符
eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1
11．在第4列之前洗掉分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定邊框線寬度(Borders引數如下)
ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
13．設定四個邊框線條的型別
eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1
(其中Borders引數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14．設定頁眉
eole.ActiveSheet.PageSetup.CenterHeader=″報表1″
15．設定頁腳
eole.ActiveSheet.PageSetup.CenterFooter=″第＆P頁″
16．設定頁眉到頂端邊距為2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．設定頁腳到底邊距為3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．設定頂邊距為2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．設定底邊距為4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．設定左邊距為2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．設定右邊距為2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．設定頁面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．設定頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．設定頁面紙張大小(1－窄行8511 39－寬行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印單元格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷貝整個作業表
eole.ActiveSheet.UsedRange.Copy
27．拷貝指定區域
eole.ActiveSheet.Range(″A1:E2″).Copy
28．粘貼
eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．設定字體
eole.ActiveSheet.Cells(2,1).Font.Name=″黑體″
32．設定字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．設定字體為斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．設定整列字體為粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除單元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．列印預覽作業表
eole.ActiveSheet.PrintPreview
37．列印輸出作業表
eole.ActiveSheet.PrintOut
38．作業表另為
eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″)
39．放棄存盤
eole.ActiveWorkbook.saved=.t.
40．關閉作業簿
eole.Workbooks.close
41．退出Excel
eole.quit
PB控制也一樣的的.
uj5u.com熱心網友回復：
你應該用dw中的database ole objectuj5u.com熱心網友回復：
我覺得也是應該用dw中的DataBase Ole Object轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/107719.html
標籤：腳本語言
上一篇：自定義函式中Messagebox()函式突然失效了，沒有任何反應
下一篇：表中某一欄位的內容是用戶輸入的公式，如:YJL*JZ(運價率*計重)，該公式用戶有權修改其計算方法，用SQL（或PB)陳述句如何將該欄位公式內的引數（YJL或JZ）賦值為指定變數，并得到計算結果。