Excel para Txt

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Excel para Txt

Mensagempor jmarcelosp » Qua Jun 13, 2018 8:26 am

Olá pessoal tenho um arquivo que preciso passar do excel para txt com campos no tamanho especifico e uma padrão pré determinado ? Como posso fazer uma macro ou formula que leia as informações, transforme para o layout e gere o txt ?
inclusive eu encontrei uma orientação para fazer isto, não entendi como realizar isto abaixo que destaquei em negrito.

"1º) Crie uma nova planilha que servirá de apoio para definirmos a quantidade desejada de caracteres em cada uma das colunas. Na planilha, mantenha o cabeçalho do banco de dados na mesma ordem do banco de dados e digite a quantidade de caracteres máxima que cada coluna pode receber. Na pergunta o usuário disse que a coluna C tem que ocupar a posição 32 a 45, portanto o seu tamanho máximo será 14 (32 33 34 35 36 37 38 39 40 41 42 43 44 45 =14 caracteres). Faça esse cálculo para cada uma das 8 colunas conforme o posicionamento desejado para cada uma.
) Crie nesta planilha de apoio uma outra tabela que servirá de apoio para completarmos com espaço (" ") os campos que não tiverem a quantidade máxima de caracteres definida para ele. Assim essa tabela de espaçamento deverá ter a quantidade de linhas de no mínimo o maior valor de caracteres possível num campo do banco de dados. No nosso exemplo, o maior campo é o de "Nome" que contem 22 caracteres no máximo. A primeira coluna desta tabela deverá indicar quantos espaços tem na célula a sua direita. Para digitar os espaços na tabela não é necessário ficar contando quantas vezes você tecla a barra de espaço, basta concatenar um espaço com a célula superior. Oberseve a imagem:"


Fonte:
https://social.technet.microsoft.com/wi ... excel.aspx



Grato
Segue exemplo e layout em txt
jmarcelosp
Membro
Membro
 
Mensagens: 4
Registrado em: Qua Jun 13, 2018 8:05 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Excel para Txt

Mensagempor jmarcelosp » Qua Jun 13, 2018 8:28 am

Galera,acho que meu exemplo não subiu.
jmarcelosp
Membro
Membro
 
Mensagens: 4
Registrado em: Qua Jun 13, 2018 8:05 am
Has thanked: 0 time
Have thanks: 0 time

Re: Excel para Txt

Mensagempor wagner » Qua Jun 13, 2018 11:05 am

jmarcelosp ,

Bom dia!

É possível anexar seu arquivo aqui mesmo no fórum? Faça um pequeno exemplo do seu arquivo original (com apenas 5 linhas), compacte o arquivo com .ZIP e anexe o mesmo aqui.

Aproveite e explique melhor a sua necessidade pois, no meu caso, por exemplo, confesso que não entendi o que você quer.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4125
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 69 times
Have thanks: 1790 times

Re: Excel para Txt

Mensagempor jmarcelosp » Qua Jun 13, 2018 11:46 am

Possuo um grupo de informações que preciso passar para txt, onde importarei para um programa que não importar direto do excel, mas, para isso preciso respeitar o padrão do layout do excel, no exemplo coloco a versão em excel ou na aba do lado o layout do programa dizendo como cada coluna deve ser, como ficou grande, tive de colocar o layout abaixo:

Grato

eiaute de Importaçã o
Arquivo Texto


Modelo: Inventário
Posições
Descrição do Campo Observações
Inicial Tamanho (Codificação de Texto Padrão ASCII)
Data do Inventário 1 8 Formato: DDMMAAAA
Mês/Ano inicial de referência 9 4 Formato: MMAA
Mês/Ano final de referência 13 4 Formato: MMAA
Código do Produto da Empresa 17 20 Alfanumérico
Situação do produto 37 1 1=Da empresa em seu poder
2=Da empresa com Terceiros
3=De Terceiros c/ a Empresa
4=Estoque próprio em Trânsito
5=Estoque próprio inaproveitável
CNPJ do Terceiro 38 14 Se campo acima = 1, 4 e 5 move zeros, senão move CNPJ (sem máscara, só
números)
Inscrição Estadual do Terceiro 52 20 Se CNPJ for preenchido este também deve ser
UF do Terceiro 72 2 Se Insc. Est. estiver preenchida este também deve ser
Filler 74 5 Brancos
Quantidade 79 16 #########.######
Valor Unitário 95 17 ############.####
Valor Total 112 17 ##############.##
ICMS a Recuperar 129 17 ##############.##
Observação 146 60 Alfanumérico
Descrição do Produto 206 80 Alfanumérico
Grupo de Produto 286 4 Numérico
Classificação Fiscal (NCM) 290 10 Numérico. Apenas o código NCM sem zeros para preencher posições restantes.
RESERVADO 300 30 Antigo 'Nome Fantasia' - Não Utilizado
Unidade de Medida 330 3 Alfanumérico
Descrição Grupo Produto 333 30 AlfaNumérico
Unidade de Medida 363 6 Alfanumérico
Caso esta posição esteja vazia, será importado da posição 330 x 003
Valor do Item para Imposto de Renda 369 17 ##############.##
Motivo do Inventario 386 2 00=Não informado ( Valor padrão)
Valores de 01 a 05 são exclusivos para a geração do registro H005 - Totais do
Inventário do SPED Fiscal:
01=No final do período
02=Na mudança de forma de tributação da mercadoria (ICMS)
03=Na solicitação da baixa cadastral, paralisação temporária e outras situações
04=Na alteração de regime de pagamento - condição do contribuinte
05=Por determinação dos fiscos
Você não está autorizado a ver ou baixar esse anexo.
jmarcelosp
Membro
Membro
 
Mensagens: 4
Registrado em: Qua Jun 13, 2018 8:05 am
Has thanked: 0 time
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot], xlarruda e 4 visitantes