Option Explicit
 
'(Achtung: geht nur mit Office 32Bit
'Verweis auf Microsoft Excel 16.0 Object Library
'Demo Tabelle bereits angelegt und ausgefuellt
 
Dim e                               As Excel.Application
Dim wb                              As Workbook
 
Private Sub cmdOeffnen_Click()
  Dim ws                            As Excel.Worksheet
  Dim r1                            As Excel.Range
  Dim r2                            As Excel.Range
 
  Set e = New Excel.Application
  e.Visible = True
 
  Set wb = e.Workbooks.Open("E:\test.xlsx")
  Set ws = wb.Sheets("Tabelle1")
  ws.Visible = xlSheetVisible
 
  Set r1 = ws.Cells(2, 1)
  r1.Font.Bold = True
  r1.Font.Color = vbRed
 
  Set r2 = ws.Range("B2:C4")
  r2.Interior.ColorIndex = 36
 
End Sub
 
Private Sub cmdTabelleSchliessen_Click()
  If Not wb Is Nothing Then
    wb.Save
    wb.Close
    Set wb = Nothing
  End If
  If Not e Is Nothing Then
    e.Quit
    Set e = Nothing
  End If
End Sub