data importeren uit excelsheet via VB.net

  • Onderwerp starter Onderwerp starter vson
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

vson

Gebruiker
Lid geworden
23 nov 2000
Berichten
341
ik wil via VB.NET de data importeren uit een excelsheet en laten weergeven in textboxen in VB.NET
Heeft iemand enig idee hoe de code eruit zou moeten zien?.
 
Bekijk eerst Microsoft PIAs

Daarna:

Code:
Public Sub Import()
        'we starten excel
        Dim moExcelApp As New Excel.Application()
        'moExcelApp.Visible = True
        'we laden een opgeslagen bestand
        Dim oWBoek As Excel.Workbook = moExcelApp.Workbooks.Open(Path)
        'we zorgen ervoor dat het eerste blad in de werkboek het blad is waarmee we werken
        Dim oWBlad As Excel.Worksheet
        oWBlad = oWBoek.Worksheets.Item(1)
        'we maken een range aan
        Dim oRange As Excel.Range
        'we starten bij A1 om in te lezen
        oRange = oWBlad.Range("A1")
        Dim j As Integer = 0

        'Om alle kolommen te overlopen gebruik je
        'oRank.Offset(0, 1)
        'waarbij de 0 staat voor het aantal rijen dat je opschuift en 1 voor het aantal kolommen dat je opschuift
        For iRij As Integer = 1 To 5
            For iKolom As Integer = 1 To 5
                txtTestExcel.text &= oRange.Value
                oRange = oRange.Offset(0, 1)
            Next
            oRange = oRange.Offset(1, -4)
        Next
        'excel afsluiten
        moExcelApp.Quit()
    End Sub

en vergeet dit niet:

Code:
Imports Microsoft.Office.Interop
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan