Excel VBA: Como usar um nome de usuário exclusivo ou salvar local para uma macro de exportação de pdf

Question

Eu tenho uma macro que imprime um usa o método Excel interno ExportAsFixedFormat para imprimir uma planilha como um pdf e salvar o documento na área de trabalho usando uma estrutura de nome de arquivo exclusivo.

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Users\UNIQUE_USER\Desktop\" & Right(Range("D11"), 8) & "_ALL_SALES.pdf", _
     Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

Isso não funciona para mim. No entanto, se eu quisesse compartilhar essa planilha com outro usuário no meu trabalho (e não exigir que ele reescrevesse a macro), existe uma maneira de salvar o documento em PDF usando seu nome de usuário ou diretório exclusivo. Existe um diretório / caminho padrão que funcionará para todos os usuários?

    

Answer 1

O caminho completo para a pasta de usuário raiz do usuário conectado no momento pode ser recuperado com:

Environ("USERPROFILE")

Para salvar o arquivo na área de trabalho do usuário, como você fez, você usaria:

Environ("USERPROFILE") & "\Desktop\" & ...

Para o seu código específico, conforme fornecido

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Environ("USERPROFILE") & "\Desktop\" & Right(Range("D11"), 8) & "_ALL_SALES.pdf", _
     Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True