none
Acessando configurações do Excel via VB6 RRS feed

  • Pergunta

  • 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.

     
    quarta-feira, 18 de fevereiro de 2015 01:00

Respostas

  • É 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

    quarta-feira, 18 de fevereiro de 2015 22:03
    Moderador

Todas as Respostas

  • É 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

    quarta-feira, 18 de fevereiro de 2015 22:03
    Moderador
  • Funcionou. Muitíssimo obrigado Felipe.

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

    Grato.

    Marco Aurélio Marques

    quarta-feira, 18 de fevereiro de 2015 23:01