(resolvido)Exportar do DBGrid para o Excel

[Greed]

Boa Tarde Galera do ScriptBrasil

Alguém ai já exportou o conteúdo de um DBGrid para o excel e bloqueo o conteudo para ele não ser auterado?

Estou utilizando o seguinte código para exportar as informações para o excel

var linha, coluna : integer;
    var planilha : variant;
    var valorcampo : string;
    begin
    planilha:= CreateoleObject('Excel.Application');
    planilha.WorkBooks.add(1);
    planilha.caption := 'RELATÓRIO SIB';
    planilha.visible := true;
    DM.QEstoque.ApplyUpdates;
    DM.QEstoque.First;
    for linha := 0 to DM.QEstoque.RecordCount - 1 do
    begin
       for coluna := 1 to DM.QEstoque.FieldCount do
       begin
         valorcampo := DM.QEstoque.Fields[coluna - 1].AsString;
         planilha.cells[linha + 2,coluna] := valorCampo;
       end;
       DM.QEstoque.Next;
    end;
    for coluna := 1 to DM.QEstoque.FieldCount do
    begin
       valorcampo := DM.QEstoque.Fields[coluna - 1].DisplayLabel;
       planilha.cells[1,coluna] := valorcampo;
    end;
    planilha.columns.Autofit;

O meu problema é que preciso bloquear todas colunas e linhas para que elas não sejam alteradas.

O máximo que o usuario pode fazer é apagar alguma coluna que não seja interessante para a impressão, mas alterar algum dado não!

Alguém pode me ajudar?

Grato pela atenção

Editado Julho 26, 2008 por Greed

[Micheus]

O meu problema é que preciso bloquear todas colunas e linhas para que elas não sejam alteradas.

O máximo que o usuario pode fazer é apagar alguma coluna que não seja interessante para a impressão, mas alterar algum dado não!

Voce só poderá fazer, no seu programa, aquilo que consegue fazer no próprio Excel. Assim, ao proteger as células, não será possível alterar nada - inclusive apagar algumas colunas.

Na verdade, você até pode permitir que alguma(s) coluna(s)/linha(s)/área(s) seja(m) modificada(s), desde que as células desta tenham sua propriedade de travamento desmarcada (todas estão marcadas, por padrão).

Como já mencionei em outro tópico, tudo que você precisar saber sobre VBA do MSOffice, você encontrará nos arquivos de ajuda do Office (especificamente em C:\Arquivos de programas\Microsoft Office\Office\1046).

Mas, facilitando um pouco as coisas segue a informação:

- o método do objeto Sheet para bloquear a planilha chama-se Protect(<senha>) (Proteje);

- para referenciar uma coluna inteira, usa-se a propriedade Columns[<nº coluna>] (Colunas) do objeto Sheet;

- para referenciar uma linha inteira, usa-se a propriedade Rows[<nº linha>] (Linhas) do objeto Sheet;

- para referenciar/selecionar uma área, usa-se a propriedade Range (escala, faixa - de valores);

- o bloqueio é habilitado/desabilitado através da propriedade Locked (bloqueado);

Exemplos;

1) bloquear planilha ativa, mas deixar a coluna 1 (A) liberada para alteração:

...
MSExcel.ActiveSheet.Columns[1].Locked := False;
MSExcel.ActiveSheet.Protect('');
MSExcel.ActiveSheet.SaveAs('C:\Teste.xls');

2) bloquear planilha ativa, mas deixar a linha 5 liberada para alteração:

...
MSExcel.ActiveSheet.Rows[5].Locked := False;
MSExcel.ActiveSheet.Protect('');
MSExcel.ActiveSheet.SaveAs('C:\Teste.xls');

3) bloquear planilha ativa, mas deixar a seleção A1 a B4, liberada para alteração:

...
MSExcel.ActiveSheet.Range['A1:B4'].Locked := False;
MSExcel.ActiveSheet.Protect('');
MSExcel.ActiveSheet.SaveAs('C:\Teste.xls');

Deixar a senha nula (como nos exemplos), resulta em qualquer pessoa poder desbloquear a planilha.

O método Protect, aceita mais parâmetros - passar a senha é o mínimo que você precisará fazer. Veja mais detalhes no arquivo de ajuda.

Abraços

[Greed]

Obrigado micheus!

Agora me diz uma coisa.

eu terei de pagar licença para a microsoft ou só quem for utilizar o meu sistema que terá que comprar a licença do pacote microsoft?

obs: eu tenho o pacote offece 2003 original na maquina!

[Micheus]

Agora me diz uma coisa.

eu terei de pagar licença para a microsoft?

Greed, não que eu tenha conhecimento.

A princípio, voce está usando um recurso que deve estar disponível no computador do cliente. Se não houver office instalado, seu programa falhará!

Supondo que o recurso seja uma solicitação do cliente, acho que faz sentido que ele é quem se preocupe com a instalação de uma licença válida do Office. Agora, se você é quem está empurrando o recurso para o cara, e ele não estava ciente disto, acho melhor você falar a respeito com ele.

Abraços

Editado Julho 27, 2008 por Micheus

[Greed]

Valeu Micheus!

No caso o meu cliente quem me pediu para que fosse exportado para o excel, dai me surgiu essa dúvida.