[Resolvido] Extrair conteúdo OleObject para uma Pasta (através de VBA)

Olá a todos,

Já pesquisei e pouco ou nada encontrei a não ser isto:

officeaccelerators.wordpress.com/2014/11/23/extract-ole-objects-from-access-to-disk

Mas o que pretendo é simplesmente Exportar/ Copiar o ficheiro que se encontra no campo "a" do tipo "OLEObject", existente na "Tabela1", para uma determinada pasta.

Podem-me ajudar?

Obrigado

Boa noite.
Ao clicar com o batão direito do mouse, há a opção de copiar e poderá colar em qualquer lugar que quiser.

Isso já faz o que você pretende. Ou se quiser, pode detalhar melhor a sua necessidade...

Viva Marcelo,
Possivelmente não me expressei corretamente, o que pretendo fazer é via código.
Deixo o projeto atualizado em anexo e que estou a testar mas sem sucesso, baseado neste link:
sourcedaddy.com/ms-access/working-with-attachment-fields.html

Obrigado pela sua atenção

Necessidade já foi colocada algumas vezes neste fórum, uma pesquisa ajudaria você à encontrar tópicos com a solução. Exemplo:
https://www.maximoaccess.com/t17933-exportar-ou-extrair-imagens-de-campo-anexo
https://www.maximoaccess.com/t30307-resolvidoextrair-imagem-do-db-access-2010-para-uma-pasta

Viva Ivan
Basiei a minha pesquisa em "OLEObject" e não experimentei "Attachement" ou "Anexo".
Vou estudar os tópicos, se forem úteis dou este como "Resolvido" .
As minhas desculpas, valeu pela atenção.
Muito Obrigado

IvanJr, o campo dele não é anexo.

Bruno, com anexo realmente será mais fácil chegar no resultado pretendido.
Seria viável alterar o campo para anexo?

Verdade, Marcelo, falha minha.

Para o tipo OLE fica mais complexo pois para cada registro pode um tipo de arquivo diferente, o que aparentemente exigiria um processo diferente para "extração". Certo?

Olá Ivan e Marcelo
Obrigado pelo esforço e atenção.
Os tópicos facultados, referentes a campos "Attachenent" são úteis, mas pretendia trabalhar com o campos do tipo "OLEObject", pois estes permitem ser armazenados através de "Link'".
Muito Obrigado

Olá;

Para anexos, tem um exemplo aqui mesmo feito por mim;

Código:

http://www.maximoaccess.com/t33634-exportar-anexos-de-uma-tabela

Para OLE Objects, veja a ajuda e os exemplos do Lebans;

Código:

http://www.lebans.com/oletodisk.htm

Via a todos,

O exemplo do site lebans.com/oletodisk que o Sr, João Paulo facultou tem código que consigo adaptar.

Porém é como o Ivan disse:
"Para o tipo OLE fica mais complexo pois para cada registro pode um tipo de arquivo diferente, o que aparentemente exigiria um processo diferente para "extração"..."

Obrigado a todos pela atenção que me prestaram.

Cumprimentos

Bruno Gordino