Anexar arquivo pdf na planilha XLSX

[Itamar M. Lins Jr.]

Olá!
ALLguém do forum sabe como fazer isso ?
Já achei para imagens, mas preciso disso para arquivos.
Adicionar na célula do Excel um arquivo qualquer.

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

Veja este link

[Itamar M. Lins Jr.]

Olá!
Fazer manualmente é simples., mas ele coloca o PDF na planilha, eu quero na célula e via VBA.
Dessa forma que ele explica no link que passou, tem até em português...

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

Fazer manualmente é simples., mas ele coloca o PDF na planilha, eu quero na célula e via VBA.

Ok. Da próxima vez, explique melhor o que precisa.

[Itamar M. Lins Jr.]

Olá!
Foi, faltou colocar que é em VBA -> Harbour
Já cheguei até aqui:

Código: Selecionar todos

         cRange := "D"+hb_ntos(nF)

         oSheet:Range(cRange):Select() 
         IF hb_vfExists(cOutFileName)
            oSheet:OLEObjects:Add(cOutFileName) //:Select()
         ENDIF

Já fiz muitas, mudanças ai nesse :add(...)
Mas até agora nada.

Saudações,
Itamar M. Lins Jr.

[clodoaldomonteiro]

Olá!
Não testei, mas veja se assim dá certo.

Código: Selecionar todos

Function xxx()
    LOCAL oExcel, oWorkbook, oWorksheet, cPDFPath, oRange

    cPDFPath := "C:\caminho\do\arquivo\arquivo.pdf" // Caminho do arquivo PDF
    oExcel := CreateObject("Excel.Application")

    oExcel:Visible := .T.

    oWorkbook := oExcel:Workbooks:Add()
    oWorksheet := oWorkbook:Worksheets(1)

    oRange := oWorksheet:Range("A1") 

    oWorksheet:OLEObjects:Add( "Acrobat.Document", cPDFPath, .F., .T., , , oRange:Left, oRange:Top )

    oWorkbook:SaveAs("C:\caminho\para\salvar\planilha.xlsx")

    oWorkbook:Close()
    oExcel:Quit()

    oWorkbook := NIL
    oExcel := NIL
    oWorksheet := NIL
    oRange := NIL

Return .t.

Abraços.

[SOSSOFT]

Alguém conseguiu testar? Deu certo?

[Itamar M. Lins Jr.]

Olá!

Error WINOLE/1007 Não é possível obter a propriedade Add da classe OLEObjects (0x800A03EC): Microsoft Office Excel (DOS Error -2147352567)

Testei inúmeras variações.

Saudações,
Itamar M. Lins Jr.

[clodoaldomonteiro]

Parece que a versão do seu Excel não tem OLE para adicionar arquivos PDF.
Testei com a versão 2007, que é a que eu tenho e não deu certo.

Aqui tem as propriedades do objeto :OLEobjects() -> https://learn.microsoft.com/en-us/offic ... ects.count
E vejo que elas funcionam.

[Itamar M. Lins Jr.]

Olá!
Tomara que seja isso.
Se puder corrigir o link.
Coloque dentro das tags url seu.link /url
url e /url dentro dos colchetes [ ]

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Fui instalar aqui a versão 2013 disse que a anterior é 32bits(office 2007) mandou remover...
Pode ser isso... Não sei, verificando.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Não funcionou.

Interessante, que esse relatório em HTML está quase 100%, alguns ajustes que falta e quando salvo em PDF, continua funcionando, abrindo os arquivos anexados.

Saudações,
Itamar M. Lins Jr.

[SOSSOFT]

Depois tenta enviar uns prints para a gente ver como está ficando