Hallo zusammen
Ich programmiere nun seit einiger Zeit in Excel mit VBA. Das klappt ganz gut. Ich wollte nun einmal ein Programm von mir mit Visual Basic schreiben. Zum Lernen von VB habe ich mir vor einiger Zeit ein EBook geholt, was allerdings noch für VIsual Studio 2013 ist. Kürzlich habe ich nun Visual Studio 2015 heruntergeladen und wollte damit beginnen. Der erste Versuch war, ein Excel Workbook zu öffnen und aus einem bestimmten Tabellenblatt eine Zeile auszulesen. Leider scheiterte ich bereits daran. Ich habe mich grundsätzlich an das EBook gehalten.
HIer mein Code:
Es meldet mir immer an derselben Stelle den Fehler. Woran liegt das? Kann ich das Tabellenblatt nicht so ansprechen oder was mache ich falsch?
Hier noch das Bild des Fehlers.
Ich bedanke mich bereits für eure Hilfe.
Gruss
Custer
Ich programmiere nun seit einiger Zeit in Excel mit VBA. Das klappt ganz gut. Ich wollte nun einmal ein Programm von mir mit Visual Basic schreiben. Zum Lernen von VB habe ich mir vor einiger Zeit ein EBook geholt, was allerdings noch für VIsual Studio 2013 ist. Kürzlich habe ich nun Visual Studio 2015 heruntergeladen und wollte damit beginnen. Der erste Versuch war, ein Excel Workbook zu öffnen und aus einem bestimmten Tabellenblatt eine Zeile auszulesen. Leider scheiterte ich bereits daran. Ich habe mich grundsätzlich an das EBook gehalten.
HIer mein Code:
VB.NET-Quellcode
- Imports Microsoft.Office.Interop
- Module GetDB
- Sub Load_Datenbank()
- Dim ObjExcel As Excel.Application
- Dim ObjWorkbook As Excel.Workbook
- Dim ObjWorksheet As Excel.Worksheets
- Dim Wert As String
- ObjExcel = CreateObject("Excel.Application") 'Öffnet Excel-Instanz
- ObjExcel.Visible = True
- ObjExcel.WindowState = Excel.XlWindowState.xlNormal
- ObjWorkbook = ObjExcel.Workbooks.Open("D:\Eigene Dateien Silvan\OneDrive\Programmieren\Visual Basic\Projekte\SVGDatenbank\Datenbank\SVGDB.xlsm")
- ObjWorksheet = ObjWorkbook.Worksheets("SVGDB") 'HIER KOMMT DER FEHLER<-----------------------------------------!
- Wert = ObjWorksheet.range("A1").value
- MsgBox(Wert)
- End Sub
- End Module
Es meldet mir immer an derselben Stelle den Fehler. Woran liegt das? Kann ich das Tabellenblatt nicht so ansprechen oder was mache ich falsch?
Hier noch das Bild des Fehlers.
Ich bedanke mich bereits für eure Hilfe.
Gruss
Custer
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Custer“ ()