Um dia era pra mostrar coisas sobre o excel, hoje é para compartilhar meus poucos conhecimentos, com os interessados!

domingo, 29 de julho de 2018

VBA - Excel 2003 - Exemplo de manipulação de Objeto OLE



Manipulando objeto OLE dentro de uma planilha!

Curta a minha pagina, para novidades! Qbexcel

No Excel podemos vincular um objeto OLE, indiferente se ele vai ser executado por associação ou utilizado de outra forma.

Procedimento:

Crie uma planilha, e insira um objeto.




Menu inserir - Objeto







Como resposta na tela, algo semelhante a esta imagem.



Selecione e nomeio arquivo com o nome teste.




A inclusão do Objeto OLE foi realizada.


No VBA

Crie uma macro onde preferir, neste caso eu fiz um botão pra exemplo

__________________________________________________________

Sub Botão2_Clique()
On Error Resume Next 'Apenas para não travar caso algum comando gere rotina invalida.
    Dim pacotes As OLEObject
    Dim OBJ
    Dim I 'dim declara variavel
'For Each OBJ In Worksheets("PLAN2").OLEObjects 'Esta parte da rotina, faz busca de todos os objetos OLE embedded que a planilha possua. caso voce venha precisar de mais de um novo especifico, neste exemplo não usaremos este recurso mas se precisarem estará ai a disposição.
    Set pacotes = Worksheets("PLAN2").OLEObjects("teste") 'Aqui coloco na variavel o objeto OLE que procuro extrair.
    pacotes.Copy 'Neste momento ele copia para a àrea de traferencia do Windows
   CreateObject("Shell.Application").Namespace("c:\").Self.InvokeVerb "Paste" 'E este comando ele usa para colar o arquivo no local especificado em NAMESPACE.
'Next 'Use o For Each acima mencionado.
End Sub
______________________________________________________________________



Video de apoio: UPAR


Arquivo de Exemplo: Download


Dica, para utilizar este script em outras versões de excel, por exemplo o 2007, 2013 / 2016, não se esqueça de adicionar a referencia do office 2003 no seu computador.

https://www.microsoft.com/en-us/download/confirmation.aspx?id=7155