Excel Nome do arquivo aberto ao lado da linha copiada

[Bruno Rimoldi]

Boa tarde pessoal,

 

preciso de uma ajuda quanto a um código.

 

Encontrei esse código e adaptei para meu uso. Além dele copiar o conteúdo dos arquivos TXTs a partir da célula B2 eu precisaria que a macro copiasse o nome do arquivo que está aberto na célula C2 em diante.

 

OBS.: Anexo está a macro e um arquivo TXT de teste.

 

Obrigado

Bruno

Sub Load()

    Sheets("Arquivo EFD completo").Select
    Dim myDir As String, fn As String, txt As String, a(), n As Long, i As Long, ff As Integer
    Caminho = Sheets("Capa").Range("B6")
    myDir = Caminho
    fn = Dir(myDir & "*.txt")
    
    Do While fn <> ""
        ff = FreeFile
        Open myDir & "\" & fn For Input As #ff
        Do While Not EOF(ff)
            Line Input #ff, txt
            n = n + 1: ReDim Preserve a(1 To n)
            a(n) = Split(txt, vbTab)
        Loop
        Close #ff
        fn = Dir()
    Loop
    With ThisWorkbook.Sheets(2).Range("B2")
        For i = 1 To n
            .Offset(i - 1).Resize(, UBound(a(i)) + 1).Value = a(i)
        Next
    End With
    
End Sub

 

Macro_SPED_TXT_teste.zip SPED-EFD - TESTE.txt

[Edson Luiz Branco]

Bom dia, @Bruno Rimoldi

 

Acrescente a linha indicada em seu código:

Sub Load()
        ...
        ...
        Do While Not EOF(ff)
            Line Input #ff, txt
            txt = txt & vbTab & fn  '******ACRESCENTE ESTA LINHA*******
            n = n + 1: ReDim Preserve a(1 To n)
            a(n) = Split(txt, vbTab)
        Loop
        ...
        ...
End Sub

 

[Bruno Rimoldi]

@Edson Luiz Branco mais uma vez muito obrigado pela sua ajuda. Exatamente o que precisava.