Macro Excel VBA

[9gio9]

Salve, ho una macro vba in Excel che prende dei dati da un altro file Excel (Book1.xls) all'apertura.
E' la seguente:

Sub GetOK()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 Workbooks.Open Filename:="C:\Users\G\Desktop\Book1.xls", ReadOnly:=False
 Workbooks("Book1.xls").Sheets("Sheet1").Activate
 dato = ActiveSheet.Cells(8, 8)
 Workbooks("file.xls").Activate
 ActiveSheet.Cells(1, 1) = dato
 Windows("Book1.xls").Close
End Sub

Se la eseguo funziona ma non funziona più se la inserisco in ThisWorkbook nella sub (che dovrebbe farla partire un automatico all'apertura del file):

Sub Workbook_open()
...
End Sub

Come mai?

[LeleFT]

Tutto le versioni di VB (compreso VBA) vengono trattate nel forum "Visual Basic e .NET Framework".

Sposto.

Ho anche aggiunti i tag CODE: quando posti del codice, inseriscilo all'interno degli appositi tag [CODE] .. [/CODE] così rimane indentato e mantiene la formattazione.


Ciao.

[genespos]

Io farei qualcosa tipo:

Sub GetOK()
Dim mFile As Excel.Application, oBook As Excel.Workbook, oSheet As Excel.Worksheet
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set mFile = New Excel.Application
mFileName = "C:\Users\G\Desktop\Book1.xls"

Set oBook = mFile.Workbooks.Open(mFileName)
dato = oBook.Sheets("Sheet1").Cells(8, 8)
'Non lo hai detto, ma suppongo che "file.xls" sia il workbook dal quale parte la macro, quindi:
ThisWorkbook.Sheets("Nome foglio").Cells(1, 1) = dato 'Inserisci il corretto nome foglio
'Non usare ActiveSheet potresti modificare dati sul foglio sbagliato. Usa il nome del foglio
oBook.Close saveChanges:=True ' salvi il file aperto (se serve)
'azzeri le variabili e chiudi l'istanza excel aperta
Set oSheet = Nothing
Set oBook = Nothing
mFile.Quit
Set mFile = Nothing
End Sub