Set Excel1 = CreateObject("Excel.Application")
    Excel.Visible = False                                                    _
      '<<-- Excel bleibt unsichtbar
    Excel1.EnableEvents = False                                    '<<-- Macros 
    ' werden geblockt
    Excel1.Workbooks.Open DateiName                      '<<-- Eceldatei wird 
    ' geöffnet
 
 
        B = "B" & 1                                                             _
               '<<-- festlegen welche Zelle in Excel genommen werden soll
Array(2,1) = Excel1.Worksheets(1).Range(B).Value  '<<-- Inhalt in Excel schreiben
 
 
 
    Excel1.ActiveWorkbook.Close savechanges:=False    '<<-- Excel geschlossen 
    ' ohne save
 
  Excel1.Quit                                                                   _
               '<<-- ExcelAnwendung beenden
  Set Excel1 = Nothing

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD