在 VFP 中控件 Excel 的小小经验集 (二)

[shanjuhua]

这论坛的规定就是多--连续回复不能超过3次

========================================
设置打印参数：

问：用Excel做报表，可打印时怎么选择打印机，即.ActiveWindow.SelectedSheets.PrintOut的参数有哪些？

答：
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

expression 必选。该表达式返回“应用于”列表中的某个对象。

From Variant 类型，可选。打印的开始页号。如果省略该参数，将从起始位置开始打印。

To Variant 类型，可选。打印的终止页号。如果省略该参数，将打印至最后一页。

Copies Variant 类型，可选。要打印的份数。如果省略该参数，将只打印一份。

Preview Variant 类型，可选。如果为 True 则 Microsoft Excel 打印指定对象之前进行打印预览。如果为 False，或者省略此参数则立即打印该对象。

ActivePrinter Variant 类型，可选。 设置活动打印机的名称。

PrintToFile Variant 类型，可选。如果为 True 则打印输出到文件。如果没有指定 PrToFileName，则 Microsoft Excel 将提示用户输入要输出文件的文件名。

Collate Variant 类型，可选。如果为 True 则逐份打印每份副本。

PrToFileName 可选，Variant 类型。如果将 PrintToFile 设置为 True，则本参数指定要打印到的文件名。

说明

From 参数和 To 参数所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。

[shanjuhua]

如何用编程的方法打开有密码的Excel文件？

问题：
Excel文件加了密码，如何在VFP中用编程的方式把密码输入，使Excel文件打开
如：
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open("d:\22.xls")
这样还有一个密码的对话框出来，需要输入密码才能打开文件。
如何用编程的方法直接打开有密码的Excel文件？

----------------------------------------------
答:

oEle.Workbooks.Open("d:\22.xls",.f.,.f., ,"123","456")
"123"表示打开权限的密码,
"456"表示修改权限的密码.

[shanjuhua]

问题一:如何将一个已知路径的图片插入到excel中.

答:
oexcel1.ActiveSheet.Pictures.Insert("图片文件名")

----------------------------------------------
问题二：能不能指定在某一位置或区域放置图片并控制图片显示大小呢?

答:
OLEAPP.SHEETS(1).SELECT
oleapp.Range("位置").Select
oleapp.ActiveSheet.Pictures.Insert("图片文件名")).Select
oleapp.Selection.ShapeRange.LockAspectRatio =.T.
oleapp.Selection.ShapeRange.Height = 57

[shanjuhua]

问题：类型为字符型的字段输出到excel 中，前面的零被自动去掉，例如“009877”变为“9877”，怎么解决？

答：
1.在字符串前面加半角单引号“ ' ”

2.
eole.Range("A1:Y1").Select
eole.Selection.NumberFormatLocal = "@"