sábado, 25 de maio de 2019

DICAS 2123 WINDEV WEBDEV MOBILE EXCEL 9 IMPORTAR TABELA


















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















Teste

Teste
teste