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

    Erro Exportar com formatação

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    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 : 2816
    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: 14/6/2021, 07:37