Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

inserimento file txt in file excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

inserimento file txt in file excel

Postdi eng » 06/05/10 22:47

ciao a tutti da un neofita,
ho provato a ricercare e a modificare una macro, ad esempio qui http://www.pc-facile.com/forum/viewtopic.php?f=26&t=85738&start=0&hilit=importa, ma senza riuscirci.

Ho la necessità di caricare in ciascuna cella della colonna B il contenuto dei files txt i cui nomi sono contenuti nelle corrispondenti celle della colonna A.
Ovvero se in A1 c'è indicato il file c:\fileA1.txt, B1 deve contenere tutto il contenuto del file di testo.
COne costruire la macro ?
Grazie
ciao
EnG
eng
Newbie
 
Post: 4
Iscritto il: 06/05/10 21:39

Sponsor
 

Re: inserimento file txt in file excel

Postdi Flash30005 » 07/05/10 08:36

Ciao Eng e benvenuto nel Forum

Un codice per fare quello che cerchi potrebbe essere questo:
Codice: Seleziona tutto
Sub ImportaTxt()
MiaStr = ""
FileTxt = Worksheets("Foglio1").Range("A1").Value
    Open FileTxt For Input As #1
    Do Until EOF(1)
        Line Input #1, Riga
MiaStr = MiaStr & " " & Riga
    Loop
    Close #1
    Worksheets("Foglio1").Range("B1").Value = MiaStr

End Sub


Dico potrebbe, perché dipende dalla struttura del file testo, dalle righe e da come le vorresti disporre.
La macro inviata inserisce tutto ciò che c'è nel file testo nella cella B1 e unica riga (senza l'invio a riga nuova)

mentre questa macro
Codice: Seleziona tutto
Sub ImportaTxt()
MiaStr = ""
FileTxt = Worksheets("Foglio1").Range("A1").Value
    Open FileTxt For Input As #1
    Do Until EOF(1)
        Line Input #1, Riga
MiaStr = MiaStr & Chr("10") & Riga
    Loop
    Close #1
    Worksheets("Foglio1").Range("B1").Value = MiaStr

End Sub


riporterà in B1 tutte le righe del file testo rispettando l'invio a capo del file testo ma sempre nella cella B1

Prova e fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: inserimento file txt in file excel

Postdi eng » 07/05/10 10:24

grazie, ci siamo quasi :)
ho provato il secondo codice.
Mi carica solo in B1il file di A1, ma non prosegue con gli altri.
eng
Newbie
 
Post: 4
Iscritto il: 06/05/10 21:39

Re: inserimento file txt in file excel

Postdi eng » 07/05/10 10:26

eng ha scritto:grazie, ci siamo quasi :)
ho provato il secondo codice.
Mi carica solo in B1il file di A1, ma non prosegue con gli altri.

analizzando la macro deve fare proprio quello e quiondi funziona.
ora devo fare un altro loop esterno per estendere il range della macro alle altre celle, giusto ?
eng
Newbie
 
Post: 4
Iscritto il: 06/05/10 21:39

Re: inserimento file txt in file excel

Postdi Flash30005 » 07/05/10 15:37

Beh tu non hai specificato che avevi un elenco di celle nella colonna A
ma solo A1
comunque è come dici metterai un contatore di righe della colonna A1

poi crei un loop

Sub ImportaTxt()
For RR1 = 1 to Numerorighe '<<< loop sulle celle della colonna A, o calcolate o numero fisso
MiaStr = ""
FileTxt = Worksheets("Foglio1").Range("A" & RR1).Value
Open FileTxt For Input As #1
Do Until EOF(1)
Line Input #1, Riga
MiaStr = MiaStr & Chr("10") & Riga
Loop
Close #1
Worksheets("Foglio1").Range("B" & RR1).Value = MiaStr
next RR1
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: inserimento file txt in file excel

Postdi eng » 07/05/10 15:54

grazie :)
eng
Newbie
 
Post: 4
Iscritto il: 06/05/10 21:39


Torna a Applicazioni Office Windows


Topic correlati a "inserimento file txt in file excel":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti