inserimento file txt in file excel

[eng]

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

[Flash30005]

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

[eng]

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

[eng]

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 ?

[Flash30005]

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

[eng]

grazie