Aprire file Excel con Vb .Net

Workbook wbk= ap.Workbooks.Open("C:\\test.xls");

Sub Apri()
        Dim numRighe As Integer
        Dim indRiga As Integer
        Dim strPerc As String

        'Apertura finestra di dialogo per apertura file
        If ApriFile.ShowDialog = DialogResult.OK Then

            'apre excel
            exApp = New Excel.Application

            'Rende visibile Excel
            exApp.Visible = True

            'apre il file xls
            strPerc = ApriFile.FileName
            exWb = exApp.Workbooks.Open(strPerc)

            'seleziona il foglio di lavoro 1 del file excel
            exWs = exWb.Worksheets(1)
        End If
End Sub

exWb = exApp.Workbooks.Open(strPerc)

Workbook wbk= ap.Workbooks.Open("C:\\test.xls");

>Illuminami !!!

Dim ts as string
ts=workbook.Cells(1,1)

Ora puoi fare un ciclo sulle celle.
Recuperi il valore delle celle dando le coordinate x,y come a battaglia navale.

Esempio:

Dim ts as string ts=workbook.Cells(1,1)

restituisce il valore della cella A1.
Puoi fare due cicli for o do..while uno dentro l'altro.

Dim contenuto As String
contenuto = exWs.Cells(2, 2)

Eccezione non gestita di tipo "System.InvalidCastException" in microsoft.visualbasic.dll

Informazioni aggiuntive: Cast non valido dal tipo 'Range' al tipo 'String'.

     'conta il numero di righe
        numRighe = exWs.UsedRange.Rows.Count
        'conta il numero delle colonne
        numColonne = exWs.UsedRange.Columns.Count

        'Attivazione range si selezione Celle prima parte
        exWs.Range(exWs.Cells(2, 1), exWs.Cells(numRighe, numColonne)).Select()
        
        'leggo il contenuto delle celle  ??
        For indRiga = 2 To numRighe
            For indColonna = 2 To numColonne
                Dim contenuto As String
                contenuto = exWs.Cells(2, 2)

                If contenuto = "" Then
                    MessageBox.Show("vuota")
                Else : MessageBox.Show("Piena")

                End If

            Next indColonna
        Next indRiga  

Dim alfa As String
alfa = Cells(3, 5)
MsgBox alfa

Eccezione non gestita di tipo "System.Runtime.InteropServices.COMException" in mscorlib.dll

Informazioni aggiuntive: Eccezione da HRESULT: 0x800A03EC.

Recuperi tutti i valori e ti costruisci delle query INSERT che poi pasi al DB.

Sub Leggi()
        Dim numRighe As Integer
        Dim numColonne As Integer
        Dim indRiga As Integer
        Dim indColonna As Integer

        'conta il numero di righe
        numRighe = exWs.UsedRange.Rows.Count
        'conta il numero delle colonne
        numColonne = exWs.UsedRange.Columns.Count
                
        'Attivazione range di selezione Celle 
        exWs.Range(exWs.Cells(2, 1), exWs.Cells(numRighe, numColonne)).Select()
        exWs.Activate()

        'leggo il contenuto delle celle
        For indRiga = 28 To numRighe
            For indColonna = 1 To numColonne
                Dim contenuto As String
                contenuto = exWs.Cells(indRiga, indColonna).Value
                If contenuto <> "" Then
                    MessageBox.Show(contenuto)
                Else : MessageBox.Show("vuota")
                End If
            Next indColonna
        Next indRiga
    End Sub

 string queryString = "INSERT INTO TABELLA (Colonna) VALUES ('Valore')";
    using (OleDbConnection connection = new OleDbConnection(connectionString))
    {
        OleDbCommand command = new OleDbCommand(queryString, connection);
        command.ExecuteNonQuery();
     }