Salvando conteúdo de planilha e arquivo texto - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



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

Published quarta-feira, 6 de abril de 2011 10:33 by Paleo

Filed under:

Comments

No Comments

Leave a Comment

(required) 
(required) 
(optional)
(required)