Trocar a Font (Letra) padrao do access.

Question

Boa tarde,

criei uma aplicação que exporta consultas do acess para o excel, e esta ocorrendo o seguinte problema:
    * a exportação ocorre tudo certo mas a fonte aparece no excel com uns caracteres estranhos nas letras com acento e ç, verifiquei que é porque a fonte da consulta é  SEGOE UI e a que ele leva pra o Excel é calibri, veja os comandos que faço para exportar.


    Dim stDocName As String
    Dim stCaminho As String
   
    'Escolhe onde os arquivos vão ser salvos
    CommonDialog1.DialogTitle = "Diretório de Destino"
    CommonDialog1.Flags = cdlOFNFileMustExist
    CommonDialog1.Filter = "*.xls"
    CommonDialog1.ShowSave
   
    'cria as variaves com a consulta que deve ser exportada e o caminho onde deve ser salvo
    stDocName = Lista3.Value
    stCaminho = CommonDialog1.FileName + ".xls"
    
   
    'comando que exporta para excel
     DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, stCaminho, True

gostaria de configurar as fontes antes de fazer a exportação e depois voltar para o que estava, exemplo

Set font to "ARIAL"

comandos que exporta

Set font to "fonte que estava antes de eu mudar para arial"

tem como fazer isso?


ATT,
Samir

Answer 1

Você conseguiu resolver esse problema?

Estou com o mesmo problema. Quando exporto um relatório do access para o excel via OutputTo (VBA) ele sai com esses mesmo caracteres estranhos!!


Sds,

Answer 2

O caminho para resolver é abrir o arquivo do Excel (por meio de automação VBA) e mudar a fonte:

Sub ChangeFontXL()
Dim xlWkb As Object
Dim xlWks As Object
Dim xlRng As Object
Dim strPath As String

strPath = "C:\Users\luiz.rocha\Desktop\Book1.xlsx"
Set xlWkb = GetObject(strPath)
Set xlWks = xlWkb.Worksheets(1)
Set xlRng = xlWks.UsedRange
xlRng.Font.Name = "Times New Roman"
End Sub

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br