Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
abrir arquivo PDF pelo excel
Re: abrir arquivo PDF pelo excel
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!!
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!!
Re: abrir arquivo PDF pelo excel
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
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
Re: abrir arquivo PDF pelo excel
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!!
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!!
Re: abrir arquivo PDF pelo excel
Fabio,
Qual o erro? Você atentou ao comentário:
'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Abraços
Qual o erro? Você atentou ao comentário:
'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Abraços
Re: abrir arquivo PDF pelo excel
é 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!!
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!!
Re: abrir arquivo PDF pelo excel
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
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
Re: abrir arquivo PDF pelo excel
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!!
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!!
Re: abrir arquivo PDF pelo excel
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:
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:
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!!!
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!!!