Delphi中使用Office中VBA的优缺点

在Delphi中使用OLE来与Office应用程序通讯，不外乎两种方式：直接使用VBA和使用Delphi的封装组(TExcelApplication,TExcelWorkbook,

TExcelSheet等等)，两种方式各有优劣。这里简要谈谈直接VBA调用方式。

直接使用VBA的优点：

1、参数传递方面比较灵活。比如打开文档函数Workbooks.Open，它有很多可选参数（可以认为等同于默认参数），在VBA中定义如下：

Function Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword],

[IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter],

[AddToMru], [Local], [CorruptLoad]) As Workbook

在一般的编程语言中，是不可以跳过参数表中某个参数而传递后面的参数的，所以几乎所有的语言都要求例程的默认参数必须定义在参

数表的最后。而使用VBA可以做到参数的跳跃传递。比如要以只读方式打开文档“D:\Test.xls”，就可以这样调用Open函数：

xlApp:=CreateOleObject('Excel.Application');

xlApp.Caption:='Delphi中使用VBA与Excel通讯';

xlApp.Visible:=True;

xlApp.Workbooks.Open(FileName:='D:\Test.xls',ReadOnly:=True);

请注意，上面的调用在传递参数时跳过了参数UpdateLinks。我是在Excel中录制宏并参考其代码后才想到在Delphi中也这样写试试的，

结果运行通过。这种写法我从来没在Delphi中见过，感到不可思议。所以说，有想法就要实践！

2、可以在Office应用程序中录制宏，然后将生成的宏代码稍加修改就可以复制到Delphi中，简化了代码的编写。参考宏代码时要注意去

除无用的冗余代码。比如你打开字体对话框，仅改变字体大小，但是在录制的宏代码中会设置所有的字体选项，你需要删除冗余代码。

3、可以传递多种VBA能识别的格式的参数。比如：

xlSheet.Columns[1]表示第一列

xlSheet.Columns['A:G']表示1-7列

有优点自然也有缺点，直接使用VBA的缺点是：

1、使用Variant来代表OLE对象属于后期绑定方式，效率较低

2、手动编写代码时比较烦琐，因为没有了代码提示功能，并且不能使用with……do来简化代码