[Resolvido]DoCmd - O objeto é obrigatório - erro 424

Olá, fiz pequeno teste com Access2010.
Descompacte para uma pasta e teste.
Abraço

Teixeira,
obrigado pelo empenho.

Mas tenho restrições para baixar a partir do seu link (coisas de segurança).

Seria muito pedir pra vc anexar no skype? (manecosto).

Obrigado

Olá, o exemplo é simples.
Apenas para despistar, não informou a sua versão do SO e Access.
Estou no telemóvel, se poder ser por email, mande o seu email por mensagem privada.
A menos que algum colega aqui do fórum tenha a amabilidade de baixar o exemplo e enviar para você por Skype.
Abraço

Olá, acabei de enviar via skype.
Não costumo usar e desconhecia a funcionalidade de enviar ficheiros.
Sempre aprender.
Abraço

Um pitaco;

Atenção que o erro 424 é porque não encontra o caminho do ficheiro.

Reveja com calma o caminho "C:\Users\manoel.jose\Documents\VBA\segregacao.xlsx"

Opa,

ainda não recebi.

Enviou pro login correto? (manecosto)

Olá, sim foi para esse nick.
Veja se consegue baixar aqui.
Abraço

Para executar TransferSpreadsheet depende de onde o VBA foi inicializado :

1 - VBA a partir do DBACCESS :

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tableName", "C:\...\arq.xlsx", True

'Obs.: aqui você já está conectado no db "C:\....\DbName.accdb" por isso nenhuma referência é feita ao db

2 - VBA a partir do Excel:

Dim appAccess As Access.Application 'referência à "Microsoft Access 15.0 Object Library"

Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "C:\....\DbName.accdb", False ' Aqui vc precisa fazer a conexão com o db

appAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tableName", "C:\...\arq.xlsx", True
appAccess.CloseCurrentDatabase

Olá Manoel, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço