[RESOLVIDO] Comentario em Excel

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Outubro 4, 2010.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    ALguem saberia me informar como faço para incluir comentários nas celulas do excel, atraves do progress??
    Rogerio, Outubro 4, 2010
    #1
  2. AlexRJS

    AlexRJS Sem Pontuação

    Bom dia, segue abaixo um exemplo de criação de arquivo excel, e, também inserir o comentário na célula:

    Espero que ajude.



    DEF VAR ch-excel AS COM-HANDLE NO-UNDO.
    DEF VAR i-linha AS i.

    CREATE "Excel.Application" ch-excel.

    file-info:file-name = "c:\temp\teste.xls".
    ch-excel:workbooks:add(file-info:full-pathname).
    ch-excel:sheets:item(1).

    ch-excel:VISIBLE = FALSE.

    ch-excel:Sheets("teste1"):Select.

    ASSIGN i-linha = 2.
    ch-excel:ActiveSheet:range("a" + STRING(i-linha)):VALUE = "codigo 1".

    ch-excel:ActiveSheet:range("b" + STRING(i-linha)):VALUE = "descricao 1".

    ch-excel:ActiveSheet:range("b" + STRING(i-linha)):AddComment ("abc:" + Chr(10) + "Esta célula está com valor errado no mês 10/06 - Marcos" + Chr(10) + "ok").

    ch-excel:ActiveSheet:range("b" + STRING(i-linha)):Comment:Visible = FALSE.
    ASSIGN i-linha = 3.
    ch-excel:ActiveSheet:range("a" + STRING(i-linha)):VALUE = "codigo 2".
    ch-excel:ActiveSheet:range("b" + STRING(i-linha)):VALUE = "descricao 2".

    ASSIGN i-linha = 4.
    ch-excel:ActiveSheet:range("a" + STRING(i-linha)):VALUE = "codigo 3".
    ch-excel:ActiveSheet:range("b" + STRING(i-linha)):VALUE = "descricao 3".

    ch-excel:DisplayAlerts = TRUE.
    ch-excel:VISIBLE = TRUE.

    /* ch-excel:ActiveWindow:CLOSE. */
    /* ch-excel:workbooks:APPLICATION:QUIT. */

    RELEASE OBJECT ch-excel.
    AlexRJS, Outubro 6, 2010
    #2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página