[Resolvido]VB - Excel para PDF

Boa Tarde pessoal...

Gostaria de uma ajuda de vocês...
Estou tentando fazer uma automatização em um relatório meu....

Porém empaquei em uma parte..

O que eu gostaria de fazer é o seguinte, gerar um .exe através do Visual Basic que execute uma operação.
Operação esta que é abrir um arquivo excel, acessar uma determinada sheet e gerar um arquivo pdf desta sheet, para enviar por e-mail....

Passos que já consegui..

Acessar o arquivo e acessar a sheet, e chamar via função print o CutePdf...
parte ruim... precisa inserir o nome do arquivoe clicar para salvar..

Gostaria de não precisar fazer isto.. Ele salvar o arquivo sozinho e disparar para um determinado e-mail...

Código:

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlSH As Excel.Worksheet
   
 
    Set xlApp = New Excel.Application
   
    Set xlWB = xlApp.Workbooks.Open(FileName:="C:\TESTE\arquivo.xlsx")
   
    Set xlSH = xlWB.Worksheets(1)
   
    Set xlSH = xlWB.Worksheets("Safras")
   
    PrintSheet xlSH ', "MyFoot", "MyHead"

    xlWB.Close False
   
    xlApp.Quit
   
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

Sub PrintSheet(sh As Worksheet)
    'sh.PageSetup.CenterFooter = strFooter
    'sh.PageSetup.CenterHeader = strHeader
    sh.PrintOut
End Sub

Porém não sei como fazer o resto..

Alguém poderia me dar uma luz de como fazer isto sem interação alguma???

Abrir o arquivo, selecionar uma sheet, salvá-la em PDF e disparar para um e-mail...

Obrigado.

Boa Noite Amigo

Entre os exemplos que tenho para aqui dispersos encontrei um exemplo em Access, não em Excel. Contudo utiliza um modulo VBA, selecciona o ficheiro por meio de common dialog sem ocx e basta ter a impressora do CutePdf instalada e pronto. O exemplo foi criado para a cutepdf .

Pode ser que lhe seja útil e que através deste exemplo você consiga adaptar ao Excel.
http://dl.dropbox.com/u/8157744/151-ImprimirArchivoCutePdf.mdb

Bom trabalho

Obrigado Vieira...

Irei testar e ver o que consigo fazer aqui...

Logo em breve dou um parecer sobre o resultado do teste..

Obrigado.

Salve Salve Vieira...

Então, o exemplo é bom, porém chega no mesmo impasse que minha função...

Precisa ser digitado um nome para o arquivo....

Eu gostaria de não precisar inserir o nome deste arquivo, poderia ser um nome padrão...

E toda vez que fosse gerado ele iria sobrepor o arquivo antigo, para ser disparado automaticamente para um e-mail.
Teria de ser algo automático.

Alguma outra sugestão??

Obrigado.

Amigo Finando

Gostaria de o poder ajudar mais. Aqui no forum tem alguns exemplos de envio de anexos por email, como este:

http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/envio-de-email-com-ate-3-anexos-e-corpo-do-email-em-html-t789.htm

Verifique os exemplos que aqui existem.

Abs

Vieira..

Enviar para o e-mail até que não é o problema... Encontrei uma Classe que dispara arquivos para o e-mail, no VB6...

Meu problema está sendo em gerar o PDF à partir de uma Sheet do excel..
Gostaria de não precisar inserir o nome do arquivo...

Que ele colocasse este nome sozinho... um nome predefinido...
Mas ainda não obtive êxito..

Continuo procurando alguma solução..

Por hora obrigado.

Salve pessoal...

Ainda não consegui encontrar nenhuma solução para meu problema...

Não consegui ainda gerar o PDF sem interação humana, porém estive pensando...

É possível fazer um processo que procure o campo NOME ARQUIVO: preencha com um valor pré-definido e após isto procure o botão SALVAR ??

Alguém já fez algo parecido??

Obrigado a todos.

porque é que você não define a impressora PDF como a impressora por defeito e depois manda a instrução de imprimir o seu excel ?


Option Explicit
Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

