Newsgroup: it.comp.appl.access
Titolo: Apro Excel da Access e Vi immetto dei dati ma poi perchè scompare?

Allora,  già faccio fatica col VBA per Access, figuriamoci se devo
utilizzare contemporaneamente anche Excel!
Grato a chiunque mi lanci una liana prima dello sprofondamento nelle
sabbie mobili!!!!
Questo il problema:
Vorrei aprire excel da access e copiarvi alcuni dati presi dal
database.
Queste le righe inserite nel codice:
    Dim xlRiga As Integer               'numero della riga di excel
    Dim xlColonna                          'numero della colonna di
excel
    Dim Parola                               'una variabile che nel mio
codice assume, in un ciclo
                                                   'for next,
differenti valori. Solo per questo esempio, sarà:
    Parola  =  "ma porcaccia..."
    ' Apre excel e un foglio
    Dim ExcelSheet As Object
    Set ExcelSheet = CreateObject("Excel.Sheet")
    ExcelSheet.Application.Visible = True
    '[CUT] altre righe di codice
    'Inserisce i dati nel foglio di calcolo
    ExcelSheet.Application.Cells(xlRiga, xlColonna).Value = parola
    xlRiga = xlRiga + 1      'Questo serve per il ciclo for next
    parola = ""                   'Questo....anche.
Il codice poi prosegue con altre cose, fatto sta che quando arrivo
all'ultimo exit sub, prima dei consueti _err di qui e _err di là, una
volta eseguita quest'ultima riga di codice (exit sub, appunto) il mio
foglio scompare!
Dove sbaglio? Cosa sbaglio? Che mi manca?....Si, lo so, ...: una
liana....appunto!
Grazie ancora al chiunque che mi risponde. 
^__^ 
leev

 ha scritto nel messaggio 
news:1162918750....@b28g2000cwb.googlegroups.com...









^__^
leev
Non so se creando solo un foglio access dove vada a scrivere...ma io creerei 
il file e poi scriverei nel foglio....
Ora vedendo solo alcuni stralci di codice non so se da qualche parte l'hai 
messo dovresti avre righe del tipo...
    Set Excel = CreateObject("Excel.Application")
    'rendi visibile la finestra di Excel
    Excel.Visible = True
    'attiva Excel e portalo in primo piano:
    Excel.Activate
e poi cominci a scrivere nel tuo foglio....
Ciao
Roberto 


Non so neanche io ma il foglio sul Monitor c'è, almeno fino a che non
esco dalla subroutine. Proverò a inserire la prima riga che mi hai
suggerito, dovrebbe bastare. Il visible credo sia implicito quando
rendo visibile il foglio e in primo piano ci viene da solo, anche se a
me non servirebbe.
Se non va, poi aggiungo il resto,...vediamo. Grazie!!!!!!!!!!!
^__^
leev

 ha scritto nel messaggio 
news:1162918750....@b28g2000cwb.googlegroups.com...









^__^
leev
[risposta]
Sarebbe meglio che includessi almeno le righe dell'automazione OLE per 
caprire come apri e chiudi gli oggetti, oltre al fatto che non vedo neanche 
una gestione di eventuali errori.
Comunque questo esempio a me funziona
'---
on error goto errori
Dim oApp As Excel.Application
Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Add
oApp.ActiveSheet.Cells(1, 1) = "ciao"
oApp.Visible = True
Set oApp = Nothing
exit sub
errori:
    Set oApp = Nothing
    msgbox err.number & " " & application.accesserror(err.number)
'---
Ciao.
-- 
Sergio MAZZA 

     msgbox err.number & " " & application.accesserror(err.number)
Ok, vedo anche questo. Purtroppo il tempo è quello che è e non sono
riuscito a dare un'occhiata neanche all'altro suggerimento, ancora (la
gestione errori c'è, l'ho omeesa per....brevità, c'è tanto altro
codice intorno a quello che ho riportato; comunque mi mancavano delle
righe di codice, questo è evidente, anche se excel e il foglio si
aprivano).
Grazie mille Sergio!
^__^
leev

 ha scritto nel messaggio 
news:eis77k$7rq$1...@tdi.cu.mi.it...

Grande MAZZA!! (ci mettiamo anche un pizzico di malizia??? :-))  ) sempre 
preciso!!
Roberto
Roberto 

 Roberto
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:eishpc$nvj$1...@tdi.cu.mi.it...

Solo una battutina prima di andare a mangiare....
Preferisco concentrarmi sull'altro sesso...non me ne volere... :-)))
Roberto 

 Elio