[Resolvido]Transferir Tabela para Folha Excel

Boas..

Deparei-me com um problema para transferir tabela do access para uma folha de excel.

O código que estou a usar é o seguinte ...

'######
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = False
strPath = "E:" ' drive onde se situa o seu documento excel
strTable = "Alarmes" 'nome da tabela no seu banco
strFile = Dir(strPath & "AlarmesDSDAT1.xls")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acExport, 8, _ strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop

'######

Alguém sabe onde está incorrecto?

Obrigado ajuda

Cumprs

Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = False
strPath = "E:" ' drive onde se situa o seu documento excel
strTable = "Alarmes" 'nome da tabela no seu banco
strFile = Dir(strPath & "AlarmesDSDAT1.xls")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acExport, 8, strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop


strTable não leva o anderscore.

E o AlarmesDSDAT1.xls já tem de existir em E:\AlarmesDSDAT1.xls

Obrigado pela ajuda ... acabei usando a função


DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Alarmes", "E:\Alarmes" & Format(Date, "DDMMYYYY") & ".xls", True


de qualquer dos modos muito obrigado

Obrigado pelo retorno o forum agradece.

Frase do Rei WSenna:
(Existem mil maneiras de fazer nestum).