Vídeo recomendado
https://youtu.be/diWPPPhW-9E

abrir arquivo PDF pelo excel

Dúvidas gerais sobre Excel
fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

show de bola!!!!!!!!

perfeito!! quase choro agora.. hehe.. tem quase 3 meses que to tentando fazer isso e não consigo.. e nao tava achando em lugar nenhum..

resolveu um problemão meu aqui gente boa!!!

fico agradecido pela ajuda!!!!

abraços!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: abrir arquivo PDF pelo excel

Mensagem por webmaster »

Fabio,

Eu é que não tenho como agradecer todo o apreço que a comunidade e colegas tem dado a este fórum.

Meu muito obrigado a todos e abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

Olá !!!

acabou que surgiu uma duvida em relação ao código dessa planilha..

tem algo no codigo que o prende na planilha?? porque na própria planilha abre normalmente, mas to tentando copiar o form para uma outra planilha que ja esta montada com outros forms, criando um botao em um desses forms que eu ja tinha aqui usando o ".show".. mas ao executa-lo da erro no seguinte codigo:

Public Function ListaArquivos(ByVal Caminho As String) As String()

'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long


ReDim result(0) As String
If FSO.FolderExists(Caminho) Then
Set Pasta = FSO.GetFolder(Caminho)

For Each Arquivo In Pasta.Files
Indice = IIf(result(0) = "", 0, Indice + 1)
ReDim Preserve result(Indice) As String
result(Indice) = Arquivo.Name
Next
End If

ListaArquivos = result
ErrHandler:
Set FSO = Nothing
Set Pasta = Nothing
Set Arquivo = Nothing
End Function


teria que mudar alguma coisa no código??


abraços!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: abrir arquivo PDF pelo excel

Mensagem por webmaster »

Fabio,

Qual o erro? Você atentou ao comentário:

'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

é verdade rapaz...

perdão gente boa!!!

realmente não me liguei quanto a referencia.. por não ta ainda familiarizado com certos termos não tinha entendido essa observação "'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime".

mas como voce falou liguei uma coisa com a outra e entendi que tinha que ir lá em "referencias" e marcar essa opção.

Mas será que em todo computador que for utilizar a planilha vai precisar selecionar a referencia? porque to fazendo pra gravar no CD e entregar para o cliente abrir em outra empresa, e ele não vai saber fazer isso lá. Ou depois de feito e gravado aqui no meu, vai abrir em qualquer computador??

mais uma vez obrigado!!!

abraços!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: abrir arquivo PDF pelo excel

Mensagem por webmaster »

Fabio,

Do que tenho notícia, a biblioteca está disponível desde o Office 2000, junto com sua instalação:

http://msdn.microsoft.com/en-us/library ... 10%29.aspx

Portanto, pode contar com a presença desta com tranquilidade.

Abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

Ok!!!

mais uma vez muito obrigado pela ajuda!!

abraços!!


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

Tomaz!!!

tudo bem??

seguinte, surgiu mais uma duvida aqui, acredito que possa me ajudar..

nesse listbox puxa as informações de acordo com o diretório que voce coloca no textbox né?? aí eu coloquei na planilha para cada arquivo o diretório específico, para quando clicar nele.. puxar as informações nas textbox's, sendo um deles o textbox do endereço para abrir o arquivo. Aí que vem o problema.. coloquei o diretório padrão o "D:" (Ex_ "D:\Pasta\Arquivo.pdf") porque to gravando no cd o form com os arquivos, porém tem computadores que o cd é o "E:" ou "H:", aí na listbox não puxar os arquivos da pasta.

aí vem a pergunta: tem algum comando que define o diretório padrao para a unidade de cd sem especificar "D:" ou "E:"? tipo, no lugar de "D:\Pasta\Arquivo.pdf" colocar "Unidade de CD-ROM\Pasta\Arquivo.pdf".

será que tem como??

abraços!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: abrir arquivo PDF pelo excel

Mensagem por webmaster »

Fabio,

Isso deve dar uma luz:

http://www.tomasvasquez.com.br/blog/mic ... ive-no-vba

Abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

Tomas..

primeiro peço desculpas por insistir nesse assunto.. é que não consegui resolver ainda, quebrei a cabeça aqui de tudo que é jeito e neeem....

a função que ta no arquivo que voce enviou (ListaArquivosDiretório) é a seguinte:

Código: Selecionar todos

Public Function ListaArquivos(ByVal Caminho As String) As String()

'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long


ReDim result(0) As String
If FSO.FolderExists(Caminho) Then
    Set Pasta = FSO.GetFolder(Caminho)
 
    For Each Arquivo In Pasta.Files
      Indice = IIf(result(0) = "", 0, Indice + 1)
      ReDim Preserve result(Indice) As String
      result(Indice) = Arquivo.Name
    Next
End If

ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
End Function

onde os dados puxa do diretorio escrito no textbox. tipo: "D:\Pasta\" aí ele puxa todos os arquivos que estao naquela pasta no CD.
mas não consegui adaptar o codigo que voce falou do BLOG para substituir esse "D:" pelo diretorio padrao de cd de cada máquina, aí tanto faz o computador ser E: ou D: ou F: o drive de cd.

a função que tem no blog para pegar informações do drive é essa:

Código: Selecionar todos

Function SerialPD(ByVal DriveLetter As String) As String
    Dim oFso As New FileSystemObject
    Dim oDrive As Drive
 
    If oFso.DriveExists(DriveLetter) Then
        Set oDrive = oFso.GetDrive(DriveLetter)
        SerialPD = Left(Hex(oDrive.SerialNumber), 4) & "-" & Right(oDrive.SerialNumber, 4)
    Else
        SerialPD = "Drive especificado nao existe."
    End If
 
    Set oDrive = Nothing
    Set oFso = Nothing
 
End Function

tentei substituir essa função na que ja estava, ja tentei apenas acrescentar a função... e nao deu certo. :(

mais uma vez desculpa por incomodar tanto no mesmo assunto!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder