Bom dia senhores,
Montei uma Macro com a ajuda desse código que encontrei na net para exportar para TXT.
Sub Exportar()
Application.DisplayAlerts = False
template_file = ActiveWorkbook.FullName
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:Base_Robô_Devolução_" + _
VBA.Strings.Format(Now, "ddmmyy_hh.mm") + ".txt", _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName = False Then
Sheets("Plan1").Visible = False
Exit Sub
End If
'cria uma cópia da pasta de trabalho atual da planilha atual
Dim newBook As Workbook
Dim plan As Worksheet
Set newBook = Workbooks.Add
ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)
'exclui as demais planilhas
For Each plan In newBook.Sheets
If plan.Name <> ActiveSheet.Name Then
newBook.Worksheets(plan.Index).Delete
End If
Next
newBook.SaveAs Filename:= _
fileSaveName, FileFormat:=xlTextWindows, CreateBackup:=False, textvisuallayout:=xlNone
'fecha a pasta de trabalho gerada
newBook.Close SaveChanges:=True
Set newBook = Nothing
MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"
Sheets("Plan1").Visible = False
Sheets("Devolução Robô").Range("A1").Select
End Sub
O resultado que espero na saída do TXT é a seguinte: (o texto é concatenado)
RD172060657"DR -AG 3968-JPB-Pessoa Jurídica-Falta(m) Documento(s)-Comprovar os poderes via FEP enviar CONTRATO SOCIAL
porém o resultado que sai é
"RD172060657""DR -AG 3968-JPB-Pessoa Jurídica-Falta(m) Documento(s)-Comprovar os poderes via FEP enviar CONTRATO SOCIAL"
Acredito que as aspas seja um padrão de delimitador na hora de salvar em TXT, porém pra o que preciso só posso ter uma aspas entre esse pedaço RD172060657"DR
existe alguma maneira de exportar sem nenhum delimitador?
grato desde já
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/06/2012 6:32 am