MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Mesclar celular do excel direto do Access

    avatar
    Homertinho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 02/06/2023

    Mesclar celular do excel direto do Access Empty Mesclar celular do excel direto do Access

    Mensagem  Homertinho 6/12/2023, 16:04

    Pessoal

    Boa Tarde!

    Peguei um código aonde gero excel direto do access e estou tentando formatar direto do access. porém parei numa parte aonde consigo mesclar as celulas mais está dando erro de código " objSheet.Range("A1:k3").Merge = False"

    Código =  objSheet.Range("A1:k3").Merge = False" - Msg "Objeto não aceito está propriedade ou método", alguém pode me ajudar? segue o código

    Dim xlApp As Object
    Dim wkb As Object
    Dim objSheet As Object
    Dim strLocalArquivo$
    'Informa o caminho e nome para a nova planilha excel

    strLocalArquivo = "C:\Users\roberto.moreira\Desktop\Reversão\" & "Ctas a Receber" & ".xls"

    'Abre o relatório oculto
    DoCmd.OpenReport "Rel_Excel", acViewPreview, , , acHidden
    'Gera a planilha do relatório, através do comando OutputTo.
    DoCmd.OutputTo acOutputReport, "Rel_Excel", acFormatXLS, strLocalArquivo
    'Fecha o relatório que está oculto
    DoCmd.Close acReport, "Rel_Excel"
    'Abre o Excel
    Set xlApp = CreateObject("excel.application")
    'Torna o aplicativo excel visível
    xlApp.Application.Visible = True
    'Abre o arquivo PlanilhaTeste.xls
    Set wkb = xlApp.workbooks.Open("C:\Users\roberto.moreira\Desktop\Reversão\" & "Ctas a Receber" & ".xls")
    Set objSheet = xlApp.Activeworkbook.sheets(1)
    objSheet.Activate
    'Insere uma linha na primeira posição

    objSheet.Rows("1:4").insert


    objSheet.Cells(1, 1).Value = "REVERSÃO"


    '-------------------------------------------------------------------
    'Mudar a cor da Celula
    With objSheet.Range("A5:K5").Interior
    .ColorIndex = 15
           End With


    With objSheet.Range("L5:Q5").Interior
    .ColorIndex = 6
           End With

    With objSheet.Range("R5:Y5").Interior
    .ColorIndex = 23
           End With
           
    '-------------------------------------------------------

    'Mudar o tamanho da Linha
           
    objSheet.Rows("4").RowHeight = 2.25

     objSheet.Rows("5:1000").RowHeight = 15.25

    '---------------------------------------------------------
    ' Mesclar Celulas
    'objSheet.Range("A2:B2").Merge

    With objSheet.Range("A1:k3").Merge

    objSheet.Range("A1:k3").Merge

    End With


    objSheet.Range("A1:k3").Merge = False



    'Ajusta o tamanho das colunas
    objSheet.Columns.autofit
    'Salva a planilha
    wkb.Save
    'Fecha tudo
    wkb.Close
    Set objSheet = Nothing
    Set wkb = Nothing
    xlApp.Quit
    Set xlApp = Nothing

     

    End Sub

      Data/hora atual: 23/5/2024, 01:33