Este fórum está sendo desativado

[GILTON]

boa noite,

estou exportanto arquivo vba e o mesmo está com caractere especial e não com as informações da planilha.

exemplo:

ÐÏࡱá > þÿ / þÿÿÿ y ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿ.

código da geração do arquivo txt.
If resultado = vbYes Then
MsgBox "Você acaba de confirmar a ação", vbInformation, "Atenção"
Dim dirCopia As String, nomeCopia As String
dirCopia = "C:\SAP\"
nomeCopia = "VRG_BR_REC_CCARD" & dataliquidacao & "1" & zhr & adm & bandeira & ".txt"
ActiveWorkbook.SaveAs Filename:= _
dirCopia + nomeCopia, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Else
MsgBox "Você acaba de recusar a ação"
End If


planilha

1924 VRG_BR_REC_CCARD_20161023 201610231704 000001
2924 BRLBRLUser 00000000000010020160831000000000032453REC516083100100000001 2016083120160831500001log1234526 201608315160831 0000000000324530000000000000002016083120160831BRSAOTCTCCR0000000001 00120160831 000002
2924 BRLBRLUser 00000000000010020160831000000000024700REC516083100100000002 2016083120160831500001log1234526 201608315160831 0000000000247000000000000000002016083120160831BRSAOTCTCCR0000000002 00120160831 000003
2924 BRLBRLUser 00000000000010020160831000000000123123REC516083100100000003 2016083120160831500001log1234526 201608315160831 0000000001231230000000000000002016083120160831BRSAOTCTCCR0000000003 00120160831 000004
2924 BRLBRLUser 00000000000010020160831000000000132423REC516081200100000004 2016083120160831500001log1234526 201608315160812 0000000001324230000000000000002016083120160831BRSAOTCTCCR0000000004 00120160831 000005
2924 BRLBRLUser 00000000000010020160831000000000023455REC516080200100000005 2016083120160831500001log1234526 201608315160802 0000000000234550000000000000002016083120160831BRSAOTCTCCR0000000005 00120160831 000006
2924 BRLBRLUser 00000000000010020160831000000000000443REC516081400100000006 2016083120160831500001log1234526 201608315160814 0000000000004430000000000000002016083120160831BRSAOTCTCCR0000000006 00120160831 000007
9000006 000008


alguem pode me ajudar

no aguardo, obrigado.
GILTON
Membro
Membro

Mensagens: 4
Registrado em: Qui Out 13, 2016 1:30 pm
Has thanked: 0 time
Have thanks: 0 time

[DJunqueira]

If resultado = vbYes Then
MsgBox "Você acaba de confirmar a ação", vbInformation, "Atenção"
Dim dirCopia As String, nomeCopia As String
dirCopia = "C:\SAP\"
nomeCopia = "VRG_BR_REC_CCARD" & dataliquidacao & "1" & zhr & adm & bandeira & ".txt"
ActiveWorkbook.SaveAs Filename:= _
dirCopia + nomeCopia, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Else
MsgBox "Você acaba de recusar a ação"
End If
==========================================================================
Hehe
Não é pq vc escreve ".txt" no final do nome q o Excel vai salvar em formato texto.
P/ uma lista de possíveis formatos texto consulte:
https://msdn.microsoft.com/pt-br/librar ... 98017.aspx