Hallo,
ich möchte über eine Windows Form auf den inhalt von Excelzellen zugreifen und diese in Textboxen übertragen.
Das klappt auch schon soweit ganz gut. Mein Problem ist nur die Formatierung der Excelzellen. Wie deklariere ich die Zelle am besten,
damit in den Textboxen auch wirklich das steht wie in den Excelzellen.Also
7:30 = 7:30 und nicht 0,33...
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
'Dim objExcel As Excel.Application
Dim oExcel As Object
objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Dim obook As Object
obook = objExcel.Workbooks.Open(OpenFileDialog1.FileName)
oSheet = obook.Worksheets(1)
Form1.TB_Name.Text = oSheet.range("D5").Value
Form1.TB_PersNr.Text = oSheet.Range("W5").Value
Form1.TB_Jahr.Text = oSheet.Range("AA5").Value
Form1.TB_1.Text = oSheet.range("C9").value
Form1.TB_2.Text = oSheet.range("G9").value
Form1.TB_3.Text = oSheet.range("J9").value
Form1.TB_4.Text = oSheet.range("M9").value
ich möchte über eine Windows Form auf den inhalt von Excelzellen zugreifen und diese in Textboxen übertragen.
Das klappt auch schon soweit ganz gut. Mein Problem ist nur die Formatierung der Excelzellen. Wie deklariere ich die Zelle am besten,
damit in den Textboxen auch wirklich das steht wie in den Excelzellen.Also
7:30 = 7:30 und nicht 0,33...
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
'Dim objExcel As Excel.Application
Dim oExcel As Object
objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Dim obook As Object
obook = objExcel.Workbooks.Open(OpenFileDialog1.FileName)
oSheet = obook.Worksheets(1)
Form1.TB_Name.Text = oSheet.range("D5").Value
Form1.TB_PersNr.Text = oSheet.Range("W5").Value
Form1.TB_Jahr.Text = oSheet.Range("AA5").Value
Form1.TB_1.Text = oSheet.range("C9").value
Form1.TB_2.Text = oSheet.range("G9").value
Form1.TB_3.Text = oSheet.range("J9").value
Form1.TB_4.Text = oSheet.range("M9").value