Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 32

Discussione: Importare dati da files presenti in un elenco



  1. #1
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Lightbulb Importare dati da files presenti in un elenco

    Buonasera a tutti

    avrei bisogno di uno script che mi permetta di prelevare dei dati da n files i cui nomi sono indicati in un elenco di un foglio excel ogni qualvolta che vi siano righe nuove.

    Mi spiego meglio:
    - Ogni giorno faccio un export dei dati di una serie storica di AZIONI sia italiane che estere (UE/USA), in totale sono 200 files.
    - Ad ogni file.txt corrisponde la serie storica dei dati GIONALIERI del singolo titolo dove all'interno trovo 6 colonne (data, apertura, massimo, minimo, chiusura, volume).
    Da premettere che i dati sono giornalieri, ma non consecutivi perché il sabato e la domenica più altri giorni dell'anno il mercato borsistico è chiuso. (non sò se questa informazioni vi possa servire)
    Comunque, questi files.txt si incrementano al loro interno giorno dopo giorno.
    - Ho creato 3 file excel per ogni mercato geografico (Italia, UE, USA) aventi la stessa struttura, ad ogni file excel in un foglio ho creato l'elenco dei titoli appartenenti a quell'area geografica con il relativo <nome del file>.

    Quindi vorrei creare un pulsante nel mia schermata principale che automaticamente importa i dati dei file presenti nell'elenco che ho creato nel mio file excel in modo che ad ogni file.txt corrisponda un foglio di excel.

    Spero sia riuscito a farvi comprendere ciò che vorrei fare.

    Grazie per la pazienza che mostrerete

    PS: per favore quando mi scrivere codici, portatemi con la mano per inserirli e avviarli

  2. #2
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: Importare dati da files presenti in un elenco

    Ciao Japogi benvenuto, ho visto che ti sei già presentato al Forum, ti invito solo a leggere anche il Regolamento di solito chiediamo cortesemente un file di esempio (senza dati sensibili) affinchè si capiscano meglio le richieste e si possano provare soluzioni senza dover creare noi un file per fare delle prove.

    Ciao
    Flavio

  3. #3
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Importare dati da files presenti in un elenco

    ciao,
    se non ha capito male,
    lo stesso obiettivo è stato trattato in questo thread.

    Puoi cominciare a darci un'occhiata e prendere spunto, anche se sicuramente la procedura è simile,
    ma i contenuti dei file sono/saranno diversi.....

    Spero ti possa essere utile,
    ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  4. #4
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    quindi dovrei importare questo codice in ogni foglio del mio excel?

    Vorrei però prima importarli solamente, leggo che ci sono delle operazione che vengono effettuate, questo vorrei farlo in un secondo momento (step by step) se voglio capirci qualcosa

    ad ogni allego il mio file excel per capire come l'ho strutturato

    Codice: 
    Option Explicit
    
    
    Sub importafolder()
    Dim Wb As Workbook, WbNew As Workbook, CSVfolder As String, CSVfile As String
    Dim nRiga As Long, Intervallo As String
    
    
      Set Wb = ThisWorkbook
      CSVfolder = ThisWorkbook.Path '"F:\Download\dise\" ' <<<<<<<<<<< da modificare
      Application.ScreenUpdating = False
      If Right(CSVfolder, 1) <> "\" Then CSVfolder = CSVfolder & "\"
      CSVfile = Dir(CSVfolder & "*.txt")
      While CSVfile <> ""
        Workbooks.OpenText Filename:=CSVfolder & CSVfile, DataType:=xlDelimited, semicolon:=True
        Set WbNew = ActiveWorkbook
        Sheets(1).Copy After:=Wb.Sheets(Sheets.Count)
    
        nRiga = Range("C" & Rows.Count).End(xlUp).Row
        Range("G4").Value = "media="
        Intervallo = Range("C6:C" & nRiga).AddressLocal
        Range("H4").Formula = "=average(" & Intervallo & ")"
        Range("D6").Formula = "=C6-$H$4"
        Range("D6").AutoFill Destination:=Range("D6:D" & nRiga)
    
        WbNew.Close False
        CSVfile = Dir()
      Wend
    
      Set WbNew = Nothing
      Set Wb = Nothing
    
      Application.ScreenUpdating = True
    End Sub
    File Allegati File Allegati

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: Importare dati da files presenti in un elenco

    Un saluto a tutti.
    @Japogi ricorda di includere il codice nei TAG CODE.../CODE.
    Questa volta lo faccio io.

  6. #6
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Ops grazie non sapevo farlo

  7. #7
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: Importare dati da files presenti in un elenco

    Ho alcune domande per chiarirmi i termini di ciò che andrebbe fatto:


    1) se ho capito bene i files sono incrementali, quindi basta importarne uno solo per titolo sovrascrivendo i precedenti dati?
    2) ogni .txt va importato in un foglio specifico?
    3) c'è qualcosa che evidenzia i file .txt che vanno nel foglio Italia o USA o UE?

  8. #8
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    1) i file txt sono incrementali, io potrei anche importare ogni giorno dal mio Excel con un pulsante preleva dati;
    2) ogni file txt va importato in un foglio specifico;
    3) in un foglio del mio excel vi è un elenco dei file che devo importate.

    Ho allegato in un post precedente il file Excel dove ospiterà tutti i dati, da li puoi capire la struttura e iò che mi occorre.

    Grazie
    Giuseppe

  9. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    i file txt dove sono ? possiamo avere i primi 2 dell'elenco per capire come sono strutturati ?

  10. #10
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    tutti i files che vengono scaricati vanno nella cartella c:\nomeprogramma\TMP percorso che ho lasciato di default (scusate ma non vorrei fare nomi di programmi terzi)
    non è possibile archiviare i file esportati in cartelle suddivise, es: cartella USA tutti i files riguardanti USA, ecc
    ma sono tutti esportati in quella cartella TMP con nome assegnato dal programma che non è possibile cambiare.

    i files txt non possono essere allegati qui!

    cmq se nel mio file excel faccio importa dati non ho problemi nel senso che riconosce sia data che numeri decimali dove poter fare i calcoli,
    all'interno del file txt le colonne sono suddivise con tab in questo modo:

    Codice: 
    23/06/16    1,169    1,202    1,165    1,202    12290490
    24/06/16    1,05    1,13    1,032    1,086    36407220
    27/06/16    1,08    1,115    1,064    1,069    14411460
    28/06/16    1,081    1,118    1,081    1,089    12083920
    29/06/16    1,11    1,134    1,104    1,127    10410930
    30/06/16    1,124    1,178    1,121    1,178    12664470
    01/07/16    1,18    1,19    1,165    1,177    7361957
    04/07/16    1,188    1,192    1,177    1,188    7031651
    05/07/16    1,182    1,189    1,156    1,17    10277360
    06/07/16    1,169    1,18    1,144    1,147    6912324
    07/07/16    1,153    1,177    1,144    1,146    6371434
    08/07/16    1,14    1,176    1,126    1,171    10680040
    11/07/16    1,177    1,182    1,163    1,177    4896809
    12/07/16    1,177    1,203    1,177    1,2    9914119
    13/07/16    1,194    1,202    1,179    1,195    10767780
    14/07/16    1,192    1,203    1,182    1,198    9271988
    15/07/16    1,192    1,213    1,192    1,21    5477357
    18/07/16    1,209    1,219    1,195    1,204    4672880
    19/07/16    1,202 1,21    1,195    1,202    4514579
    20/07/16    1,21    1,22    1,204    1,22    7243073
    21/07/16    1,22    1,222    1,21    1,219    6587230
    22/07/16    1,212    1,233    1,212    1,226    8248302
    25/07/16    1,225    1,244    1,224    1,243    7833796
    26/07/16    1,243    1,253    1,232    1,247    8885817
    Ultima modifica fatta da:Rubik72; 27/07/16 alle 12:54

  11. #11
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    puoi allegare qualsiasi file, zippane qualcuno e allegali, mi servono originali

  12. #12
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    ah scusa ecco due files zippati
    File Allegati File Allegati

  13. #13
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    prova la seguente macro, però i nomi dei file devono coincidere con quelli dell'elenco, vedi file FIB
    Codice: 
    Sub importatext()
    Dim Wb As Workbook,  CSVfolder As String, CSVfile As String
      Set Wb = ThisWorkbook
      CSVfolder = "C:\percorso\" ' <<<<<<<<<<< da modificare
      Application.ScreenUpdating = False
      If Right(CSVfolder, 1) <> "\" Then CSVfolder = CSVfolder & "\"
      n = 1
      For r = 5 To 45
        CSVfile = Sheets("PANIERE_FTSE_MIB").Cells(r, "D")
        Workbooks.OpenText Filename:=CSVfolder & CSVfile, DataType:=xlDelimited, Tab:=True
        Sheets(1).UsedRange.Copy Wb.Sheets("Foglio" & n).Cells(1, 1)
        n = n + 1
        ActiveWorkbook.Close False
      Next
      Set Wb = Nothing
      Application.ScreenUpdating = True
    End Sub

  14. I seguenti utenti hanno dato un "Like"


  15. #14
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Scusami, il codice che mi hai postato dove lo devo inserire?
    in un modulo o all'interno del mio pulsante?

  16. #15
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    in un modulo standard, come fai ad inserire il codice nel pulsante ? comunque basta provare

  17. #16

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: Importare dati da files presenti in un elenco

    Citazione Originariamente Scritto da Japogi Visualizza Messaggio
    tutti i files che vengono scaricati vanno nella cartella c:\nomeprogramma\TMP percorso che ho lasciato di default (scusate ma non vorrei fare nomi di programmi terzi)
    non è possibile archiviare i file esportati in cartelle suddivise, es: cartella USA tutti i files riguardanti USA, ecc
    ma sono tutti esportati in quella cartella TMP con nome assegnato dal programma che non è possibile cambiare.

    i files txt non possono essere allegati qui!

    cmq se nel mio file excel faccio importa dati non ho problemi nel senso che riconosce sia data che numeri decimali dove poter fare i calcoli,
    all'interno del file txt le colonne sono suddivise con tab in questo modo:

    Codice: 
    23/06/16    1,169    1,202    1,165    1,202    12290490
    24/06/16    1,05    1,13    1,032    1,086    36407220
    27/06/16    1,08    1,115    1,064    1,069    14411460
    28/06/16    1,081    1,118    1,081    1,089    12083920
    29/06/16    1,11    1,134    1,104    1,127    10410930
    30/06/16    1,124    1,178    1,121    1,178    12664470
    01/07/16    1,18    1,19    1,165    1,177    7361957
    04/07/16    1,188    1,192    1,177    1,188    7031651
    05/07/16    1,182    1,189    1,156    1,17    10277360
    06/07/16    1,169    1,18    1,144    1,147    6912324
    07/07/16    1,153    1,177    1,144    1,146    6371434
    08/07/16    1,14    1,176    1,126    1,171    10680040
    11/07/16    1,177    1,182    1,163    1,177    4896809
    12/07/16    1,177    1,203    1,177    1,2    9914119
    13/07/16    1,194    1,202    1,179    1,195    10767780
    14/07/16    1,192    1,203    1,182    1,198    9271988
    15/07/16    1,192    1,213    1,192    1,21    5477357
    18/07/16    1,209    1,219    1,195    1,204    4672880
    19/07/16    1,202 1,21    1,195    1,202    4514579
    20/07/16    1,21    1,22    1,204    1,22    7243073
    21/07/16    1,22    1,222    1,21    1,219    6587230
    22/07/16    1,212    1,233    1,212    1,226    8248302
    25/07/16    1,225    1,244    1,224    1,243    7833796
    26/07/16    1,243    1,253    1,232    1,247    8885817
    per inserire i TAG in automatico, basta cliccare sul tasto "#" nel menu in alto
    Anche questa volta l'ho modificata io

  18. #17
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    ho provato il codice, fa l'importazione ma per le date non le importa correttamente, nel file excel importa le date in formato gg/mm/aa che corrispondono al txt
    ed altre li formato in mm/gg/aaaa
    Cronologicamente sono corrette ma è possibile formattarle tutti in egual modo?

    Ti chiedo poi se l'esecuzione della macro può essere fatto con il click dal mio pulsato creato

    Grazie

    ----------Post unito in automatico----------

    sono riuscito ad assegnare la macro al pulsante, mi resta definire la formattazione delle date

  19. #18
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    sostituisci la riga
    Codice: 
        Workbooks.OpenText Filename:=CSVfolder & CSVfile, DataType:=xlDelimited, Tab:=True
    con
    Codice: 
        Workbooks.OpenText Filename:=CSVfolder & CSVfile, local:=True

  20. I seguenti utenti hanno dato un "Like"


  21. #19
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    @patel

    grazie infinite funziona tutto!!!!

    il primo passaggio di importazione è finito, adesso devo solo ordinarlo con continuare ad inserire altre funzionalità


  22. #20
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Ciao a tutti.

    Il primo passaggio del mio file excel per importare i dati da files esterni è andato okkey.

    Adesso mi occorrerebbe implementarlo che ad ogni file importato effettui delle operazioni, ho già visto un altro post che ne parlava ma siccome sono a zero di VBA non riesco a prendere spunto da quello script per il mio caso.

    Allego il file di esempio dove ho riportato una sola serie di dati e nello stesso foglio ho svolto manualmente le formule che dovrebbe fare VBA.

    I calcolo sono:

    1) impostare una variabile dove definisca il periodo, nel mio caso è di "14";
    2) partendo da K6 vede restituirmi il valore massimo tra le seguenti differenze C5-D6; E5-C6; E5-D6 questo fino all'ultima riga della serie storica con la data più recente;
    3) calcolare la media mobile di n periodi (14) dei risultati della colonna K questo fino all'ultima riga della serie storica con la data più recente;
    4) partendo da M6 la differenza tra C6 e C5 questo fino all'ultima riga della serie storica con la data più recente;
    5) ugualmente partendo da N6 la differenza tra D5 e D6 questo fino all'ultima riga della serie storica con la data più recente;
    6) partendo da O6 deve restituire la seguente la condizione: =SE(E(M6>N6;M6>0);M6;) questo fino all'ultima riga della serie storica con la data più recente;
    7) ugualmente da P6 deve restituire la seguente condizione: =SE(E(N6>M6;N6>0);N6;) questo fino all'ultima riga della serie storica con la data più recente;
    8) partendo da Q19 calcolare la media mobile di n periodi (14) della colonna O questo fino all'ultima riga della serie storica con la data più recente;
    9) ugualmente partendo da R19 calcolare la media mobile di n periodi (14) della colonna P questo fino all'ultima riga della serie storica con la data più recente;
    10) partendo da S19 la seguente operazione (Q19/L19)*100 questo fino all'ultima riga della serie storica con la data più recente;
    11) ugualmente da T19 la seguente operazione (R19/L19)*100 questo fino all'ultima riga della serie storica con la data più recente;
    12) partendo da U19 la seguente formula: (ASS(S19-T19)/SOMMA(S19:T19))*100 questo fino all'ultima riga della serie storica con la data più recente;
    13) partendo da V32 la media mobile di n periodi (14) della colonna U questo fino all'ultima riga della serie storica con la data più recente;

    Non vorrei caricarvi troppo nel rispondermi a queste operazioni, alcune credo abbiano struttura VBA simile quindi posso io cambiarla riportando altri riferimenti

    Queste operazioni andrebbero aggiunte in questo script:


    Codice: 
    Sub importatext()Dim Wb As Workbook,  CSVfolder As String, CSVfile As String
      Set Wb = ThisWorkbook
      CSVfolder = "C:\percorso\" ' <<<<<<<<<<< da modificare
      Application.ScreenUpdating = False
      If Right(CSVfolder, 1) <> "\" Then CSVfolder = CSVfolder & "\"
      n = 1
      For r = 5 To 45
        CSVfile = Sheets("PANIERE_FTSE_MIB").Cells(r, "D")
        Workbooks.OpenText Filename:=CSVfolder & CSVfile, DataType:=xlDelimited, Tab:=True
        Sheets(1).UsedRange.Copy Wb.Sheets("Foglio" & n).Cells(1, 1)
        n = n + 1
        ActiveWorkbook.Close False
      Next
      Set Wb = Nothing
      Application.ScreenUpdating = True End Sub
    File Allegati File Allegati

  23. #21
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Citazione Originariamente Scritto da Japogi Visualizza Messaggio
    Ciao a tutti.

    Il primo passaggio del mio file excel per importare i dati da files esterni è andato okkey.

    Adesso mi occorrerebbe implementarlo che ad ogni file importato effettui delle operazioni, ho già visto un altro post che ne parlava ma siccome sono a zero di VBA non riesco a prendere spunto da quello script per il mio caso.

    Allego il file di esempio dove ho riportato una sola serie di dati e nello stesso foglio ho svolto manualmente le formule che dovrebbe fare VBA.

    I calcolo sono:

    1) impostare una variabile dove definisca il periodo, nel mio caso è di "14";
    2) partendo da K6 vede restituirmi il valore massimo tra le seguenti differenze C5-D6; E5-C6; E5-D6 questo fino all'ultima riga della serie storica con la data più recente;
    3) calcolare la media mobile di n periodi (14) dei risultati della colonna K questo fino all'ultima riga della serie storica con la data più recente;
    4) partendo da M6 la differenza tra C6 e C5 questo fino all'ultima riga della serie storica con la data più recente;
    5) ugualmente partendo da N6 la differenza tra D5 e D6 questo fino all'ultima riga della serie storica con la data più recente;
    6) partendo da O6 deve restituire la seguente la condizione: =SE(E(M6>N6;M6>0);M6;) questo fino all'ultima riga della serie storica con la data più recente;
    7) ugualmente da P6 deve restituire la seguente condizione: =SE(E(N6>M6;N6>0);N6;) questo fino all'ultima riga della serie storica con la data più recente;
    8) partendo da Q19 calcolare la media mobile di n periodi (14) della colonna O questo fino all'ultima riga della serie storica con la data più recente;
    9) ugualmente partendo da R19 calcolare la media mobile di n periodi (14) della colonna P questo fino all'ultima riga della serie storica con la data più recente;
    10) partendo da S19 la seguente operazione (Q19/L19)*100 questo fino all'ultima riga della serie storica con la data più recente;
    11) ugualmente da T19 la seguente operazione (R19/L19)*100 questo fino all'ultima riga della serie storica con la data più recente;
    12) partendo da U19 la seguente formula: (ASS(S19-T19)/SOMMA(S19:T19))*100 questo fino all'ultima riga della serie storica con la data più recente;
    13) partendo da V32 la media mobile di n periodi (14) della colonna U questo fino all'ultima riga della serie storica con la data più recente;

    Non vorrei caricarvi troppo nel rispondermi a queste operazioni, alcune credo abbiano struttura VBA simile quindi posso io cambiarla riportando altri riferimenti

    Queste operazioni andrebbero aggiunte in questo script:


    Codice: 
    Sub importatext()Dim Wb As Workbook,  CSVfolder As String, CSVfile As String
      Set Wb = ThisWorkbook
      CSVfolder = "C:\percorso\" ' <<<<<<<<<<< da modificare
      Application.ScreenUpdating = False
      If Right(CSVfolder, 1) <> "\" Then CSVfolder = CSVfolder & "\"
      n = 1
      For r = 5 To 45
        CSVfile = Sheets("PANIERE_FTSE_MIB").Cells(r, "D")
        Workbooks.OpenText Filename:=CSVfolder & CSVfile, DataType:=xlDelimited, Tab:=True
        Sheets(1).UsedRange.Copy Wb.Sheets("Foglio" & n).Cells(1, 1)
        n = n + 1
        ActiveWorkbook.Close False
      Next
      Set Wb = Nothing
      Application.ScreenUpdating = True End Sub
    Scusatemi dovrei aprire un nuovo post per questa mia richiesta?

  24. #22
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    Citazione Originariamente Scritto da Japogi Visualizza Messaggio
    Scusatemi dovrei aprire un nuovo post per questa mia richiesta?
    no, ma quando si chiedono troppe cosa è inevitabile che la gente si spaventi e passi oltre

  25. #23
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    no, ma quando si chiedono troppe cosa è inevitabile che la gente si spaventi e passi oltre
    Ok credevo che nel mio post questa possibilità l'avevo evidenziata, pazienza passerò anche io oltre.

  26. #24
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Importare dati da files presenti in un elenco

    lo scopo del forum non è quello di fornire un servizio chiavi in mano ma di insegnare a diventare autonomi, quindi rispondiamo volentieri a chi chiede come si fa qualcosa, non altrettanto a richieste come l'ultima tua.

  27. #25
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    lo scopo del forum non è quello di fornire un servizio chiavi in mano ma di insegnare a diventare autonomi, quindi rispondiamo volentieri a chi chiede come si fa qualcosa, non altrettanto a richieste come l'ultima tua.
    Di fatti se leggi bene il mio post non ho chiesto di svolgere tutte le funzioni ma quelle principali per avere una struttura da poter completarlo io poi, perché non sapevo in quale blocco aggiungere le operazioni da svolgere.
    grazie cmq

  28. #26
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Importare dati da files presenti in un elenco

    ciao a tutti,
    intanto, anche se il Suo stile non lo prevede, saluto volentierissimamente Patel
    (anche se solo virtualmente, lo conosco da troppo tempo e lo devo continuamente ringraziare per le soluzioni che mi ha passato
    in passato
    ciao )


    poi mi scuso per la "filippica" che segue, che è il proseguimento al mio intervento a questa discussione del 26/07/2016
    (poco interpretato),


    ma come Lui stesso ti ha consigliato tra le righe, ti inviterei a proporti al Forum in modo "diverso":
    spezza Tu il Tuo problema in micro problemi.

    la gestione del Tuo obiettivo E', e DEVE RIMANERE Tua,
    devi SOLO fare in modo che gli altri ti aiutino,
    sia con la forma con cui poni le domande che con la loro formulazione.


    Il bacino di utenti che possono darti una mano, (mi sembra Tu chieda questo)
    aumenta senza che Tu te ne renda conto e non devi aspettare l'intervento del "mago di turno".

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  29. I seguenti 2 utenti hanno dato un "Like" a tanimon per questo post:


  30. #27
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Sto andando avanti da solo con il mio progetto, ma mi sono fermato alla media mobile,
    ho sviluppato questo codice:

    Codice: 
    Periodi = 14
    For I = 1 To Worksheets.Count
    If Sheets(I).Name <> "PANIERE_FTSE_MIB" And Sheets(I).Name <> "ANALISI" Then
    Sheets(I).Select
    nRiga = Range("A" & Rows.Count).End(xlUp).Row
    Intervallo = Range("K6:K" & Periodi + 5).AddressLocal        
    Range("L" & Periodi + 5).Formula = "=average(" & Intervallo & ")"
    Range("L" & Periodi + 5).AutoFill Destination:=Range("L" & Periodi + 5 & ":L" & nRiga)
    ma mi restituisce sempre la media dei primi 14 periodi, come posso renderla mobile?
    Ho notato che nella della la formula è bloccata tramite il il simbolo $
    Cime posso dire a VBA di non bloccare?

  31. #28
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Importare dati da files presenti in un elenco

    Prova mettere sotto intervallo
    Codice: 
    intervallo = Replace(intervallo, "$", "")

  32. I seguenti utenti hanno dato un "Like"


  33. #29
    L'avatar di Japogi
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Napoli
    Età
    37
    Messaggi
    64
    Versione Office
    Excel 2007
    Likes ricevuti
    1

    Re: Importare dati da files presenti in un elenco

    Grazie per la risposta, ha funzionato!!

    ----------Post unito in automatico----------

    Ho provato un'altra operazione per il mio progetto e mi restituisce errore 1004 " Errore definito dall'applicazione o dall'oggetto"

    Codice: 
    Periodi = 14
    For I = 1 To Worksheets.Count
    If Sheets(I).Name <> "PANIERE_FTSE_MIB" And Sheets(I).Name <> "ANALISI" Then
    Sheets(I).Select
    nRiga = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("M6").Formula = "=SE(E((C6-C5)>(D5-D6);(C6-C5)>0); C6-C5: 0)"  '<<<< su questa riga mi dà errore
     
    Range("M6").AutoFill Destination:=Range("M6:M" & nRiga)

  34. #30

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: Importare dati da files presenti in un elenco

    prova con:
    Codice: 
    Range("M6").FormulaLocal = "=SE(E((C6-C5)>(D5-D6);(C6-C5)>0); C6-C5; 0)"
    altrimenti se usi la proprietà "Formula" devi scrivere così:
    Codice: 
    IF(AND((C6-C5)>(D5-D6),(C6-C5)>0), C6-C5, 0)

    P.S. Nell'argomento [se falso] hai sbagliato i separatori ";"

  35. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. Lista elenco files presenti in sottosottosotto cartella
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 26/02/17, 18:43
  2. [Risolto] Importare dati da vari files .txt
    Di jonathan1960 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 20/02/17, 16:04
  3. [Risolto] Cercare valore non presenti in un elenco
    Di ROBERTOB nel forum Domande su Excel in generale
    Risposte: 24
    Ultimo Messaggio: 01/02/17, 21:52
  4. [Risolto] Lanciare macro se in cartella sono presenti files .txt
    Di Gatt88 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 14/12/16, 18:04
  5. Cancellare files excel vuoti presenti in una cartella tramite macro
    Di gigio nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 24/09/16, 14:25

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •