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