Copiare i dati da un file Excel con nome "variabile"

[fabio.mau]

Ciao a tutti,
ho necessità di importare dati da un file excel ad un altro. Fin qui tutto bene, il problema è che il file con i dati origine è estratto da una pagina web-based con nome file variabile per data e progressivo (ma fortunatamente radice costante).
Ho prodotto una piccola macro che funziona se il file excel ha sempre lo stesso nome, immaginiamo origine001

Codice: Seleziona tutto

Sub copiadato()
    Windows("origine001.xlsx").Activate
        Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Provamacro1.xlsx").Activate
    Cells.Select
    ActiveSheet.Paste
    Range("S3").Select


EBBENE, il problema è che il file origine ha un nome variabile indipendente dalla mia volontà ogni volta che viene estratto dal sito di origine; ad esempio: origine001; origine002; origine003.... ecc. ecc.
Per questo ho pensato di inserire un asterisco nella seconda riga, in questo modo:

Codice: Seleziona tutto

  Windows("origin*.xlsx").Activate

Ma non funziona! Il risultato è: "errore di run-time '9' - indice non incluso nell'intervallo, come se non trovasse il file o questo osse chiuso (ma è aperto)
Qualcuno riesce ad aiutarmi? GRAZEI!!!!

[Flash30005]

Ciao Fabio.mau e benvenuto nel Forum

non capisco quale problema tu abbia
nel senso che la pagina origine (web) può cambiare ma è possibile variare il codice macro (se il link varia con un metodo tipo data o altro) quindi una volta importati i dati su un foglio di Excel (quindi un file di Excel) a questo punto sei tu che decidi il nome da dare al file e quindi a gestirlo quindi cosa mi sfugge o non hai descritto?

[fabio.mau]

Ciao Flash30005
Grazie per la risposta intanto,
Sono stato succinto, ma sulla tua richiesta specifico meglio. Credo che la difficoltà a comprendere la mia esigenza sia dovuta all banalità della stessa, probabilmente si tratta di una soluzione molto elementare, ma io non ho i rudimenti base si VBA e ciò che ho imparato è solo grazie ai forum come questo e allo smanettamento.

VENGO AL DUNQUE...
Ho un file "A" con una maschera e delle macro che filtrano alcuni campi. Questa maschera prende i dati da un file "B"... Banale copia e incolla in una cartella di lavoro del file "A".
Voglio automatizzare il tutto, perché do il file "A" ad una persona che non ci capisce nulla e voglio che possa fare l'operazione premendo semplicemente "un tasto"

Il file "B" è un csv periodicamente estratto in automatico da una pagina web-based e il nome del file "B" è generato da una radice più una serie di altri elementi tra cui data, ora e un progressivo. Per cui il nome del file "B" da cui ricordo, devo importare i dati (non mi serve aprirlo lo fa già la pagina web-based) è variabile, piuttosto lungo e complesso ma con una radice sempre comune (i primi sei o sette caratteri).

Per fare un esempio semplice; oggi potrebbe chiamarsi "PIPPO_18_02_2106.xlsx" e domani "PIPPO_19_02_2016.xlsx".

Quello di cui ho bisogno è che la mia macro vada a pescare i dati da un file "PIPPO*.xlsx", ma se nella macro ci metto semplicemente un asterisco dopo la radice del nome non funziona.
Sono stato più chiaro? Grazie 1000

[Anthony47]

Da quello che hai scritto il file in questione e' tra quelli aperti... Prova a identificarne l'esistenza con questo codice:

Codice: Seleziona tutto

Dim WB As Workbook, PrefiX As String, myWBN As String   'Dichiarazione variabili

'Ricerca tra i file aperti:
PrefiX = "MULTI"               '<<< Parte iniziale fissa
For Each WB In Workbooks
    If Windows(WB.Name).Visible = True Then
        If Left(WB.Name, Len(PrefiX)) = PrefiX Then
            myWBN = WB.Name
            Exit For
        End If
    End If
Next WB
If myWBN = "" Then
    MsgBox ("Nessun file tipo " & PrefiX & "*.* e' aperto; processo abortito")
    Exit Sub
End If
Windows(myWBN).Activate
'etc etc


A completamento del codice la variabile myWBN conterra' il nome del workbook che rispetta il vincolo indicato nell'istruzione marcata <<< (che quindi va personalizzata) e la userai al posto della stringa col nome file.

Ciao

[fabio.mau]

Ciao
Ho provato a copiare paro paro.. come segue....
ma mi da un errore; ovvero mi si apre la finestra generata dalla macro dove mi dice 'nessun file aperto'

Mi chiedo: ma non è possibile semplicemente imporre di 'attivare' un file con nome "pippo*.xlsx" ?
Non esiste una corretta sintassi per mettere un nome parziale di file legato al comando .activate?
Questo risolverebbe il problema in un secondo.
...segue lista...
RI-grazie

Codice: Seleziona tutto

Sub copia()
'
' copia Macro
'

'Windows("origine001.xlsx").Activate
   
 'Ricerca tra i file aperti:
Prefix = "MULTI"               '<<< Parte iniziale fissa
For Each WB In Workbooks
    If Windows(WB.Name).Visible = True Then
        If Left(WB.Name, Len(Prefix)) = Prefix Then
            myWBN = WB.Name
            Exit For
        End If
    End If
Next WB
If myWBN = "" Then
    MsgBox ("Nessun file tipo " & Prefix & "*.* e' aperto; processo abortito")
    Exit Sub
End If
Windows(myWBN).Activate
   
       
    'operazione di copia
    Range("B6").Select
    Selection.Copy
    Windows("Provamacro1.xlsx").Activate
    Range("B6").Select
    ActiveSheet.Paste
    Range("N5").Select
End Sub

[Anthony47]

1) Il comando che attiva un file a caso non esiste in Excel.

2) Hummm... Ho l'impressione che non hai letto per intero il messaggio che ti e' uscito; ne' hai letto il messaggio che ti avevo scritto e che parlava di una personalizzazione al codice da fare...

O sbaglio?

[fabio.mau]

OH MON DIEU!!!!!
FUNZIONAAAAAAA!!!!!

Grazie....

ne' hai letto il messaggio che ti avevo scritto e che parlava di una personalizzazione al codice da fare...

Leggere l'avevo letto... capito no. Grazie al tuo caziatone ho capito cosa si intendeva per "personalizzazione" e ora funziona!!!!

GRAZIE 1000

Spero di poter ricambiare, con le macro di Excel sicuramente no, ma se hai bisogno di informazioni didattiche sui funghi... quello è il mio mondo.

GRAZIE ANCORA!

[Flash30005]

Spero di poter ricambiare, con le macro di Excel sicuramente no, ma se hai bisogno di informazioni didattiche sui funghi... quello è il mio mondo.

Che bella notizia!

A me i funghi piacciono da morire!
(specialmente se li vado a cogliere io)