MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  Sidney em 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

      Data/hora atual: 18/7/2019, 00:03