importeren vanuit excel

[rene heitse]

Hallo,

Voor mijn stage probeer ik gegevens uit excel te importeren. ik heb het volgende opzetje gemaakt. Echter nu kan ik steeds maar 1 cel weergeven per keer terwijl ik de gegevens van 10 cellen langs elkaar wil weergeven

Hiermee lukt het me op om steeds een cel zichtbaar te maken, maar hoe krijg ik bijvoorbeeld een hele rij of meerdere cellen zichtbaar door een muisklik?

alvast dank,


Imports Microsoft.Office.Interop


Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Try
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Open("C:\Info.xls"), Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

With xlSheet.Application
MessageBox.Show("de waarde in cel a1 is: " & xlSheet.Range("c10").Value.ToString)
.Quit()
End With

Catch ex As NullReferenceException
MessageBox.Show(ex.Message.ToString)
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)

Finally
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing
End Try

End Sub
End Class