Private Sub Command1_Click()
SetDefaultPrinter ("PDFCreator")
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlSH As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open(FileName:="C:\TESTE\arquivo.xlsx")
Set xlSH = xlWB.Worksheets(1)
Set xlSH = xlWB.Worksheets("Safras")

PrintSheet xlSH
xlWB.Close False
xlApp.Quit
Set xlWB = Nothing
Set xlApp = Nothing
End Sub

Sub PrintSheet(sh As Worksheet)
sh.PrintOut
End Sub

Salve Ricardo...

Eu já estou fazendo isto... E o problema é: Ter que digitar o nome do arquivo...

Eu gostaria de fazer isto de maneira automática, gostaria de não ter que inserir o nome do arquivo...

Pretendo colocá-lo junto com outros processos nas tarefas agendadas do Windows.. Para que ele gerasse automaticamente o PDF à partir deste arquivo Excel...
Na maneira atual, isto não é possível, pq ele fica travado na janela do Salvar PDF...

Teria de achar uma outra biblioteca para isto, ou uma maneira do próprio VB selecionar o campo e localizar o botão salvar...

Obrigado.

Ola finando;

Tenho estado a acompanhar este tópico e pelo que vejo você nem necessita do Ms Access para fazer o que pretende;

Vou-lhe dar um pitaco e podemos aprofundar depois;

Vamos imaginar que você terá uma pasta de nome TESTE em C:\ ou seja C:\TESTE

Lá dentro dessa pasta terá um ficheiro de excel como o nome que quiser, então faça assim;

Abra um ficheiro de texto e cole isto para teste;

Set xlObj = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\TESTE")
For Each file In f.Files
set xlWB = xlObj.Workbooks.Open(file)
meuFicheiro =Left(xlWB.FullName , InStrRev(xlWB.FullName , ".") - 1)
xlWB.Sheets("Safras").Select
xlWB.ActiveSheet.ExportAsFixedFormat 0, meuFicheiro & ".pdf", 0, 1, 0,,,0
xlWB.close False
WScript.Echo "Salvo em PDF com sucesso..."
Next
xlObj.quit

Salve e renomeie de .txt para .vbs

Faça duplo click e veja o resultado.

Se funcionar iremos adapatar ao seu proposito.

Salve JPaulo...

Muito Obrigado pela Resposta, Na verdade gostaria de utilizar tanto no Access quanto fora dele, neste momento irei fazer fora dele, estive utilizando o VB6 para fazer tal ferramenta.
Agradeço a resposta e peço desculpas por estar meio fora do real intuito do fórum, mas não consegui achar outras soluções, por isto recorri a vocês, que ja tem muito mais tempo de experiência que eu.

Funcionou JPaulo, ele exportou todas as Sheets do arquivo.

\o/

Todas sim, mas eu alterei;

xlWB.Sheets("Safras").Select

Funcionou maravilhosamente JPaulo...

Estou me batendo a muitoooo tempo com isto...

Muito obrigado...

Mais uma pergunta apenas, e se na pasta tiver mais de 1 arquivo excel??
Eu consigo direcionar este código para 1 arquivo em específico??

Obrigado.

Consegue sim;

set xlWB = xlObj.Workbooks.Open(f &"barra"& "arquivo.xlsx")

Onde diz "barra" em vermelho, é uma barra para a esquerda, o fórum não aceita esse caracter aqui entre &.

Muito Obrigado JPaulo...

Fico muito agradecido pela ajuda..

Funcionou perfeitamente...

\o/

Fico lhe devendo mais esta..

o/

Valew pelo retorno amigo, precisando estamos ae.

Muito interessante este tópico. Uma dúvida, há como ao gerar o relatório o arquivo .pdf já ser exibido automaticamente ?

Salve

A solução apresentada pelo Mestre Jõao Paulo muito me ajudou.Obrigado. Gostaria de saber se há uma forma de se criar um botão de comando num formulário do access, que salvasse em PDF uma determinada planilha de um arquivo Excel, e, através de uma mensagem, eu pudesse escolher entre, mandar imprimir a planilha ou enviá-la por e-mail, através do hotmail, a um determinado contato. E como seria possível fazer com que esse comando funcionasse em outro PC, visto que, possivelmente os caminhos das pastas serão diferentes, sendo igual somente o nome do arquivo excel.Eu teria que mudar manualmente?