salvando planilha em txt - gerando aspas

[Luiz Elias]

Pessoal,

Boa tarde!

Estou montando o layout do arquivo de importação do SEF. No caso, preciso informar alguns registros referentes ao inventario da empresa.

Bom, fiz uma macro para tratar o arquivo original e no final na rotina pedi para salvar em txt no diretório C: da máquina.

O problema é que sempre que ele salva o arqvuivo em txt, esta sendo acrescenta aspas duplas em algumas linhas.

Estou usando o seguinte código no final da rotina:

ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\inventario-2012.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False

Devo ter a formata incorreta? alguém poderia me ajudar?

[Luiz Elias]

Pessoal,

Já consegui resolver minha bronca.

Mesmo assim, agradeço a ajuda de vocês.

[Adriano X]

Amigo, seria possível você compartilhar ou dividir a solução encontrada?

Pois estou com o mesmo problema, ao salvar a planilha em excel xls para txt e esta gerando aspas em algumas informações, gostaria de saber qual foi a solução adotada pôr você, que solucionou esse problema.

Grato.

[Adriano X]

Pessoal,

Já consegui resolver minha bronca.

Mesmo assim, agradeço a ajuda de vocês.

Amigo, como você resolveu esse problema?

continuo salvando e ainda assim gera aspas, pode me auxiliar?

[Mauro Coutinho]

AdrianoX, não sei qual foi a solução encontrada pelo Luiz Elias, mas não entendi quando dizem "ao salvar a planilha em excel xls para txt e esta gerando aspas em algumas informações"

Por exemplo, nas linhas que o Luiz colocou:
Esta instrução tem a função somente de Alterar o diretório ou pasta atual.
ChDir "C:\"

E nestas, instruímos para salvar como Texto com o nome e extensão inventario-2012.txt:
ActiveWorkbook.SaveAs Filename:="C:\inventario-2012.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False

Funciona perfeitamente, salvando o arquivo sem aspas.
Onde são acrescentadas estas "ASPAS DUPLAS" ? no nome do arquivo ?

Como colocaram somente estas linhas, pode ser que na rotina completa tenha alguma coisas digitada diferente.

fico no aguardo para mais detalhes.
[]s

[robson.coliveira]

Mauro Coutinho
Quando tem alguma virgula no texto, a linha é salva entre aspas
Exemplo:
|0150|1-1179612|UPS SCS LOGISTICA (BRASIL) LTDA|1058|00462691000145||114421705116|3550308||RUA PEDRO TAQUES|77||CONSOLACAO|
"|0150|1-1179891|IND GRAFICA GR E EDITORA LTDA|1058|58641655000129|||3544004||RUA DR MARIO TAVARES, 834|0001|.|BOM RETIRO|"
|0150|1-1214478|CELSO PAZ DA LUZ ME|1058|85029692000153||7011753790|4115200||RUA HENRIQUE DIAS|347||CENTRO|


http://office.microsoft.com/pt-br/excel ... 14105.aspx

Será que alguém tem a solução desse problema?

[frahaman]

Bom dia, colegas!

Estou com um problema maluco! Não sou um profundo conhecedor de VBA, mas dou meus pulos...rs...
Fiz uma macro que salva uma sheet em ".txt". São várias linhas, a macro seleciona parte das linhas, abre uma nova planilha, copia e cola e salva como ".txt", repete o processo até salvar todas as linhas. Faz isso pq preciso de arquivos separados.

Problema: do segundo ".txt" em diante algumas linhas são geradas com aspas duplas no começo e no fim da linha!

Tentei usar "FileFormat:=xlTextPrinter", porém parte do cabeçalho é inserido como última linha do arquivo, parece que faz uma quebra de linha, mas incluindo como um header!

Parte do código:

caminho = Range("Principal!B1").Value
nome = "XXX_ORDENS_RETORNO_FD_XX_" & Sheets("TXT XX").Range("Z" & linha - 1).Value

Sheets("Retorno").Select

Range("A:A").Copy

Application.Workbooks.Add

ActiveSheet.Paste
Application.CutCopyMode = False

' ActiveWorkbook.SaveAs Filename:=caminho & nome, FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=caminho & nome, FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWindow.Close



Obrigado!!!