[VB&Excel] Leggere il numero delle righe in un foglio

[ladyBlu]

Salve a tutti

Devo leggere da VB6 un foglio di Excel.
Per ciò che riguarda la lettura delle celle non ho nessun problema.
Però ho la necessità di contare le RIGHE presenti nel foglio; ora, io ho 41 righe nel foglio ma quando vado a contarle mi restituisce 462...
quindi la domanda è: come faccio a leggere il numero di righe "effettive"? (riga di codice in grassetto)
ecco il codice:

Dim exApp As Excel.Application
Dim exWb As Excel.Workbook
Dim exWs As Excel.Worksheet
Dim numRighe As Integer
Dim indRiga As Integer

'apre excel
Set exApp = New Excel.Application
exApp.Visible = True

'apre il file xls
strPerc = "C:\...\prova.xls"
Set exWb = exApp.Workbooks.Open(strPerc)

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

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

For indRiga = 2 To numRighe
    'leggo il contenuto delle celle
Next indRiga

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

Grazie a tutti

[cik]

prova ad usare la proprietà UsedRange del WorkSheet
Restituisce il Range utilizzato e puoi ricavarti il numero di righe

[ladyBlu]

Originariamente inviato da cik
prova ad usare la proprietà UsedRange del WorkSheet
Restituisce il Range utilizzato e puoi ricavarti il numero di righe

provo subito grazie cik

[ladyBlu]

numRighe = exWs.UsedRange.Rows.Count

mi restituisce 45 righe invece di 41... è sicuramente meglio di prima ma non è perfetto. forse ho sbagliato a scrivere?

[ladyBlu]

ho risolto...
in pratica c'erano 4 righe all'apparenza vuote che evidentemente avevano qualche valore memorizzato e poi cancellato.
Ora le righe sono 41...:metallica

grazie cik

[cik]

...è sempre un piacere

Enjoy...

[tigre2209]

ho un problema come il tuo.
1 in pratica aprio excel da visual basic 6

Dim APPEXCEL As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet


2 riempio il foglio con i dati
3 chiudo excel ecc....



ma se dopo riprovo a rilanciare l'apertura di excel mi aprre solo excel senza aprire il modulo.
come mai?

questo è il finale

cartExcel.SaveAs "C:/modelli/" & cognome & " " & nome & ".XLS"


MsgBox "IL PROSPETTO è stato creato", vbInformation, "Creazione PROSPETTO!"

'CHIUDO EXCEL
cartExcel.Close

Set cartExcel = Nothing

APPEXCEL.Quit
Set APPEXCEL = Nothing
Set foglioExcel = Nothing