Exemplo Basico de leitura de arquivo xml Clarion - Matos Informatica 25 09 09

http://f1.grp.yahoofs.com/v1/YD29SoTbKhf3kdRL-Sm8nSpF17XBFoEhHzKgN2m2cC-G05Dd80gS2q3ZlIY_Ilks98V-CdR7BERGXumFeGNuYDslnABk/ExemploLeituraArquivoExcel.txt

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