moinsen
ich hab mir folgendes zusammengeschustert
Private Sub Demo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Willkommen, auf OK klicken für Weiter", , "")
Dim x As String
Dim i As Integer
x = ""
Dim objExcelApp As Excel.Application
Dim objWorkbooks As Excel.Workbooks
Dim objSheet As Excel.Worksheet
Dim nQuartal As Integer
objExcelApp = CreateObject("Excel.Application")
objWorkbooks = objExcelApp.Workbooks
objWorkbooks.Open("C:\testfile.xls")
objSheet = objWorkbooks.Item(1).Worksheets(1)
i = 1
While x <> ""
x = objSheet.Range("A" & CStr(i)).Value
MsgBox("wert von x:" & x, MsgBoxStyle.MsgBoxHelp)
objSheet.SaveAs("C:\Testausgabe.xls")
objExcelApp.Visible = True
ListBox1.BeginUpdate()
ListBox1.Items.Add(x)
ListBox1.EndUpdate()
i = i + 1
End While
objWorkbooks.Close()
End Sub
das programm soll mir also ein excel file öffnen und den inhalt aus der ersten spalte in einer listbox anzeigen (die erste spalte enthält dezimalzahlen). nur in der version klappt das nicht so ganz.... er öffnet zwar im hintergund excel aber zeigt mir die zellinhalte nicht an. kann mir da jemand helfen?
des weiteren brauch ich noch irgendwie ne idee wie ich dann die ausgewählte zeile in der List box in ein paar txt-boxen anzeigen lassen kann...
danke
ich hab mir folgendes zusammengeschustert
Private Sub Demo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Willkommen, auf OK klicken für Weiter", , "")
Dim x As String
Dim i As Integer
x = ""
Dim objExcelApp As Excel.Application
Dim objWorkbooks As Excel.Workbooks
Dim objSheet As Excel.Worksheet
Dim nQuartal As Integer
objExcelApp = CreateObject("Excel.Application")
objWorkbooks = objExcelApp.Workbooks
objWorkbooks.Open("C:\testfile.xls")
objSheet = objWorkbooks.Item(1).Worksheets(1)
i = 1
While x <> ""
x = objSheet.Range("A" & CStr(i)).Value
MsgBox("wert von x:" & x, MsgBoxStyle.MsgBoxHelp)
objSheet.SaveAs("C:\Testausgabe.xls")
objExcelApp.Visible = True
ListBox1.BeginUpdate()
ListBox1.Items.Add(x)
ListBox1.EndUpdate()
i = i + 1
End While
objWorkbooks.Close()
End Sub
das programm soll mir also ein excel file öffnen und den inhalt aus der ersten spalte in einer listbox anzeigen (die erste spalte enthält dezimalzahlen). nur in der version klappt das nicht so ganz.... er öffnet zwar im hintergund excel aber zeigt mir die zellinhalte nicht an. kann mir da jemand helfen?
des weiteren brauch ich noch irgendwie ne idee wie ich dann die ausgewählte zeile in der List box in ein paar txt-boxen anzeigen lassen kann...
danke