hallo miteinander,
ich arbeite grad an einer Eingabemaske welche zur auswahl eine bestimmten Modells dienen soll.
Dabei hänge ich grade bei der verknüpfung zu einer Excel Tabelle.
Das heißt ich will eine ComboBox (Name:cbHub) mit werten aus einer Spalte füllen.
Allerdings werden nicht die Werte in die ComboBox übernommen sondern immer blos "System._ComObject".
Ich hab schon paar Stunden gesucht und ausprobiert aber es ist immer wieder das gleiche.
Ich hoff mir kann jemand helfen.
TabKom = Pfad der Tabelle
Code:
Dim xlApp2 As Object, xlWB2 As Object
On Error Resume Next
xlApp2 = GetObject(, "Excel.Application")
If Not xlApp2 Is Nothing Then
xlWB2 = GetObject(TabKom)
If xlWB2 Is Nothing Then
xlApp2.workbooks.Open(TabKom)
End If
Else
xlApp2 = CreateObject("Excel.Application")
xlApp2.workbooks.Open(TabKom)
End If
xlWB2 = GetObject(TabKom)
With xlWB2.Sheets("axial")
'soll die Werte aus B5:B10 in die Combo einlesen
Dim i As Integer
For i = 5 To 10
cbHub.Items.Add(xlWB2.Sheets("axial").Cells(i, 2))
Next
End With
xlApp2.Close(False) : xlWB2.Close(False) : xlApp2 = Nothing : xlWB2 = Nothing
MfG Felix
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP