%
% function ms_excel()
%    Zugriff auf Excel-Datei ms_excel.xls
%
function ms_excel()
   % Excel starten
   h = actxserver ( 'Excel.Application' )
   h.Visible = 1;
   % Arbeitsmappen
   hWBs = h.Workbooks
   
   % aktuelles Verzeichnis bestimmen
   path = pwd
   % Datei im aktuellen Verzeichnis
   filename = [path,'/ms_excel.xls']
   
   % Excel-Datei öffnen
   map = hWBs.Open( filename )
   
   % Tabellen
   Tabellen = map.Sheets
   TabellenZahl = Tabellen.Count
   % 1. Tabelle
   Tab1 = Tabellen.get( 'Item', 1 )
   Tab1.Activate
   
   % Zellen auslesen
   Bereich = 'A1:B2'
   Zellen = h.Activesheet.get( 'Range', Bereich )
   ZellenWerte = Zellen.Value
   
   % 2 Sekunden warten
   pause( 2 )
   
   % Schließen und Beenden
   map.Close
   h.Quit
   h.delete
end