Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Vba:Importare dati in Workbook da Workbook

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Vba:Importare dati in Workbook da Workbook

Postdi jotric » 18/03/08 21:59

Dopo un lungo periodo di silenzio eccomi di nuovo.
Il mio problema è il seguente. Da un Workbook_A (Excel), attraverso VBA, creo una nuova istanza di Excel per aprire un Workbook_B.Copio il contenuto di Workbook_B.Sheets e chiudo Workbook_B.
Nonostante i messaggi siano disabilitati (Application.DisplayAlerts = False) mi compare una messagebox che mi chiede se mantenere o meno gli appunti.
:undecided: Qualcuno sa come disabilitare questa finestra?

Spero di essere stato abbastanza chiaro...
Grazie a tutti.

Codice: Seleziona tutto
   
'Nuova istanza Excel                       
Set xlApp = New Excel.Application
' Aggiunge il file specificato alla collezione Workbooks
Set wkbNewBook = xlApp.Workbooks.Open(PercosoRicerca & "\" & FileDaCercare)
wkbNewBook.ActiveSheet.UsedRange.Copy
ActiveSheet.Paste Destination:=Worksheets(Foglio).Range("A1")
wkbNewBook.Saved = True
Application.DisplayAlerts = False
Set wkbNewBook = Nothing
xlApp.Quit
Set xlApp = Nothing
Application.DisplayAlerts = True
jotric
Utente Junior
 
Post: 32
Iscritto il: 06/07/06 11:15

Sponsor
 

Re: Vba:Importare dati in Workbook da Workbook

Postdi Anthony47 » 18/03/08 23:34

Prova mettendo
Codice: Seleziona tutto
Application.CutCopyMode = False
dopo ActiveSheet.Paste
Per il resto funziona tutta bene?

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Vba:Importare dati in Workbook da Workbook

Postdi jotric » 19/03/08 11:55

Inzio col ringraziarti per la risposta.Il resto del codice funziona,ma nemmeno impostanda la variabile Application.CutCopyMode = False ottengo il risultato.
Dvrei trovare un modo per cancellare dala clipboard l'ultimo inserimento fatto, oppure importare il Workbook_B senza passare dall clipboard.
Mentre per il primo metodo non so proprio come fare, per il secondo potrei appoggiarmi su ADO anche se non è una scelta che vorrei fare...
A meno che non esista un terzo modo di cui non so niente...
jotric
Utente Junior
 
Post: 32
Iscritto il: 06/07/06 11:15

Re: Vba:Importare dati in Workbook da Workbook

Postdi jotric » 19/03/08 13:00

Ok...ho risolto.
Ovviamente avendo creato una nuova istanza ad Excel...L'oggeto Application a cui disattivare gli avvisi non era l'istanza host...di conseguenza l'istruzione su displayalerts=false andava indirizzataalla nuova istanza e non ad Application!

Codice: Seleziona tutto
                       Set xlApp = New Excel.Application
                       ' Aggiunge il file specificato alla collezione Workbooks
                        Set wkbNewBook = xlApp.Workbooks.Open(PercosoRicerca & "\" & FileDaCercare)
                        wkbNewBook.ActiveSheet.UsedRange.Copy
                        ActiveSheet.Paste Destination:=Worksheets(Foglio).Range("A1")

                       'Nuova istanza Excel a cui disattivare i messaggi!
                        xlApp.DisplayAlerts = False

                        Set wkbNewBook = Nothing
                        xlApp.Quit
                        Set xlApp = Nothing
jotric
Utente Junior
 
Post: 32
Iscritto il: 06/07/06 11:15


Torna a Applicazioni Office Windows


Topic correlati a "Vba:Importare dati in Workbook da Workbook":


Chi c’è in linea

Visitano il forum: Nessuno e 25 ospiti