Option Explicit
 
Private oExl As New Excel.Application
 
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As Integer)
   Dim A As Variant
   Dim Zeile As Long, Spalte As Integer
 
   ' Workbook öffnen
   On Error Resume Next
   oExl.Workbooks.Open sWSName
   If Err > 0 Then
      MsgBox "Exceldatei konnte nicht gefunden oder geöffnet werden.", _
         vbExclamation, "Dateifehler"
      Exit Sub
   End If
 
   On Error GoTo 0
 
   ' Tabelle selektieren:
   ActiveWorkbook.Sheets(1).Select
 
   ' Zelle lesen
   ' A = ActiveSheet.Cells("A1").Value
 
   ' Zelle schreiben
   ActiveSheet.Range("B10").Select
   ActiveCell.Value = "Es geht!!"
 
   ' alles schließen
   On Error Resume Next
   oExl.ActiveWorkbook.SaveAs sWSName
   oExl.ActiveWorkbook.Close False
   oExl.Quit
   Set oExl = Nothing
 
   End
 
 
End Sub
 
 
 
Private Sub Form_Load()
 
    OpenExlWS "C:\Test", 1
 
End Sub

Dunkles Mittelalter? Mein Browsergame:
http://www.fma-game.de