| | Post: 1 | Registrato il: 09/05/2018
| Età: 35 | Utente Junior | 2016 | | OFFLINE | |
|
  09/05/2018 12:12 | |
Ciao a tutti, dovrei creare tramite macro una funzione che mi apra 2 file txt, mi copia tutto il loro contenuto, e mi generi un terzo file txt che conterrà i dati del file txt 2 accodati ai file del foglio txt 1
Grazie mille |
|
| | Post: 5.377 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 09/05/2018 15:02 | |
Ciao Arturo, trattandosi di file di testo, e non Excel non a niente a che fare, credo che dovresti intervenire manualmente, penso che sia la soluzione più facile.
apri un file Testo vuoto e fai copia incolla dei vari file text uno sotto l'altro.
Excel dove importerebbe il testo? in una cella?, a volte l'importazione di file di testo in Excel risultano illeggibili.
Comunque anche i file Word hanno le macro, il tuo file che tipo di file di testo è Notepad? o altro.
Ciao By Sal ![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
[Modificato da by sal 09/05/2018 15:04] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 3.433 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 09/05/2018 16:07 | |
Ciao by sal
VBA-Penso si possa fare con i TXT, purtroppo l'utente non fornisce esempi ed io non li richiedo...
EDIT
patel45 (ciao) = Perfetto
Aggiunta nei preferiti... [Modificato da raffaele1953 12/05/2018 15:34] Excel 2013 |
| | Post: 4.093 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 12/05/2018 08:33 | |
si può fare
Sub textJoin()
Dim Text As String, Filename As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename1 = "F:\Download\test_1.txt"
Filename2 = "F:\Download\test_2.txt"
Filename3 = "F:\Download\test_3.txt"
Set Stream = FSO.opentextfile(Filename1)
Text1 = Stream.readall
Set Stream = FSO.opentextfile(Filename2)
Text2 = Stream.readall
Stream.Close
Open Filename3 For Output As #1
Print #1, Text1
Print #1, Text2
Close #1
Set Stream = Nothing
Set FSO = Nothing
End Sub[Modificato da patel45 12/05/2018 08:42]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 689 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 12/05/2018 16:28 | |
Dato che sono dei semplici file di testo perché non usare un comunissimo comando dos dal prompt di cmd.exe nella cartella che contiene i file:
COPY file1.txt+file2.txt unito.txt
e se tutto va unito al primo file basterebbe:
COPY file1.txt+file2.txt
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 1 | Registrato il: 09/05/2018
| Età: 35 | Utente Junior | 2016 | | OFFLINE | |
|
| 16/05/2018 19:08 | |
Ciao ragazzi,
Provo tutto e vi faccio sapere
Grazie mille |
| | Post: 2 | Registrato il: 09/05/2018
| Età: 35 | Utente Junior | 2016 | | OFFLINE | |
|
| 21/05/2018 20:20 | |
patel45, 12/05/2018 08.33:
si può fare
Sub textJoin()
Dim Text As String, Filename As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename1 = "F:\Download\test_1.txt"
Filename2 = "F:\Download\test_2.txt"
Filename3 = "F:\Download\test_3.txt"
Set Stream = FSO.opentextfile(Filename1)
Text1 = Stream.readall
Set Stream = FSO.opentextfile(Filename2)
Text2 = Stream.readall
Stream.Close
Open Filename3 For Output As #1
Print #1, Text1
Print #1, Text2
Close #1
Set Stream = Nothing
Set FSO = Nothing
End Sub
Ciao, alla fine lo script che mi hai scritto funziona alla grande, e fa proprio quello che cercavo. Ti ringrazio per l'aiuto, adesso lo devo solo settare secondo le mie esigenze.
Grazie mille
|
|
|
|
|