Bom dia,
Estou a tentar exportar tabela/consulta para Excel utilizando seguinte Código.
Private Sub expinforvistaxls_Click()
On Error GoTo 1
DoCmd.OutputTo acQuery, "Inforvista com processo", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0
MsgBox "Tabela para Inforvista Exportada com Sucesso!", vbOKOnly, "INFORVISTA"
1:
If Err.Number = -1 Then
Exit Sub
End If
Tudo Corre OK:
- O documento é exportado
- Pede para eu guardar numa localização a definir
- aparece a mensagem de sucesso
- etc
No entanto a base de dados tem registos acentuados (~, ^, etc ) ou com Ç.
Como é que eu Faço para que apareça normal.
Obrigado
Estou a tentar exportar tabela/consulta para Excel utilizando seguinte Código.
Private Sub expinforvistaxls_Click()
On Error GoTo 1
DoCmd.OutputTo acQuery, "Inforvista com processo", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0
MsgBox "Tabela para Inforvista Exportada com Sucesso!", vbOKOnly, "INFORVISTA"
1:
If Err.Number = -1 Then
Exit Sub
End If
Tudo Corre OK:
- O documento é exportado
- Pede para eu guardar numa localização a definir
- aparece a mensagem de sucesso
- etc
No entanto a base de dados tem registos acentuados (~, ^, etc ) ou com Ç.
Como é que eu Faço para que apareça normal.
Obrigado