Private myExl As New Excel.Application

 

' Bsp: Excel-Arbeitsmappen öffnen und Inhalt

' der Zelle A1 in einer Textbox anzeigen

Private Sub OpenmyExcel()

 

sTabName = App.Path & "Test.xls"

  ' Excel-Arbeitsmappe öffnen

  myExl.Workbooks.Open sTabName

 

  ' Tabelle1 auswählen

  myExl.ActiveWorkbook.Sheets("stock check-purchase").Select

 

  ' Inhalt der Zelle A7 in eine Textbox ausgeben

 



  Text1.Text = myExl.Range("A7").Value

  

End Sub