VFP创建Excel新办法

最近研究VFP的随机例程，发现两种创建Excel表格的新办法，跟大家分享一下。

代码一：

objXLsheet=CreateObject('Excel.Sheet')
objXLsheet.Application.Visible=.T.

 

代码二：

tmpsheet = GetObject('','Excel.Sheet')
XLApp = tmpsheet.Application
XLApp.Visible = .t.

 

原来一直用

oExcel=Createobject("Excel.application")
oExcel.Worksheets.Add()

的形式。

 

没想到原来Excel表是可以直接创建的，我们原本就是要创建表格，这样不是更直观！

 

手册里说，对某些服务器应用程序，GetObject(,'Excel.Sheet')延用应用程序的现有实例，GetObject('filename.xls','Excel.Sheet'）会启动应用程序的新实例。我电脑里第一个参数不能省，但引号之间可以留空。而且反复测试之下，并未发现有所不同。

CreateObject()和GetObject()之间也未发现有所不同。

也许是测试穷举不足。大家留意。