Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
BOm dia...
Tenho pessoas dois arquivos criados txt com os sequintes comandos:
DoCmd.TransferText acExportFixed, "teste2linha", _
"Vdk_testeEnvio2", lcal & "t1linha.txt"
arquivo criado:
0019130001000008009050932822
e o outro:
DoCmd.TransferText acExportFixed, "teste2linha", _
"Vdk_testeEnvio2", lcal & "t2linha.txt"
Arquivo criado:
789806013806001
eles são de duas tabelas diferentes que nao tem relacao alguma entres os dados, por isso a separacao.
Usei o sequinte comando para juntar os dois arquivos criados em um só novo arquivo:
Dim ret As Long
ret = Shell(Environ$("COMSPEC") & " /c copy c:\sancol\pdv1\t1linha.txt+c:\sancol\pdv1\t2linha.txt C:\sancol\pdv1\teste.txt", vbNormalFocus)
ele criar o arquivo normal conforme resultado abaixo:
0019130001000008009050932822
789806013806001
, o problema é que esse quadro aparece do nada e o programa que vai receber o arquivo dá erro de layout por causa desse quadradozinho. Como resolver pra sumir com esse quadradozinho?
No mais...
Obrigado
Emerson SAndro
Carregando comentários...
