excel e visual basic 6

[tigre2209]

ho un problema su excel.
con un button apro un file excel, riempio il modulo con un recordset, visualizzo il file excel,
ma il problema è la chiusura di excel.
1- si chiude la cartella ma excel rimane aperto nei processi
2- se clicco di nuovo su button mi apre solo excel ma non il modulo.
Il problema sta nella chiusura di excel
questo è il codice, dove sbaglio???



Dim AppExcel As New excel.Application
Dim cartExcel As excel.Workbook
Dim foglioExcel As excel.Worksheet
Set AppExcel = New excel.Application
Set cartExcel = excel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioExcel = excel.Worksheets.Item(1)
AppExcel.Visible = True
.........................
.........................
cartExcel.Close
Set cartExcel = Nothing
AppExcel.Quit
Set AppExcel = Nothing

[oregon]

Non devi usare

excel.Workbooks

o

excel.Worksheets

ma, dato che hai un tuo oggetto Application, devi scrivere

AppExcel.Workbooks

e

AppExcel.Worksheets

e cosi' via ... devi fare sempre riferimento a quell'oggetto.

[tigre2209]

in questo caso come devo modificare ?

Dim AppExcel As New excel.Application
Dim cartExcel As excel.Workbook
Dim foglioExcel As excel.Worksheet

Set AppExcel = New excel.Application
Set cartExcel = excel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioExcel = excel.Worksheets.Item(1)

[Jeremy75]

Originariamente inviato da oregon
ma, dato che hai un tuo oggetto Application, devi scrivere

AppExcel.Workbooks

e

AppExcel.Worksheets

e cosi' via ... devi fare sempre riferimento a quell'oggetto.

[tigre2209]

in questo caso che cosa devo correggere??

Dim appexcel As New excel.Application
Dim cartexcel As excel.Workbook
Dim foglioexcel As excel.Worksheet



Set appexcel = New excel.Application
Set cartexcel = excel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioexcel = excel.Worksheets.Item(1)
Dim APPOGGIO

appexcel.Visible = True

'--------------
foglioexcel.Activate

foglioexcel.Cells(4, 8).Value = Adodc3.Recordset.Fields("posizione")
ecc...

[Jeremy75]

Ammesso e non concesso che il codice sia giusto .... (io sto solo interpretando il suggerimento di Oregon)

Dim AppExcel As New excel.Application
Dim cartExcel As excel.Workbook
Dim foglioExcel As excel.Worksheet

Set AppExcel = New excel.Application
Set cartExcel = AppExcel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioExcel = AppExcel.Worksheets.Item(1)

[tigre2209]

grazie, sembra che ora funziona bene,
nn mi rimangono appesi tanti excel aperti.
Buona serata....

ps:
che tu sappia, ho provato a creare questo programma multiutente con un database access,
ho provato tempo fa ma se due utenti sono collegati allo stesso database, mi da errore in quanto solo un utente puo accedere al database.

[Jeremy75]

Originariamente inviato da tigre2209
grazie, sembra che ora funziona bene,
nn mi rimangono appesi tanti excel aperti.
Buona serata....

ps:
che tu sappia, ho provato a creare questo programma multiutente con un database access,
ho provato tempo fa ma se due utenti sono collegati allo stesso database, mi da errore in quanto solo un utente puo accedere al database.

Multiutente ed Access sono 2 parole che non stanno bene insieme .... SqlServer e multiutente, invece, SI ...... ma per approfondire meglio l'argomento dovresti aprire un Thread specificando nel titolo che intendi avere spiegazioni su quale DBMS è adatto per gestire i dati in multiutenza.

Ciao.

[tigre2209]

grazie