如何让VBA动态执行啊,比如:
var
s:='ActiveSheet.Cell[1,1].Value:=123456';
obj:=CreateOleObject('Excel.Application');
如何让obj.s相当于执行obj.ActiveSheet.Cell[1,1].Value:=123456啊?
如果把串ActiveSheet.Cell[1,1].Value:=123456放在一个文本中,
如何让VBA能执行它?
var
s:='ActiveSheet.Cell[1,1].Value:=123456';
obj:=CreateOleObject('Excel.Application');
如何让obj.s相当于执行obj.ActiveSheet.Cell[1,1].Value:=123456啊?
如果把串ActiveSheet.Cell[1,1].Value:=123456放在一个文本中,
如何让VBA能执行它?
解决方案 »
- SQL的一个多实例名的问题:
- 庆祝<修罗>前辈的爱情小说浏览量突破6000回复超过500大家鼓掌!
- zzzzzzzzzzzzzzzzzzzz
- 我的BDE打开ODBC的时候需要我密码登陆~~急!!!!!!
- 请帮助解释一下^的用法
- 求教::如何获得局域网内提供sqlserver服务的服务器名列表?
- 找了半天,哪位老兄有delphi 7的开发文档interweb方面的
- delphi中TClientSocket的小问题
- 关于收款机的问题,请大家帮忙
- 初始化代码书写位置的问题
- delphi7 THTTPRIO 组件在windows2003上使用调用webservice报内存错误的问题
- 有关FastReport的问题?
下面,我们以Delphi程序为例,说明这种调用方法: Unit excel; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs, StdCtrls,ComObj; //ComObj是操作OLE对象的函数集 type TForm1 =class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var eclApp,WorkBook:Variant; //声明为OLE Automation 对象 xlsFileName:string;begin xlsFileName:=‘ex.xls‘; try //创建OLE对象Excel Application与 WorkBook eclApp:=CreateOleObject(‘Excel.Application‘); WorkBook:=CreateOleobject(‘Excel.Sheet‘); except ShowMessage(‘您的机器里未安装Microsoft Excel。‘); Exit; end; try ShowMessage(‘下面演示:新建一个XLS文件,并写入数据,最后关闭它。‘); workBook:=eclApp.workBooks.Add; eclApp.Cells(1 , 1):=‘字符型‘; eclApp.Cells(2 , 1):=‘Excel文件‘; eclApp.Cells(1 , 2):=‘Money型‘; eclApp.Cells(2 , 2):=10.01; eclApp.Cells(1 , 3):=‘日期型‘;eclApp.Cells(2 , 3):=Date; WorkBook.saveas(xlsFileName); WorkBook.close; ShowMessage(‘下面演示:打开刚创建的XLS文件,并修改其中的内容,然后,由用户决定是否保存。‘); WorkBook:=eclApp.workBooks.Open(xlsFileName); eclApp.Cells(2 , 1):=‘Excel文件类型‘; if MessageDlg(xlsFileName+‘文件已被修改,是否保存?‘,mtConfirmation, [mbYes, mbNo], 0) = mrYes then WorkBook.save else workBook.Saved := True; //放弃修改 WorkBook.Close; eclApp.Quit; //退出Excel Application //释放VARIANT变量 eclApp:=Unassigned; except ShowMessage(‘不能正确操作Excel文件。可能是该文件已被其他程序打开, 或系统错误。‘); WorkBook.close; eclApp.Quit; //释放VARIANT变量 eclApp:=Unassigned; end; end; end. 经过上述操作过程后,我们就可以很放心地将数据库中的数据转换成Excel文件了。