Assista ao Video Sobre Windev Excel Ler e Exportar Para Txt
Excel - ler Excel e Grava Tabela e Lista
Excel - Ler e Exportar Para Txt
Excel - Excel e Array
Excel - Ler Tabela e Coloca Excel
Excel - Como Criar Planilha 3 Minutos - Windev 20
----------------------------------------------------------------------------------------------------------------
//--------------------------------------//
//Excel Ler e Exportar Para Txt //
//Read and Excel Export To Txt //
//Lire et Excel exportation de txt //
//Lea y Excel Exportar a Txt //
//--------------------------------------//
CAM_NoName1..Visible=False
// monta_arquivo
// riding file
// fichier d'équitation
// archivo de equitación
_monta_arquivo is string = ""
// _nome_arquivo_excel // nUmero_linhas
// _name_excel_file // number lines
// _Nom_fichier_excel // droites numériques
// _Nombre_del_archivo de Excel // líneas de números
_nome_arquivo_excel is int
// nUmero_linhas
// number lines
// Nombre de lignes
// Las rectas numéricas
nUmero_linhas is int
_nome_arquivo_excel = xlsOpen("D:\amarildo\MAURICIO_PEREIRA\Lista Clientes.xls")
// Aqui estou abrindo o Arquivo Excel
// Here I am opening Excel File
// Ici, je suis l'ouverture du fichier Excel
// Aquí estoy abriendo Archivo Excel
IF _nome_arquivo_excel=-1 THEN
// Se o Arquivo excel for -1 é porque o arquivo nao foi encontrado
// If the excel file is -1 is because the file was not found
// Si le fichier Excel est -1 est parce que le fichier n'a pas été trouvé
// Si el archivo de Excel es -1 se debe a que no se encontró el archivo
Error(ErrorInfo())
ELSE
nUmero_linhas=xlsNbRow(_nome_arquivo_excel)
// Aqui eu verifico quantas linhas existe na planilha excel
// Here I check how many rows exist in excel spreadsheet
// Ici, je vérifie le nombre de lignes existent dans excel
// Aquí puedo comprobar cuántas filas existen en hoja de cálculo Excel
END
i is int = 0
FOR i = 3 TO nUmero_linhas
// comeco a ler o excel na linha 3 onde eu encontro informacoes e vou ate o numero final de linhas
// beginning to read excel in line 3 where I find informations and I will until the end number
// of lines
// commençant à lire exceller à la ligne 3 où je trouve des informations et je vais jusqu'à
// ce que le numéro de fin de lignes
// empezando a leer excel en la línea 3 donde encuentro informaciones y lo haré hasta que el
// número final de las líneas
_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,3)
_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,4)
_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,1)
_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,2)
// _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,3),10)
// _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,4),60)
// _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,1),80)
// _monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,2),300)
_monta_arquivo+=["|"]
_monta_arquivo+=CR
END
CAM_NoName1..Visible=True
_monta_arquivo+=["|FIM"]
_monta_arquivo+=CR
fSaveText("D:\amarildo\MAURICIO_PEREIRA\clientes.txt",_monta_arquivo)
// Aqui estou salvando o Arquivo Texto Gerado
// Here I am saving the file generated text
// Ici, je suis d'enregistrer le fichier texte généré
// Aquí estoy ahorrando el texto del archivo generado
Info("Pronto Arquivo"+CR+"ready archive"+CR+"Archive prêt"+CR+"Listo Archivo")
//-------------------------------------------------------------------------------------------
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,3),10)
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,4),50)
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,1),80)
//_monta_arquivo+=["|"]+Complete(xlsData(_nome_arquivo_excel,i,2),300)
//_monta_arquivo+=["|"]
// Usando o Complete, ele vai deixar as colunas fixas
// Using complete, it will leave the fixed columns
// Utilisation complète, il laissera les colonnes fixes
// Utilizando completa, dejará las columnas fijas
//|90.200-290|(51)3086.6300 |Aborgama do Brasil Ltda. |Av.Indústrias,825-B.São João- POASimone compras@aborgamadobrasil.com.br |
//|90.050-240|(51)3211.4530 |Acel Ar Condicionado Ecológico Ltda. |Av.Loureiro da Silva,2001/407-Cidade Baixa-POAacel-rs@terra.com.br |
//|90.550-002|(51)3312.5533 |ACP Impressão Digital Ltda.ME |Av.Benjamin Constant,1460-B.São João-POA graficauniverso@terra.com.br |
//|93.490-315|51 35962309 8416.5120 |AD Indústria e Comércio de Embalagens Ltda. |Rua dos Carteiros,121-Lomba Grande- NH adembalagens@bol.com.br |
//|91.130-430|(51)3365-0050 |A4 Gráfica e Editora Ltda.
//-------------------------------------------------------------------------------------------
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,3)
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,4)
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,1)
//_monta_arquivo+=["|"]+xlsData(_nome_arquivo_excel,i,2)
//_monta_arquivo+=["|"]
// Ele gerou mas sem colunas fixas, somente com separador
// He generated without fixed columns, only with WIN_TABELA
// Il généré sans colonnes fixes, uniquement avec onglet
// Generó sin columnas fijas, sólo con pestaña
//|90.200-290|(51)3086.6300|Aborgama do Brasil Ltda.|Av.Indústrias,825-B.São João- POASimone compras@aborgamadobrasil.com.br|
//|90.050-240|(51)3211.4530|Acel Ar Condicionado Ecológico Ltda.|Av.Loureiro da Silva,2001/407-Cidade Baixa-POAacel-rs@terra.com.br|
//|90.550-002|(51)3312.5533|ACP Impressão Digital Ltda.ME|Av.Benjamin Constant,1460-B.São João-POA graficauniverso@terra.com.br|
//|93.490-315|51 35962309 8416.5120|AD Indústria e Comércio de Embalagens Ltda.|Rua dos Carteiros,121-Lomba Grande- NH adembalagens@bol.com.br|
//-------------------------------------------------------------------------------------------
//RAZAO_SOCIAL // REASON SOCIAL// RAISON SOCIALE // RAZÓN SOCIAL
//ENDERECO // address // adresse // dirección
//CEP // zip code // code postal // código postal
//TELEFONE // PHONE // TÉLÉPHONE // TELÉFONO
//CNPJ //
Nenhum comentário:
Postar um comentário