Página 1 de 1
Anexar arquivo pdf na planilha XLSX
Enviado: 22 Out 2024 16:48
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 22 Out 2024 23:10
por alxsts
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 05:59
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 11:59
por alxsts
Olá!
Itamar M. Lins Jr. escreveu: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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 12:03
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 12:32
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 14:29
por SOSSOFT
Alguém conseguiu testar? Deu certo?
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 14:50
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 17:26
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 19:09
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 19:20
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 23 Out 2024 21:15
por 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.
Anexar arquivo pdf na planilha XLSX
Enviado: 25 Out 2024 11:30
por SOSSOFT
Depois tenta enviar uns prints para a gente ver como está ficando