Quanto mais eu olhava isso, mais eu achava que era uma pequena macro útil. Para impedi-lo de processar linhas em branco (e bloquear meu Excel), reescrevi o código para criar apenas um arquivo enquanto houver dados disponíveis. Além disso, o uso de print
em vez de write
cria texto sem as cotações. Aqui está o que eu usei para realizar a mesma coisa.
Sub CreateFile()
Do While Not IsEmpty(ActiveCell.Offset(0, 1))
MyFile = ActiveCell.Value & ".txt"
'set and open file for output
fnum = FreeFile()
Open MyFile For Output As fnum
'use Print when you want the string without quotation marks
Print #fnum, ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2)
Close #fnum
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sinta-se à vontade para usar e modificar como quiser. Obrigado pela ótima ideia.