oggetto excel da vb6

[Rosy23]

Dim xlApp1 As Excel.Application
Set xlApp1 = New Excel.Application

Con l'oggetto xlapp1 come faccio a indicargli quale file excel considerare (percorso) e altre avete link dove fanno esempi semplici per l'utilizzo di questo oggetto???

Grazie a tutti!

[superesse]

ABBASTA?!!

    'Application excel
    Dim exApp As Excel.Application
    
    'variabile oggetto che contiene il riferimento alla cartella di lavoro di Excel
    Dim FileExcel As Workbook
    
    'variabile oggetto che contiene il riferimento al foglio di lavoro di Excel
    Dim FoglioExcel As Worksheet
    
    'variabile oggetto che contiene il  riferimento alle celle del foglio di lavoro
    'di Excel
    Dim CellaFoglioExcel As Range
    
    Dim ContenutoCella      As String

    sPath="qui il  percorso del file excel"

    If VerifyFile(sPath) Then
        Set exApp = New Excel.Application
        exApp.Visible = False
        'imposto la variabile oggetto FileExcel con il nome del file xls
        Set FileExcel = exApp.Workbooks.Open(sPath)
    Else
	msgbox "Impossibile eseguire il programma, il file " & sPath & " non è stato trovato."
        Exit Function
    End If
    
    On Error GoTo Errore
    
    'imposto la variabile oggetto FoglioExcel con il nome del foglio da leggere
    Set FoglioExcel = FileExcel.Worksheets(1)
    
    
    Screen.MousePointer = vbHourglass
    
    temp=1    
    Do
        DoEvents
        'cerca la colonna con il codice cliente
        Set CellaFoglioExcel = FoglioExcel.Range("A" & temp)
        ContenutoCella = CellaFoglioExcel
	'controlla se la cella contiene qualcosa
	if trim(ContenutoCella) <> "" then
		msgbox("ContenutoCella")
        ElseIf Trim(ContenutoCella) = "" Then
            righe_vuote = righe_vuote + 1
        End If
        
        'se le righe vuote sono dieci allora considero il foglio excel finito
        If righe_vuote = 50 Then
            Exit Do
        End If
        temp = temp + 1
    Loop 
        

    FileExcel.Close 'False
    'libero ("scarico") le variabili
    Set CellaFoglioExcel = Nothing
    Set FoglioExcel = Nothing
    exApp.Quit
    Set exApp = Nothing
    
    Screen.MousePointer = vbDefault

[Rosy23]

Grazie mille.
2 considerazioni.
1) Questo programma visualizza con una message box tutti i valori della prima colonna fino a che non ne trova 50 vuote e non considera altre colonne vero?
2) Il valore delle celle se è uguale a date o interi o valute non importa lo inserisco sempre in una variabile stringa??

Grazie mille sei stato un mito.
Ciao

[superesse]

Originariamente inviato da Rosy23
Grazie mille.
2 considerazioni.
1) Questo programma visualizza con una message box tutti i valori della prima colonna fino a che non ne trova 50 vuote e non considera altre colonne vero?
2) Il valore delle celle se è uguale a date o interi o valute non importa lo inserisco sempre in una variabile stringa??

Grazie mille sei stato un mito.
Ciao

1)
Si perchè non sono riuscito a delineare quando un foglio excel termina e percià vedo quante colonne vuote ci sono ed a 50 smetto di ciclare

2)no non importa ma per correttezza dovresti dargli delle variabili idonee.....vedi tu....

[Rosy23]

grazie mille

[superesse]

prego...

[Rosy23]

Scusa ti faccio un ulteriore domanda LA funzione Verifyfile(sPath)
è una funzione di Vb6 o la devo creare io?
E se fosse di vb6 in che libreria riferimento componente o altro la trovo?

Grazie ancora.

[Rosy23]

E poi una variazione piccola :

temp=1
Do
DoEvents
'cerca la colonna con il codice cliente
Set CellaFoglioExcel = FoglioExcel.Range("A" & temp)
ContenutoCella = CellaFoglioExcel
'controlla se la cella contiene qualcosa
if trim(ContenutoCella) <> "" then
msgbox("ContenutoCella")
###### righe_vuote = 0
ElseIf Trim(ContenutoCella) = "" Then
righe_vuote = righe_vuote + 1
End If

'se le righe vuote sono dieci allora considero il foglio excel finito
If righe_vuote = 50 Then
Exit Do
End If
temp = temp + 1
Loop

Ho aggiunto la riga con i cancelletti se no esce appena trova 50 righe bianche in tutto e non 50 righe bianche di fila....
Ciao.

[Rosy23]

E una cosa nonostante chiudo l'oggetto excel con le seguenti istruzioni :

FileExcel.Close 'False
Set CellaFoglioExcel = Nothing
Set FoglioExcel = Nothing
exApp.Quit
Set exApp = Nothing

Al momento in cui cerco di aprire il file excel mi dice che si puo' aprire in sola lettura come se non fosse stato rilasciato dall'applicazione....
Cosa manca per rilasciarlo completamente?
Grazie e scusami ancora....
Ciao