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

2 participantes

    Erro Exportar com formatação

    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 428
    Registrado : 08/10/2012

    Erro Exportar com formatação Empty Erro Exportar com formatação

    Mensagem  Sidney 23/5/2019, 14:51

    Prezados bom dia!!!

    Estou tentando exportar uma consulta para Excel, porem, depois que esporta o arquivo e ao abrir, vejo que ele não fez as formatações  devidas, e apresenta um erro como mostra abaixo,
    Erro Exportar com formatação Erro11

    Estou usando este código, alguém poderia me dizer o porque deste erro,

    Código:
      strCaminho = CurrentProject.Path & "\QFAM_461_C13" & "_" & Format(Now, "ddmmyy") & ".xlsx"
      Dim xls As Object
      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QFAM_461", strCaminho, True
      Set xls = CreateObject("Excel.Application")
     
        xls.Workbooks.Open (strCaminho)
        xls.visible = True
     
        xls.Range("A1").Select
        xls.Range(Selection, Selection.End(xlToRight)).Select
        xls.Range(Selection, Selection.End(xlDown)).Select
        With xls.Selection.Font
            .Name = "Calibri"
            .Size = 10
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .TintAndShade = 0
            .ThemeFont = xlThemeFontMinor
        End With
        xls.Range("A1").Select
        xls.Range(Selection, Selection.End(xlToRight)).Select
        xls.Selection.Font.Bold = True
        xls.Selection.AutoFilter
        With xls.ActiveWindow
            .SplitColumn = 0
            .SplitRow = 1
        End With
        xls.ActiveWindow.FreezePanes = True
        xls.Columns("A:A").Select
        xls.Range(Selection, Selection.End(xlToRight)).Select
        xls.Columns("A:FO").EntireColumn.AutoFit
         
        xls.ActiveWorkbook.Save
        xls.Application.Quit
        Set xls = Nothing

    att; Sidney
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3743
    Registrado : 22/11/2016

    Erro Exportar com formatação Empty Re: Erro Exportar com formatação

    Mensagem  DamascenoJr. 6/5/2021, 01:43

    Sidney, algum avanço aqui?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/2/2023, 06:54