Assista ao Video Sobre Windev Le Excel Monta e mostra Tabela e Lista
---------------------------------------------------------------------------------------------------------------
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 Mostrar Tabela
// Excel Read and Show Table
// Lire et Excel Voir les tableaux
// Excel Leer y Mostrar tabla
//--------------------------------------
CAM_NoName1..Visible=False
_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
nUmero_linhas=xlsNbRow(_nome_arquivo_excel)
i is int = 3
// 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
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
TableAddLine(TABLE_excel,xlsData(_nome_arquivo_excel,i,1,Vrai), ...
xlsData(_nome_arquivo_excel,i,2,Vrai), ...
xlsData(_nome_arquivo_excel,i,3,Vrai), ...
xlsData(_nome_arquivo_excel,i,4,Vrai))
END
CAM_NoName1..Visible=True
----------------------------------------------------------------------------------------------------------------------
Nenhum comentário:
Postar um comentário