1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

{Übergabe an Excel}
procedure Texcelab.eexcel;
begin
 try
    ExcelApp := GetActiveOleObject('Excel.Application');
     except
    try
       ExcelApp := CreateOleObject('Excel.Application');
    except
      application.messagebox ('Excel ist nicht installiert!','Fehler',16);
      Exit;
    end;
  end;
   ExcelApp.visible:=false;
  // Open a Workbook, Arbeitsmappe öffnen
  ExcelApp.Workbooks.Open('C:\test'{Siehe Frage 1}'\Test.XLS');					

1:

ExcelApp.Workbooks.Open(IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'test.xls');					

1:

Excelapp.run('MeinMakro1');