daschifahrer
Neues Mitglied
hallo leute
ich hab ein problem und zwar bei der datenverwatlung mit excel
und zwar gibt er mir an einer stelle immer einen fehler aus und ich find ihn nicht
kann einer von euch mal drüber schaun?
die datei sollte im mm eine zeile durchlaufen (8 spalten) und dabei alle werte ausgeben(im mm noch mit messagebox danach aber in einer liste)
ich hab ein problem und zwar bei der datenverwatlung mit excel
und zwar gibt er mir an einer stelle immer einen fehler aus und ich find ihn nicht
kann einer von euch mal drüber schaun?
die datei sollte im mm eine zeile durchlaufen (8 spalten) und dabei alle werte ausgeben(im mm noch mit messagebox danach aber in einer liste)
Code:
Private Sub Btn_neu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_neu.Click
Dim i As Double
Dim sFile As String
Dim sResult As String
Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
sFile = "C:\Users\daschifahrer\Desktop\proggen\miniplan-maker\Minis_für_minimaker.xls" ' Dateipfad u. -name
Excel1.Workbooks.Open(sFile) ' Datei öffnen
Excel1.Visible = False ' Excel ist unsichtbar
sResult = Excel1.Range("A2").Value
For i = 1 To 8
i = i + 1
sResult = Excel1.Offset(0, i).Value ' hier kommt imer der fehler -.-
MessageBox.Show(sResult)
Next i
'Do While sResult <> ""
'sResult = Excel1.Offset(1, 0).ToString
'lst_namen.Items.Add(sResult)
'Loop
Excel1.ActiveWorkbook.Close()
Excel1.Workbooks.Close()
End Sub