引言: 大家好！不好意思又有一個VBA的問題，這次想請教 如何把值由Delphi丟給VBA的Macro用？ 變數有2個以上的！ 謝謝！

 
excel:
  Function F(A As Integer, B As String)
   MsgBox str(A) & B
  End Function
delhpi:
  MyExcel.run( 'F',1,'test');    這樣就行了...run(第一個是函數名稱,後面是他的參數....)    

EXCEL中:
Sub Macro1(ByVal a As Integer, ByVal b As String)
  MsgBox a
  MsgBox b
End Sub    delphi中:
procedure TForm1.Button1Click(Sender: TObject);
var
  excel: Variant;
  a, b, c: string;
begin
  excel := CreateOleObject('excel.application');
  excel.WorkBooks.Open('c:\1.xls');
  excel.Visible := true;
  excel.Run('Module1.Macro1', 20, 'test');
  excel.Quit;
  excel := Unassigned;
end;