Salvando conteúdo de planilha e arquivo texto
Digamos que você deseja salvar o conteúdo da coluna A em um arquivo texto com o nome da coluna B, na pasta da coluna C. Neste caso insira o código abaixo em um módulo e execute a macro: Sub XLS2TXT() Dim intRow As Integer intRow = 1 Close Do Until IsEmpty(Cells(intRow, 1)) Open Range("C1").Value & "\" & Cells(intRow, 2) & ".txt" For Output As #1 Print #1, Cells(intRow, 1).Value Close intRow = intRow + 1 Loop End Sub…(read more)
