problema de acentuação quando exporta para excel no Acess 2007

[#Oduvaldo#]

Quando exporto meus arquivos para excel usando VB, eles saem sem nenhuma acentuação em portugues, vide abaixo os dois botões que uso, já quando exporto pelo comando do access de Dados Externos / Exportar, o resultado fica correto com acentuações.

Já consegui descobrir que rodando com o runtime 2010 o probelma se resolve, mas eu ainda não tenho o access 2010 na minha máquina.

Testei também em outra maquina com o access 2007 e funcionou corretamente, mas sou eu quem desenvolve e preciso acertar este problema na minha máquina.

--------------------------------------------------------------------------------

Private Sub Arquivo_CONVIDADOS_EVENTO_DblClick(Cancel As Integer)

PastaRelatorios = DLookup("Pasta_Relatorios", "Dados_do_Evento") ' nome da pasta onde irei guardar o arquivo

NomedoRSVP = Replace(DLookup("NomedoRSVPderelatorios", "Dados_do_Evento"), " ", "_")

DoEvents

DBEngine.Idle

nomedorelatorio = "Convidados Evento"

diames = "_" & Day(Now) & "_" & MonthName(Month(Now), True) & "_"

ArquivoSaida = PastaRelatorios & "\" & NomedoRSVP & diames & Replace(nomedorelatorio, " ", "_") & ".xls"

MsgBox "Arqquivo será gravado em: " & ArquivoSaida

On Error GoTo errogravacao

DoCmd.OutputTo acOutputTable, nomedorelatorio, acFormatXLS, ArquivoSaida

Exit Sub

errogravacao:

MsgBox "Não consegui gravar"

End Sub

--------------------------------------------------------------------------------

USANDO O TRANSFERSPREADSHEET

Private Sub ExportarXLS_DblClick(Cancel As Integer)

PastaRelatorios = DLookup("Pasta_Relatorios", "Dados_do_Evento") ' nome da pasta onde irei guardar o arquivo

NomedoRSVP = Replace(DLookup("NomedoRSVPderelatorios", "Dados_do_Evento"), " ", "_")

DoEvents

DBEngine.Idle

nomedorelatorio = "Lista_Geral_Convidados"

TableName = "Convidados Evento"

diames = "_" & Day(Now) & "_" & MonthName(Month(Now), True) & "_"

ArquivoSaida = PastaRelatorios & "\" & NomedoRSVP & diames & Replace(nomedorelatorio, " ", "_") & ".XLS"

MsgBox "Arqquivo será gravado em: " & ArquivoSaida

Import = 1 ' exportar arquivo XLS

SpreadSheetType = 8

HasFieldNames = True

DoCmd.TransferSpreadsheet Import, SpreadSheetType, TableName, ArquivoSaida, HasFieldNames

End Sub

[#Oduvaldo#]

Pessoal, parece que o problema esta na minha máquina, apos varios testes, descobri que se eu rodar este aplicativo usando o runtime 2010 nas maquinas que não têm Office a acentuação sai correta.

Outra coisa eu instalei o mesmo Office 2007 em outra maquina e não deu o mesmo problema.

Agora resta saber como descobrir o que esta errado em meu computador que causa esta perda de acentuação.

Acredito que seja alguma dll, mas qual ? Como restabelecer a situação normal?

Será que reinstalando o Office 2007 na minha máquina conseguirei resolver? ainda não testei isto.

[MrMALJ]

Agradeço o retorno de seu problema, esse provavelmente como você mesmo já mencionou deve ser um problema no sistema.