Acessando configurações do Excel via VB6

Question

Gerei mais de 200 planilhas excel (carregando via VB6) e esqueci de configurar "titulos a repetir na parte superior" na planilha modelo. Agora para evitar que eu tenha que entrar em cada uma delas para fazer a configuração pergunto:

Existe alguma possibilidade de configurar utilizando o Visual Basic 6?

Desde já agradeço a quem puder ajudar.

 

Answer 1

É possível. Faça algo como:

Sub Main()
    Dim xlApp As Object 'Excel.Application
    Dim wb As Object 'Excel.Workbook
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    Set wb = xlApp.Workbooks.Open("c:\...\arquivo.xlsx")
    
    'Congela linhas 1 até 4 da planilha Plan1
    wb.Worksheets("Plan1").PageSetup.PrintTitleRows = "$1:$4"
    wb.Close True
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Funcionou. Muitíssimo obrigado Felipe.

Você me economizou muito braço não precisando fazer isto manualmente.

Grato.

Marco Aurélio Marques