Código VBA para qualquer diretório.

Question

[SIZE=4]Boa tarde![/SIZE]

Criei uma macro para selecionar uma &aacute;rea da planilha ativa e gerar um arquivo PDF, que no meu PC de casa
funciona perfeitamente, com o c&oacute;digo abaixo:

Sub GerarPDF()
'
' GerarPDF Macro
'
' Atalho do teclado: Ctrl+j
'
 
Range(A1:O176).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        C:\Users\Micro\Desktop\ROTINAS DI&Aacute;RIAS.pdf, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range(A1).Select

Endt Sub

Por&eacute;m, ao usar a planilha no meu trabalho, como era de se esperar, deu erro em rela&ccedil;&atilde;o ao diret&oacute;rio do arquivo,
que no meu PC de casa fica em:

C:\Users\Micro\Desktop\ROTINAS DI&Aacute;RIAS.pdf

E no PC do trabalho fica em:

C:\Users\jrlima\Desktop\ROTINAS DI&Aacute;RIAS.pdf

Dessa forma, implementei um tratamento de erro, ficando o c&oacute;digo assim:

Sub GerarPDF()
'
' GerarPDF Macro
'
' Atalho do teclado: Ctrl+j
'
    On Error GoTo errodir

Range(A1:O176).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        C:\Users\Micro\Desktop\ROTINAS DI&Aacute;RIAS.pdf, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range(A1).Select

Exit Sub

errodir:

Range(A1:O176).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        C:\Users\jrlima\Desktop\ROTINAS DI&Aacute;RIAS.pdf, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
   ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range(A1).Select
 
End Sub

Funcionando aqui no trabalho perfeitamente, por&eacute;m o problema que quero resolver &eacute; o seguinte:

Caso eu fosse compartilhar essa planilha com v&aacute;rios colegas, eu teria que editar o c&oacute;digo de acordo com
o diret&oacute;rio do PC de casa de cada um deles, esquentei os miolos, pesquisei e at&eacute; o momento, n&atilde;o encontrei
de como fazer a planilha funcionar em qualquer PC, na hora de criar o PDF.

Os mais avan&ccedil;ados se souberem, e puder compartilhar, desde j&aacute; agrade&ccedil;o.

Answer

N&atilde;o entendo nada de VBA (nem de tantas outras coisas), mas ser&aacute; poss&iacute;vel usar o nome do usu&aacute;rio como uma vari&aacute;vel obtida dinamicamente?

Em Linux, se n&atilde;o me engano, apenas para dar um exemplo, o caractere &ldquo;~&rdquo; representa o diret&oacute;rio do usu&aacute;rio.

Answer

Boa noite, [USER=254001]@jricslima[/USER]

Pelo VBA h&aacute; v&aacute;rias maneiras de retornar o caminho das pastas especiais padr&atilde;o de sistema e de usu&aacute;rio, cada uma com suas vantagens e suas desvantagens.
Por exemplo, para retornar a pasta Desktop que vc deseja, vc poderia usar qualquer um dos c&oacute;digos abaixo:

Sub RetornaPastaDesktop()
   Dim Desktop As String

Desktop = Environ(USERPROFILE) & \Desktop

Desktop = CreateObject(WScript.Shell).SpecialFolders(Desktop)

Desktop = CreateObject(Shell.Application).Namespace(16).Self.Path
   Desktop = CreateObject(Shell.Application).Namespace(&H0).Self.Path
   Desktop = CreateObject(Shell.Application).Namespace(knownfolder:{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}).Self.Path
End Sub

O primeiro tem a vantagem de n&atilde;o usar nenhum objeto externo ao VBA, pois ele l&ecirc; a vari&aacute;vel de ambiente %USERPROFILE% do Windows atrav&eacute;s do uso de uma fun&ccedil;&atilde;o do pr&oacute;prio VBA (Environ). D&aacute; certo eu diria que em uns 90% das situa&ccedil;&otilde;es. Apenas naqueles usu&aacute;rios mais avan&ccedil;ados que porventura possam ter mudado o nome original da pasta Desktop para outro qualquer ou quem alterou a unidade original de suas pastas para outros locais n&atilde;o seriam atendidos.
As outras duas formas s&atilde;o mais robustas e insens&iacute;veis &agrave; altera&ccedil;&atilde;o do nome mas por outro lado usam um objeto externo, se bem n&atilde;o costumam dar problemas j&aacute; que s&atilde;o bibliotecas permanentes do Windows.
H&aacute; outras formas um pouco mais complexas, atrav&eacute;s de API do Windows ou atrav&eacute;s da biblioteca WMI, mas usando uma dessas acima acredito que j&aacute; resolveria seu problema.

Ferramentas

Mover Tópico