IMPORTAZIONE DATI DA TXT CHIUSI IN UN UNICO FILE EXCEL

[dottchris]

Ciao a tutti e scusate ma....io mastico poco di VBA ma mi servirebbe una macro per questa funzione.

Praticamente in un unico foglio excel di destinazione dovrei importare, da altri file xls chiusi e con la stessa struttura, i dati (semplice copia e incolla). I dati nei file chiusi sono tutti in colonna A quindi dovrei copiare la colonna A di tutti questi file e copiarli nelle colonne del file di destinazione ( possibilmente in colonne affiancate).
Oltretutto i file da importare sono in sottocartelle ( molto sotto ) e i file da aprire sono i “report.txt”.
Diciamo che l’unica cartella che non cambia mai è C:\HPCHEM\1\DATA\ mentre le altre cambiano ( anno, mese, giorno)
ES: C:\HPCHEM\1\DATA\2015\MAR15\1003TPH3\000108-10032015-001-C10ST\LCS011.D\report.xls
Spero di essermi spiegato…
Che dite si può fare? Grazie mille anticipatamente

[Anthony47]

Si puo' fare, pero' devi chiarire se i file chiusi si chiamano "report.xls" oppure "report.txt"; le procedure per gestire i due tipi di file sono diverse.

Ciao

[dottchris]

Hai ragione scusami ! I file report sono .txt con la possibilita' di averli anche in xls... x questo ho scritto cosi!
Cmq facciamo la versione txt (meglio ke lasci i file cosi come sono)
Eventualmente...esagero se t chiedo entrambe le versioni ?

[Anthony47]

Era rimasto indietro...
Ho utilizzato molte cose prelevate da questa discussione: viewtopic.php?t=99260 e ho preparato questo file: https://www.dropbox.com/s/vi3rf2ho2zr4q ... s.xls?dl=0

Il processo e' articolato su due fasi:
1)creazione dell' elenco dei file "report.txt" da processare. Per questo eseguire la macro runAttrib per creare in Foglio1 la lista dei files riportata in Foglio1
-la directory sara' scelta con FileDialog a inizio macro
-Richiede la presenza di una directory C:\PROVA (>>> se manca verra' creata)
-Sara' creato un file C:\PROVA\myPippoBat.bat
-Sara creato un file C:\PROVA\pippoZCZC.txt
-Il file C:\PROVA\pippoZCZC.txt sara' importato in Foglio1, previa PULIZIA SENZA PREAVVISO di Foglio1

2)importazione in successione di ognuno dei file elencati in Foglio1 nella prima colonna libera di Foglio2

Trovi sul foglio Memo 2 pulsanti per eseguire queste due operazioni.

Lavora sui file report.txt.

Ciao, fai sapere

[dottchris]

Grazie mille Antony....devo ancora testarlo al 100% ma mi sembra perfetto!!!
Ora provo a fare dei test e poi eventualmente t dico se ci son problemi!
Compliementi e ancora grazie mille!!