Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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
Imports Microsoft.Office.Interop
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.