Como excluir uma coluna do Excel

[Adson]

Boa tarde,

Alguém tem um exemplo de como excluir uma (ou várias) colunas no Excel?

Eu estou usando dessa forma:

Código: Selecionar todos

    // Exclui colunas desnecessárias conforme o modelo escolhido pelo usuário
    If vTpRelat     = 2  && Detalhado por Fabricante
      oSheet:Columns(03):Delete()  && Ao invés de excluir as colunas 3 e 4, está excluindo
      oSheet:Columns(04):Delete()  && as colunas 3 e 5
    ElseIf vTpRelat = 3  && Detalhado por Seção
      oSheet:Columns(05):Delete()
      oSheet:Columns(06):Delete()
    ElseIf vTpRelat = 4  && Resumido por Fabricante
      oSheet:Columns(01):Delete()
      oSheet:Columns(02):Delete()
      oSheet:Columns(05):Delete()
      oSheet:Columns(06):Delete()
    ElseIf vTpRelat = 5  && Detalhado por Seção
      oSheet:Columns(01):Delete()
      oSheet:Columns(02):Delete()
      oSheet:Columns(03):Delete()
      oSheet:Columns(04):Delete()
    EndIf

O que pode estar errado? Já pesquisei na documentação da Microsoft, mas não encontrei nada que apontasse o erro.

Obs: A planilha é gerada por uma rotina genérica, mas que ao final, eu excluo algumas colunas que não interessam ao usuário conforme o modelo que ele escolheu.

xHarbour 1.2.3 / HWGui

[Vlademiro]

Olá,

Sempre que eu tinha dúvidas no Excel eu criava uma macro e depois ia olhar o que ele gerou... Vc fez isso ?

[Toledo]

O que pode estar errado? Já pesquisei na documentação da Microsoft, mas não encontrei nada que apontasse o erro.

Eu acho que quando você exclui a coluna 3, então a coluna 4 fica sendo a coluna 3 e a coluna 5 fica sendo a coluna 4. Então faz um teste excluindo duas vezes a coluna 3.

Abraços,

[Adson]

É exatamente isso !!!!

A solução é bastante simples:

Código: Selecionar todos

    // Exclui colunas desnecessárias conforme o modelo escolhido pelo usuário
    If vTpRelat     = 2  && Detalhado por Fabricante
      oSheet:Range("C:D"):Delete()
    ElseIf vTpRelat = 3  && Detalhado por Seção
      oSheet:Range("E:F"):Delete()
    ElseIf vTpRelat = 4  && Resumido por Fabricante
      oSheet:Range("A:B,E:F"):Delete()
    ElseIf vTpRelat = 5  && Resumido por Seção
      oSheet:Range("A:D"):Delete()
    EndIf

Obrigado.

[Adson]

Olá,

Sempre que eu tinha dúvidas no Excel eu criava uma macro e depois ia olhar o que ele gerou... Vc fez isso ?

Sua dica de gravar uma macro no excel, de fato é muito boa. Obrigado.

Código: Selecionar todos

Sub Exclui_Coluna()
'
' Exclui_Coluna Macro
'

'
    Range("A:B,D:F").Select
    Range("H2").Activate
    Selection.Delete Shift:=xlToLeft
End Sub

Eu só não consegui usar mais de uma sequência de colunas com o método Range(), dessa forma Range("A:B,D:F") , deu erro na execução. Nesse caso, eu precisei executar o Range() para cada sequência de colunas a excluir, pois, parece que o Range() não trabalha com mais de um parâmetro.

Código: Selecionar todos

    If vTpRelat     = 2  && Detalhado por Fabricante
      oSheet:Range("C:D"):Delete()
    ElseIf vTpRelat = 3  && Detalhado por Seção
      oSheet:Range("E:F"):Delete()
    ElseIf vTpRelat = 4  && Resumido por Fabricante
      oSheet:Range("A:B"):Delete()   && Seguindo o conselho do Toledo pois após excluir uma coluna,
      oSheet:Range("C:D"):Delete()   && o Excel faz uma reclassificação das colunas 
    ElseIf vTpRelat = 5  && Resumido por Seção
      oSheet:Range("A:D"):Delete()
    EndIf