Hallo zusammen,
ich habe eine Form mit dem ich dann Excel Daten auslesen will.
Darin sind unter anderem zwei Komboboxen, die durch die Excel-Datei gefüllt werden.
Die Komboboxen dienen dazu später die richtigen Sheets auszuwählen und genau da hänge ich. Ich bekomme meine Sheets nicht ausgewählt.
Wie muss ich weiterarbeiten das ich den Inhalt der Sheets auslesen kann?
Das ist mein aktuell Code:
Ab der Stelle Hier CODE, habe ich das Problem das kein xlssheets.Select(1) funktioniert, er bittet mir nur die Optionen im Intellisens mit Equals,Tostring,etc.
ich habe eine Form mit dem ich dann Excel Daten auslesen will.
Darin sind unter anderem zwei Komboboxen, die durch die Excel-Datei gefüllt werden.
Die Komboboxen dienen dazu später die richtigen Sheets auszuwählen und genau da hänge ich. Ich bekomme meine Sheets nicht ausgewählt.
Wie muss ich weiterarbeiten das ich den Inhalt der Sheets auslesen kann?
Das ist mein aktuell Code:
VB.NET-Quellcode
- Imports Microsoft.Office.Interop
- Public Class frmImport
- Dim _DataFile As New FileInfo("Daten.xml")
- Dim xlsApp As New Excel.Application
- Dim wb As Excel._Workbook
- Private Sub frmImport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'Daten einlesen
- Me.DsDaten.ReadXml(_DataFile.FullName)
- End Sub
- Private Sub btn_ExcelDoeffnen_Click(sender As Object, e As EventArgs) Handles btn_ExcelDoeffnen.Click
- 'Deklarationen
- Dim ReadedSheets As Excel.Worksheet
- If ofdExcelDatei.ShowDialog() = DialogResult.OK Then
- wb = xlsApp.Workbooks.Open(ofdExcelDatei.FileName)
- xlsApp.Visible = False
- 'Labels und Zonen anzeigen Button aktivieren
- lblKostentbl.Visible = True
- lblZonentbl.Visible = True
- cboKosten.Enabled = True
- cboZone.Enabled = True
- cboKosten.Visible = True
- cboZone.Visible = True
- btnImport.Enabled = True
- cboZone.Items.Clear()
- cboKosten.Items.Clear()
- For Each ReadedSheets In wb.Worksheets
- cboZone.Items.Add(ReadedSheets.Name)
- cboKosten.Items.Add(ReadedSheets.Name)
- Next
- End If
- End Sub
- Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
- Dim dtaSystemdate As Date = System.DateTime.Now
- Dim strDatafilewExt As String = Path.GetFileNameWithoutExtension(_DataFile.Name)
- Dim strbckFilename As String = strDatafilewExt & "_" & dtaSystemdate.Year & dtaSystemdate.Month & dtaSystemdate.Day & "_" & dtaSystemdate.Hour & dtaSystemdate.Minute & ".bck"
- Dim strDataPath As String = Path.GetDirectoryName(_DataFile.FullName)
- Dim strSelectedZone As String = Convert.ToString(cboZone.SelectedItem)
- Dim strselectedKosten As String = Convert.ToString(cboKosten.SelectedItem)
- '_DataFile.CopyTo(strDataPath & "\" & strbckFilename)
- Dim xlssheets As Object
- xlssheets = wb.Worksheets(strSelectedZone) '<-- Ob das Sinn macht ist schon mal die Frage,
- 'HIER CODE
- 'HIER CODE
- 'UND NOCH MEHR CODE
- End Sub
- End Class
Ab der Stelle Hier CODE, habe ich das Problem das kein xlssheets.Select(1) funktioniert, er bittet mir nur die Optionen im Intellisens mit Equals,Tostring,etc.
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „TimH“ ()