Private Sub Command1_Click()
' Excel-Objekt Variable definieren
Dim ExApp As Object
' Excel-Objekt erzeugen
Set ExApp = CreateObject("Excel.Application")
 
With ExApp
  ' Excel anzeigen
  .Application.Visible = True
   Workbooks.Open FileName:=App.path & "\NeuTest.csv"
 
  ' nach getaner Arbeit, Excel wieder beenden
'  .Application.Quit (mach ich in Excel)
End With
Set ExApp = Nothing
End Sub

Mit freundlichen Grüssen
Detlev