Aplicacion windows (Excel-acces)(vb.net)

[becode]

Lo primero perdon porque soy muy novato en este tema.
Necesito saber como pued contar la cantidad de registros de excel, para poder leer todos con un for.
Tambien si alguien pudiera indicarme como puedo introducir los datos que se van recogiendo para introducirlos en acces muchas gracias de antemano.


El codigo que tengo hasta el momento es el siguiente(donde viene XXXX iria el total de entradas de excel, los messagebox estan puestos de momento solo apra saber si los cogia):

Private Sub cmdimportar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdimportar1.Click
Dim oXL As New Excel.Application
Dim oWBK As Excel.Workbook
Dim oWS As Excel.Worksheet
Dim oRNG As Excel.Range
Try
oWBK = oXL.Workbooks.Open(Me.txtfichero1.Text)
oWS = oXL.Worksheets(1)
For irow As Integer = 2 To XXXXXX
oRNG = oWS.Cells(irow, 1)
MessageBox.Show(oRNG.Value)
oRNG = oWS.Cells(irow, 2)
MessageBox.Show(oRNG.Value)

Next
oWBK.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
oWBK = Nothing
oXL = Nothing
End Try

End Sub


--------------------------------------------------------------------------------------------------------


Muchas gracias a todos, Un saludo.

[inGera]

Puedes en lugar de hacer eso utilizar tu hoja de excel como si fuera una tabla de una base de datos he aqui el codigo para hacerlo dentro del cilco puedes poner un contador de registros o puedes de una vez insertarlos en otra DB

Código:

imports System.Data.OleDb

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\\Calidad\\IQS Team\\Gerardo Hernandez\\sqlPCBA614.xls;Extended Properties=Excel 8.0;"
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As New OleDbCommand("SELECT * FROM sqlPCBA", objConn)
Dim sqlDR As OleDbDataReader = objCmdSelect.ExecuteReader()
sqlCon.Open()
Do While sqlDR.Read()
            Aqui haces tu insecion
Loop

[becode]

Iniciado por inGera

Puedes en lugar de hacer eso utilizar tu hoja de excel como si fuera una tabla de una base de datos he aqui el codigo para hacerlo dentro del cilco puedes poner un contador de registros o puedes de una vez insertarlos en otra DB

Código:

imports System.Data.OleDb

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\\Calidad\\IQS Team\\Gerardo Hernandez\\sqlPCBA614.xls;Extended Properties=Excel 8.0;"
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As New OleDbCommand("SELECT * FROM sqlPCBA", objConn)
Dim sqlDR As OleDbDataReader = objCmdSelect.ExecuteReader()
sqlCon.Open()
Do While sqlDR.Read()
            Aqui haces tu insecion
Loop

El tema es que los ficheros xls , me los mandan y no se puede poner lo de atribuir un nombre al total de las registros de la tabla. Por eso tengo que sacar los datos linea a linea

[inGera]

Si tienes una tabla en excel del tipo: 1 linea = 1 regisro puedes utilizar este metodo sin problemas.

Saludos

[becode]

Gracias por la informacion me a servido de gran ayuda

[inGera]

Para servirte