Boa tarde colegas do forum, tenho o código abaixo, onde posso selecionar e abrir vários arquivos do Excel. Contudo agora exportar arquivos de texto, por gentileza, alguem sabe como alterar o código abaixo para realizar esse procedimento.

Dim filenames As Variant

Dim NomePasta As String
NomePasta = ActiveWorkbook.Name

MsgBox ("Selecione os arquivos a serem modificados.")

' set the array to a variable and the True is for multi-select
filenames = Application.GetOpenFilename(, , , , True)

counter = 1

' ubound determines how many items in the array
While counter <= UBound(filenames)

'Opens the selected files
Workbooks.Open filenames(counter)
Dim NomePasta2 As String
NomePasta2 = ActiveWorkbook.Name
Sheets("Base 2").Select

Windows(NomePasta).Activate

Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Application.CutCopyMode = False
Workbooks(NomePasta2).Close SaveChanges:=False 'Fecha a segunda planilha. Pendente.

Obrigado.