Exemplo básico de leitura de um arquivo XLS, criando uma Queue
SETCURSOR(CURSOR:Wait)
?Excel{PROP:Create} = 'Excel.VBAModule'
?Excel{PROP:DoVerb} = -2
?Excel{'Application.Application.Visible'} = FALSE
?Excel{'Application.Workbooks.Open("'& NomeArquivoPlanilha &'")'}
?Excel{'Application.Sheets.Item('& QualPlanilha &').Select'}
DISPLAY
?Excel{'Application.Range("A1").Select'} !Selecionar a Celula A1
?Excel{'Application.Selection.SpecialCells(11).Select'} !Selecionar a ultima linha da planilha
end# = ?Excel{'Application.Selection.Row'} !Pegar o numero da ultima linha da planilha
?Excel{'Application.Range("A1").Select'}
FREE(QFilial)
?Excel{'Application.Range("A1").Select'} !Verifica se é para ler a legenda
IF CLIP(?Excel{'Application.ActiveCell.Value'}) = 'LEGENDA'
?Excel{'Application.Range("A2").Select'}
IF CLIP(?Excel{'Application.ActiveCell.Value'}) = 'Filial'
LOOP IX# = 3 TO end# !Iniciar na linha 3 até a ultima linha
?Excel{'Application.Range("A' & IX# & '").Select'}
IF NOT CLIP(?Excel{'Application.ActiveCell.Value'}) > 0 THEN BREAK. !Verificando se a celula está sem valor,
QF:CodFilial = CLIP(?Excel{'Application.ActiveCell.Value'}) !Pegar o valor da celular selecionada
QF:Cor = ?Excel{'Application.Selection.Interior.ColorIndex'} !Pegar a cor da celular selecionada
ADD(QCoresFilial)
END
END
END
Exemplo básico de leitura de um arquivo XLS, criando uma Queue
SETCURSOR(CURSOR:Wait)
?Excel{PROP:Create} = 'Excel.VBAModule'
?Excel{PROP:DoVerb} = -2
?Excel{'Application.Application.Visible'} = FALSE
?Excel{'Application.Workbooks.Open("'& NomeArquivoPlanilha &'")'}
?Excel{'Application.Sheets.Item('& QualPlanilha &').Select'}
DISPLAY
?Excel{'Application.Range("A1").Select'} !Selecionar a Celula A1
?Excel{'Application.Selection.SpecialCells(11).Select'} !Selecionar a ultima linha da planilha
end# = ?Excel{'Application.Selection.Row'} !Pegar o numero da ultima linha da planilha
?Excel{'Application.Range("A1").Select'}
FREE(QFilial)
?Excel{'Application.Range("A1").Select'} !Verifica se é para ler a legenda
IF CLIP(?Excel{'Application.ActiveCell.Value'}) = 'LEGENDA'
?Excel{'Application.Range("A2").Select'}
IF CLIP(?Excel{'Application.ActiveCell.Value'}) = 'Filial'
LOOP IX# = 3 TO end# !Iniciar na linha 3 até a ultima linha
?Excel{'Application.Range("A' & IX# & '").Select'}
IF NOT CLIP(?Excel{'Application.ActiveCell.Value'}) > 0 THEN BREAK. !Verificando se a celula está sem valor,
QF:CodFilial = CLIP(?Excel{'Application.ActiveCell.Value'}) !Pegar o valor da celular selecionada
QF:Cor = ?Excel{'Application.Selection.Interior.ColorIndex'} !Pegar a cor da celular selecionada
ADD(QCoresFilial)
END
END
END
Nenhum comentário:
Postar um comentário