I want to insert an ole control ole_1 in the window, and display the XLS table or doc document, and the ole object loaded file dw_1 doubleclicked event to be able to change the data window (i.e. read data window blob fields, data blob fields can't local display window, then pass it to ole controls showed that is I take compromise), himself a first-time 0 le, brothers and sisters, please think of way, help me to get a show that ole code to also go! Thank you very much!

CodePudding user response:

An inset - & gt; Control - & gt; Ole

CodePudding user response:

If not EXCEL OLE control
Estimates have to connect to EXCEL in reading, writing the data

CodePudding user response:

Miscellaneous 7 miscellaneous!
Data window application highlights index | -- - | | back to front page 2005 - bought their own the domain name www.28du.com
The comprehensive understanding of pb OLE control EXCEL -- --


VFP directly to control in the Excel, the following is to Excel in the development of VFP application project
Introduce the control:




1. Create Excel object

Eole=CREATEOBJECT (' Excel application ')

2. Add a new workbook

Eole. Workbooks. Add

3. Set the third worksheet to activate the worksheet

Eole. Worksheets (" sheet3 "). The Activate

4. Open the specified workbook

Eole. Workbooks. Open (" c: \ temp \ ll XLS ")

5. According to Excel window

Eole. Visible=. T.


6. Change the Excel title bar
Eole. Caption="VFP application calls the Microsoft Excel"

7. To the cell assignment

Eole. Cells (1, 4). value=https://bbs.csdn.net/topics/XM (XM) for database field name

8. Sets the width of the specified column (unit: the number of characters)

Eole. ActiveSheet. Columns (1). ColumnWidth=5

9. Setting specifies the height (unit: pounds)

Eole. ActiveSheet. Rows (1). RowHeight=1/0.035

(set the line height to 1 cm, 1 pound=0.035 cm)

10. Insert a page break before line 18

Eole. Worksheets (" Sheet1 "). The Rows (18) PageBreak=1

11. In the fourth column before delete page breaks

Eole. ActiveSheet. Columns (4). PageBreak=0

12. Specify a border line width (Borders parameters below)

B3: ole. ActiveSheet. Range (" d3 "). The Borders (2) Weight=3

13. Four border lines set the type of the

Eole. ActiveSheet. Range (b3: "d3"). The Borders (2) graphics.linestyle=1

(including Borders parameters: 1 - left, 2 - right, 3 -, 4 -, 5 - inclined, 6 - oblique/; Graphics.linestyle values: 1 to 7 - fine, 2 - fine, 4 -, 9 - two thin lines)

14. Set the header

Eole. ActiveSheet. PageSetup. CenterHeader="statements 1"

15. Set the footer

Eole. ActiveSheet. PageSetup. CenterFooter first & P="page"

16. Set the header to the top margin is 2 cm

Eole. ActiveSheet. PageSetup. HeaderMargin 2/0.035=

17. Set the footer is 3 cm margin for

Eole. ActiveSheet. PageSetup. FooterMargin 3/0.035=

18. Set the top margin is 2 cm

Eole. ActiveSheet. PageSetup. TopMargin 2/0.035=

19. Set bottom to 4 cm

Eole. ActiveSheet. PageSetup. BottomMargin 4/0.035=

20. Set the left margin is 2 cm

Veole. ActiveSheet. PageSetup. LeftMargin 2/0.035=

21. Set the right margin is 2 cm

Eole. ActiveSheet. PageSetup. RightMargin 2/0.035=

22. Settings page horizontal center

Eole. ActiveSheet. PageSetup. CenterHorizontally=. T.

23. Settings page vertical center

Eole. ActiveSheet. PageSetup. CenterVertically=. T.

24. 设置页面纸张大小(1-窄行8511 39- 宽行1411)

Eole. ActiveSheet. PageSetup. PaperSize=1

25. Print cell line

Eole. ActiveSheet. PageSetup. PrintGridlines=. T.

26. Copy the entire worksheet

Eole. ActiveSheet. UsedRange. Copy

27. Copy the specified area

Eole. ActiveSheet. Range (" A1: E2 "). Copy

28. Paste the

Eole. WorkSheet (" Sheet2 "). The Range (" A1 "). The PasteSpecial

29. Insert a line before line 2

Eole. ActiveSheet. Rows (2). Insert

30. Before the second column inserts a column

Eole. ActiveSheet. The Columns (2). Insert

31. Set the font

Eole. ActiveSheet. Cells (2, 1). The Font Name="bold"

32. Set the font size

Eole. ActiveSheet. Cells (1, 1). The Font Size=25

33. Set the font to italics

Eole. ActiveSheet. Cells (1, 1). The Font. Italic=. T.

34. Set a whole column to bold font

Eole. ActiveSheet. Columns (1). The Font, Bold=. T.

35. Clear cell formula

Eole. ActiveSheet. Cells (1, 4). ClearContents

36. Print preview work table

Eole. ActiveSheet. PrintPreview

37. Print the worksheet

Eole. ActiveSheet. PrintOut

38. The worksheet for another

Eole. ActiveWorkbook. SaveAs (" c: \ temp \ 22 XLS ")

39. Give up save

Eole. ActiveWorkbook. Saved=. T.

40. Close the workbook

Eole. Workbooks. Close

41. Exit Excel

Eole. Quit

PB control too.

CodePudding user response:

You should use a database of dw ole object

CodePudding user response:

I think also should use the DataBase of dw Ole Object