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');
中的括号中写你要传的代码就行了。必须是字符串形式的。