Salve a tutti-
non riesco a venire fuori dal seguente errore che si verifica in fase di lettura di un foglio excel, quando mi dovrebbe visualizzare la SECONDA cella del foglio, la prima cella me la visualizza correttamente

L'oggetto invocato si è disconnesso dai client corrispondenti. (Eccezione da HRESULT: 0x80010108 (RPC_E_DISCONNECTED))

il codice postato successivamente risulta funzionante ma mi fa vedere solo il contenuto della prima cella (la 1,1 per intenderci che sarebbe la prima cella dell'intestazione), quando dovrebbe farmi vedere la seconda cella mi dà l'errore indicato

provato sia su XP (con il riferimento versione 11 di excel office 2003) che su vista (riferimento versione 12 di excel office 2007) il risultato è identico.

Codice:

Private Sub btn_leggi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_leggi.Click
Dim op_input = New OpenFileDialog
Dim nomefilexls, strperc As String
op_input.InitialDirectory = "C:"
op_input.Filter = "file xls da leggere|*.xls|tutti i files|*.*"
Call op_input.ShowDialog()
If op_input.FileName = "" Then
Call MessageBox.Show("selezionare un file")
Exit Sub
End If
nomefilexls = op_input.filename
Dim exApp As Microsoft.Office.Interop.Excel.Application
Dim exWb As Microsoft.Office.Interop.Excel.Workbook
Dim exWs As Microsoft.Office.Interop.Excel.Worksheet
Dim numRighe, numcolonne, indriga, indcolonna, numcsv As Integer
'apre excel
exApp = New Microsoft.Office.Interop.Excel.Application
exApp.Visible = True

'apre il file xls
strperc = nomefilexls
exWb = exApp.Workbooks.Open(strperc)

'seleziona il foglio 1
exWs = exWb.Worksheets(1)

'conta il numero di righe
numRighe = exWs.UsedRange.Rows.Count

'conta il numero di righe
numcolonne = exWs.UsedRange.Columns.Count

For indriga = 1 To numRighe
'leggo il contenuto delle celle
rigacsv = String.Empty
For indcolonna = 1 To numcolonne
MsgBox(exWb.Worksheets(1).Cells(indriga, indcolonna).Value)
Next
Next

'salva e chiude file
'exWb.Save()
exWb.Close()
'esce da excel
exApp.Application.Quit()
'cancella le variabili oggetto
exApp = Nothing
exWb = Nothing
exWs = Nothing
End Sub

Grazie per l'eventuale aiuto.