Boa Tarde pessoal...
Gostaria de uma ajuda de vocês...
Estou tentando fazer uma automatização em um relatório que preciso enviar todos os dias.
Estou utilizando o VB6, para desenvolver esta funcionalidade.
O que gostaria de fazer é o seguinte, abrir um arquivo excell, atualizar o mesmo, exportar para PDF e disparar este arquivo PDF para um endereço de email.
Já defini todas as áreas de impressão, e tabelas dinâmicas, consegui fazer parte deste processo, porém agora estou empacado e sem idéias...
Consegui abrir o arquivo, selecionar a sheet que quero e imprimir via impressora virtual, porém o problema é o seguinte... preciso digitar um nome para este arquivo, e como a idéia é ser automatizado, gostaria de inserir este nome automaticamente... sem interação humana..
Como posso fazer?? Alguém tem alguma dica??
Segue o código que estou utilizando até agora...
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
Obrigado.