Vba:Importare dati in Workbook da Workbook

[jotric]

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.
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

[Anthony47]

Prova mettendo

Codice: Seleziona tutto

Application.CutCopyMode = False

dopo ActiveSheet.Paste
Per il resto funziona tutta bene?

Ciao.

[jotric]

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]

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