Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

variabile per aprire nfiles

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

variabile per aprire nfiles

Postdi romeos » 06/01/15 12:45

salve a tutti, ho fatto questa macro che mi permette di aprire dei file all'interno di una cartella di copiarne alcuni range e di richiudere il file, la macro in questione ha però un limite ed è che il numero dei file all'interno della cartella da copiare e variabile e quindi mi da errore se per esempio i file da aprire e copiare sono meno di 16 o eventualmente lo superano, ho provato a trovare una soluzione ma vista la mia pochezza in visual basic ho capito che devo lavorare con le variabili ma non sono riuscito a venirne a capo.Vi ringrazio in anticipo.
Codice: Seleziona tutto
Sub provasquadra()
'
' provasquadra Macro
'

'
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (1).xls"
    Windows("team (1).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra1").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (1).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (1).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (1).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (2).xls"
    Windows("team (2).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra2").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (2).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (2).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (2).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (3).xls"
    Windows("team (3).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra3").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (3).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (3).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (3).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (4).xls"
    Windows("team (4).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra4").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (4).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (4).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (4).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (5).xls"
    Windows("team (5).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra5").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (5).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (5).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (5).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (6).xls"
    Windows("team (6).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra6").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (6).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (6).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (6).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (7).xls"
    Windows("team (7).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra7").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (7).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (7).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (7).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (8).xls"
    Windows("team (8).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra8").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (8).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (8).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (8).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (9).xls"
    Windows("team (9).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra9").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (9).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (9).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (9).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (10).xls"
    Windows("team (10).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra10").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (10).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (10).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (10).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (11).xls"
    Windows("team (11).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra11").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (11).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (11).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (11).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (12).xls"
    Windows("team (12).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra12").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (12).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (12).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (12).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (13).xls"
    Windows("team (13).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra13").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (13).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (13).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (13).xls").Activate
    ActiveWindow.Close
     
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (14).xls"
    Windows("team (14).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra14").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (14).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (14).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (14).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (15).xls"
    Windows("team (15).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra15").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (15).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (15).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (15).xls").Activate
    ActiveWindow.Close
   
    Workbooks.Open Filename:= _
        "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (16).xls"
    Windows("team (16).xls").Activate
    Range("D17:G41").Select
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Sheets("squadra16").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (16).xls").Activate
    Range("D12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D12:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (16).xls").Activate
    Range("D14:F14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("elettronikokata.xlsm").Activate
    Range("D14:F14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("team (16).xls").Activate
    ActiveWindow.Close
End Sub
"Lo spirito è un pendolo,tra la resa e il coraggio"
EXCEL 2010
romeos
Utente Junior
 
Post: 49
Iscritto il: 11/12/12 13:14

Sponsor
 

Re: variabile per aprire nfiles

Postdi Anthony47 » 06/01/15 18:53

Purtroppo invece di dire che cosa vorresti fare ci proponi una macro che quella cosa non la fa, quindi vado avanti a tentoni...
Nell' ipotesi che tu voglia aprire tutti i file "team (NN).xls" contenuti in una directory e copiarne alcuni dati sui fogli "squadraNN" del file di partenza "elettronikokata.xlsm" allora potrebbe funzionare qualcosa come
Codice: Seleziona tutto
Sub provaboh()
'vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=103639
'
Dim myPath As String, I As Long, myF As String
'
myPath = "C:\Users\niko\Desktop\iscrizioni\iscrizionikata\"
For I = 1 To 100
    myF = "team (" & I & ").xls"
    If Dir(myPath & myF) = myF Then
        Workbooks.Open Filename:=(myPath & myF)
        Range("D17:G41").Copy
        ThisWorkbook.Sheets("squadra" & I).Range(D19).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("D12:G12").Copy
        ThisWorkbook.Sheets("squadra" & I).Range(D12).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("D14:F14").Copy
        ThisWorkbook.Sheets("squadra" & I).Range(D14).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveWindow.Close
    End If
Next I
End Sub

Questa va inserita in un nuovo modulo nel file "elettronikokata.xlsm" e "lavora" max 100 files presenti nella directory impostata in myPath aventi la struttura del nome del tipo "team (NN).xls", dove "NN" e' compreso tra 1 e 100.
La macro non controlla che il relativo foglio "squadraNN" sia presente nel file, quindi va in errore se esso manca.

Se invece volevi fare qualcosa di diverso allora descrivicelo e vedremo...

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: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: variabile per aprire nfiles

Postdi romeos » 06/01/15 19:52

credo che tu abbia capito perfettamente anthony, vorrei che alcuni range del file team(1) si incollassero sul foglio squadra1 posto nel file elettronikokata e cosi via in modo sequenziale ovvero team2-squadra2,team3-sqadra3...e cosi via, ho provato il tuo codice e mi da un errore1004, e precisamente qui
Codice: Seleziona tutto
ThisWorkbook.Sheets("squadra" & I).Range(D19).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

premesso che il tuo codice lo trascritto su un nuovo modulo in elettronikokata, vedo il file team1 aperto e copiato ma non incollato su squadra1, se non sono stato chiaro fa sapere,grazie.
"Lo spirito è un pendolo,tra la resa e il coraggio"
EXCEL 2010
romeos
Utente Junior
 
Post: 49
Iscritto il: 11/12/12 13:14

Re: variabile per aprire nfiles

Postdi romeos » 06/01/15 20:11

ok, ho provveduto cosi
Codice: Seleziona tutto
 ThisWorkbook.Sheets("squadra" & I).Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

ho aggiunto le virgolette ed ho risolto grazie infinitamente del tuo aiuto Anthony47.
"Lo spirito è un pendolo,tra la resa e il coraggio"
EXCEL 2010
romeos
Utente Junior
 
Post: 49
Iscritto il: 11/12/12 13:14


Torna a Applicazioni Office Windows


Topic correlati a "variabile per aprire nfiles":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti