Excel zellen im ebtsprechenden Format auslesen

  • VB.NET

    Excel zellen im ebtsprechenden Format auslesen

    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