Seguramente esto te lo solucione:
Código:
DBLink.Execute sSQL_Ini & " into " & sTmpTbl & " " & sSQL_Fin, i, adCmdText
DoEvents
access.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, sTmpTbl, sArchivo
DoEvents
DBLink.Execute "DROP TABLE " & sTmpTbl, , adCmdText