il mio problema e' il seguente,
con la macro riportata sotto, vado a prelevare dei dati da 2 file chiusi.
ho il problema nel caso uno o entrambi i 2 file dai quali prelevo siano aperti,
in tale caso la macro mi chiede se voglio chiuderli.
io vorrei poter "saltare" questa richiesta,
cioe' se li trova aperti li lasci aperti.
come dove devo modificare ?
grazie
- Codice: Seleziona tutto
Sub prelevalugascomm()
ActiveSheet.Unprotect
Range("A1").Select '1mo prelevamnto
percorso = "D:\totosi/scommesse 2010" ' <<< la cartella dove prelevo il dato
file = "luga.fibonacci.xls" ' <<< il file dove preleva
Workbooks.Open percorso & "\" & file
Workbooks(file).Worksheets("stampe").Activate ' <<< il foglio dal quale dove preleva
Application.Run "'luga.fibonacci.xls'!riprsito" '<<< serve a ripristinare il foglio nel caso fosse chiuso
Range("c3:d39").Select
Selection.Copy
Workbooks("luga.fibonacci.xls").Close SaveChanges:=False
fil = "generale.lugascommesse.xls" '<<< il file dove devo portare il dato
Sheets("foglio1").Select
Range("f41").Select
ActiveSheet.Paste
Range("A1").Select '2do prelevamento
percorso = "D:\totosi/scommesse 2010" ' <<< la cartella dove prelevo il dato
file = "luga-1x 2010.xls" ' <<< il file dove preleva
Workbooks.Open percorso & "\" & file
Workbooks(file).Worksheets("stampe").Activate ' <<< il foglio dal quale dove preleva
Application.Run "'luga-1x 2010.xls'!riprsito" '<<< serve a ripristinare il foglio nel caso fosse chiuso
Range("c3:d39").Select
Selection.Copy
Workbooks("luga-1x 2010.xls").Close SaveChanges:=False
fil = "generale.lugascommesse.xls" '<<< il file dove devo portare il dato
Sheets("foglio1").Select
Range("f82").Select
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering _
:=True
End Sub