Unire più file txt

Hai un problema con Excel?

Nuova discussione

Unire più file txt
di Fabio51 (utente non iscritto) data: 02/01/2010
Buongiorno,
sono alle prime armi con vba di excel e avrei la necessità di unire più file txt in uno solo.
con dos uso il comando copy testo*.txt unione.txt.
come posso fare con vba.
gazie
di Mabolsie (utente non iscritto) data: 16/01/2010
Ciao fabio

...con dos

lo usavo 15 anni fa..

comunque non ho capito se vuoi unire due file .txt in word oppure in excel oppure concatenare delle stringhe di file .txt

ciao max

di Enzo (utente non iscritto) data: 18/01/2010
Se per unione dio due file txt vuol dire ottenerne uno che abbia al suo interno il contenuto dei due file txt selezionati utilizza l'istruzione qui sotto
ossia ti fa selezionare due file permettendoti di selezionarli da una maschera e ti cre un file chiamato prova in "c:" che raggruppa il contenuto dei due file
fai sapere se va bene

  primofile = Application.GetOpenFilename("TEXT Files (*.TXT), *.TXT", , "Seleziona il primo file da scrivere", "Apri", "False")
  file_selezionato = ActiveWorkbook.Name
  secondofile = Application.GetOpenFilename("TEXT Files (*.TXT), *.TXT", , "Seleziona il secondo file da aprire", "Apri", "False")
  file_selezionato = ActiveWorkbook.Name
  If primofile = False Or secondofile = False Then
 X = MsgBox("I FILE NON SONO STATI UNITI", vbCritical)
          Application.CutCopyMode = False
  End
End If
Open primofile For Input As #1
Open "c:prova.txt" For Output As #2
Do Until EOF(1)
Line Input #1, DATA
Debug.Print DATA
Print #2, DATA
Loop
Close
Open secondofile For Input As #1
Open "c:prova.txt" For Append As #2
Do Until EOF(1)
Line Input #1, DATA
Debug.Print DATA
Print #2, DATA
Loop
Close

Vuoi Approfondire?