Einzelnen Beitrag anzeigen

pittipivi

Registriert seit: 11. Dez 2005
7 Beiträge
 
#11

Re: auf Excel VBA Variablen zugreifen

  Alt 14. Dez 2005, 17:10
Hallo mumu,
hier mein Testcode. Vor allem der Bereich, der Excel aufruft, wie Du sagtest. Ich programmiere mit Delphi 7.


Delphi-Quellcode:
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    PageControl1: TPageControl;
    Button1: TButton;
    Button2: TButton;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    StringGrid1: TStringGrid;
    OleContainer1: TOleContainer;
    Button3: TButton;
    ExcelChart1: TExcelChart;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelApplication1: TExcelApplication;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
 ExcelApplication1.Connect;
  ExcelApplication1.Visible[GetUserDefaultLCID] := False;
  ExcelApplication1.UserControl := True;
  ExcelApplication1.Workbooks.Open('D:\OLEBeispiel.xls',EmptyParam,EmptyParam,EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,0);

  ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkBook);

  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item['Interface'] as _Worksheet);
  ExcelWorksheet1.Activate;

  ExcelWorksheet2.ConnectTo(ExcelWorkbook1.Sheets.Item[2] as _Worksheet);
  ExcelWorksheet2.Activate;

  ExcelWorksheet3.ConnectTo(ExcelWorkbook1.Sheets.Item[3] as _Worksheet);
  ExcelWorksheet4.ConnectTo(ExcelWorkbook1.Sheets.Item[4] as _Worksheet);
end;
Zur Zeit teste ich vieles aus. Die Frage ist eben: Wie kann ich von Delphi7 aus auf Variablen und Konstanten in z.B. Modul1 von VBA zugreifen.
Gruß...
Peter

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]
  Mit Zitat antworten Zitat