BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 25 05 2019.
DICA 2123.HOJE VOU MOSTRAR COMO LER EXCEL E COLOCAR NUMA TABELA.
DICAS 2123 - WINDEV WEBDEV MOBILE - EXCEL 9 - IMPORTAR TABELA
// BTN_PROCURA_EXCEL
sFile is string
// Opens the file picker
sFile = fSelect("", "", "Select a file...", "All the files (*.*)" + TAB + "*.*" + CR + "EXCEL" + TAB + "*.XLS", "*.*")
EDT_PROCURA_ARQUIVO_eXCEL=sFile
-------------------------
//btn_abrir_excel
TableDeleteAll(TABLE_EXCEL)
nABRE_EXCEL is int=xlsOpen(EDT_PROCURA_ARQUIVO_eXCEL)
IF nABRE_EXCEL<>-1 THEN
nNUMERO_LINHAS is int=xlsNbRow(nABRE_EXCEL)
nCONTADOR is int=0
FOR nCONTADOR=2 TO nNUMERO_LINHAS
POSICAO is int=TableAddLine(TABLE_EXCEL)
Message(nCONTADOR+"/"+nNUMERO_LINHAS)
TABLE_EXCEL[POSICAO].COL_01_A_CODE=xlsData(nABRE_EXCEL,nCONTADOR,1)
TABLE_EXCEL[POSICAO].COL_02_B=xlsData(nABRE_EXCEL,nCONTADOR,2)
TABLE_EXCEL[POSICAO].COL_03_C_OUVRAGE=xlsData(nABRE_EXCEL,nCONTADOR,3)
TABLE_EXCEL[POSICAO].COL_04_D_UNITE=xlsData(nABRE_EXCEL,nCONTADOR,4)
TABLE_EXCEL[POSICAO].COL_05_E_DURÉE=xlsData(nABRE_EXCEL,nCONTADOR,5)
TABLE_EXCEL[POSICAO].COL_06_F_DEB_MO=xlsData(nABRE_EXCEL,nCONTADOR,6)
TABLE_EXCEL[POSICAO].COL_07_G_DEB_FO=xlsData(nABRE_EXCEL,nCONTADOR,7)
TABLE_EXCEL[POSICAO].COL_08_H_PV_HT=xlsData(nABRE_EXCEL,nCONTADOR,8)
END
END
WinDev - Excel - 001/... Ler Planilha Excel e Gravar Arquivo
WinDev - Excel - 002/... Ler Tabela e Exportar Para Excel
WinDev - Excel - 003/... Criar Excel e Listar
GERAR UM ARQUIVO EXCEL - DICAS 1748 - PUBLICA - WINDEV EXCEL 004 -
INICIO - DICAS 1836- PUBLICA - WINDEV 23 -Spreadsheet_Excel 5
xlsNbRow PARTE 2 - DICAS 1946 - PRIVADA - WINDEV - EXCEL 7 -
xlsData PARTE 3 - DICAS 1947 - PRIVADA - WINDEV - EXCEL 8 -
DICAS 2123 WINDEV WEBDEV MOBILE EXCEL 9 IMPORTAR TABELA
DICAS 2218 WINDEV WEBDEV MOBILE 24 NOVIDADES 20 EXCEL 10 HEXPORTXLS
Nenhum comentário:
Postar um comentário