Aiuto per macro vba

Hai un problema con Excel?

Nuova discussione

Aiuto per macro vba
di Lorenzo (utente non iscritto) data: 06/06/2012
Salve a tutti. sono un povero tesista che sta cercando di far andare delle simulazioni con arena. il mio problema è fare copiare e incollare delle matrici da un file excel ad un altro usando una macro su arena.
l'errore che mi da è quello di metodo invalido nella selezione dell'elemento range evidenziandomi la penultima riga della porzione di codice che ho postato sotto.
la macro va poi avanti e dovrebbe fare lo stesso per altre matrici e farlo anche all'interno dello stesso foglio.

Private Sub ModelLogic_RunEndReplication()


Dim modare As Model
Dim getnumeroreplica As Integer

Dim unico, filedacopiare As Object

  'legge il numero di replica corrente
  
    Set modare = ThisDocument.Model
    getnumeroreplica = modare.SIMAN.RunCurrentReplication
    
    getnumeroreplica = getnumeroreplica + 1
    
    
    If getnumeroreplica = 81 Then
    
    Model.End
    
    End If


    Set unico = GetObject("D:Provadefililanciamento.xlsm")
  
 'apre il file per la prissima replica
 
   Workbooks.Open Filename:="D:Provadefililanciamento" & getnumeroreplica & ".xlsm", ReadOnly:=False
   
   
   'selezione tstd da copiare
    
    Set filedacopiare = GetObject("D:Provadefililanciamento" & getnumeroreplica & ".xlsm")
    filedacopiare.Application.Visible = True
   
 
   
   filedacopiare.Worksheets("tempi").Range("a4:a10003").Select
   Selection.Copy

unico.Worksheets("tempi").Range("a4:a10003").Select
      
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

di Patel (utente non iscritto) data: 12/06/2012
Mi sembra che unico e filedacopiare siano lo stesso file o sbaglio ?
di Patel (utente non iscritto) data: 12/06/2012
Non considerate il precedente messaggio.
quando apro un file utilizzo questa sintassi
set file = workbooks.open(thisworkbook.path & " omedelfile.xlsx")
senza passare da getobject

Vuoi Approfondire?