200分求答案!传代码:(200分)

  • 主题发起人 主题发起人 小头鹰
  • 开始时间 开始时间

小头鹰

Unregistered / Unconfirmed
GUEST, unregistred user!
把一段VBA代码由DELPHI传到一个EXCEL的VBA编辑器。
 
jsxjd兄弟说的很对:
这些变量只是用来测试的。如果只需要把代码传到EXCEL的话,如下就够了:
procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelApplication1.Workbooks.Add(null,0);
V:=ExcelWorkBook1.VBProject.VBComponents.Add(TOleEnum($00000001));
V.name:='Module';
V.CodeModule.AddFromString('Public Sub test() '+#13+'msgbox("test") '+#13+'end sub');
ExcelApplication1.Visible[0] := True;
end;

其他那些只是用来执行这个VBA的时候所需要的
V.CodeModule.AddFromString('Public Sub test() '+#13+'msgbox("test") '+#13+'end sub');
中的括号中写你要传的代码就行了。必须是字符串形式的。
 
_VBComponent引用哪个单元?
不能编译!
用如此多的OLEVariant变量,没有含义吧?
 
这么多变量基本上没什么用。可以用EmptyParam代替?!
 
而且应该不需要用到_VBComponent
 
兄弟,谢了
 
兄弟谢了,多谢捧场,虽然冷了点。
 
后退
顶部