Página 1 de 1
Gerar Relatório
Enviado: 03 Nov 2015 às 18:13
por EvandroRodrigues
Bom dia!
Criei uma macro para gerar um relatório. Ela está funcionando bem, o problema é que quando outro usuário executa a macro, ela não funciona.
Acredito que o problema está no caminho utilizado para salvar o relatório:
c:\users\Evandro\desktop..........
Existe uma maneira de deixar o caminho genérico, para que seja salvo na área de trabalho de cada usuário?
Re: Gerar Relatório
Enviado: 03 Nov 2015 às 21:49
por alexandrevba
Boa noite!!
Tente pegar o caminho activo.
Att
Gerar Relatório
Enviado: 03 Nov 2015 às 22:18
por Reinaldo
Experimente utilizar a função disponibilizado no link
http://www.ozgrid.com/forum/showthread.php?t=24985
Sintaxe: SpecialfolderPath & "\" & NomeDoArquivo
Código: Selecionar todosFunction SpecialFolderPath() As String
Dim objWSHShell As Object
Dim strSpecialFolderPath
'On Error GoTo ErrorHandler
' Create a shell object
Set objWSHShell = CreateObject("WScript.Shell")
' Find out the path to the passed special folder,
' just change the "Desktop" for one of the other options
SpecialFolderPath = objWSHShell.SpecialFolders("Desktop")
' Clean up
Set objWSHShell = Nothing
Exit Function
ErrorHandler:
MsgBox "Error finding " & strSpecialFolder, vbCritical + vbOKOnly, "Error"
End Function
Gerar Relatório
Enviado: 04 Nov 2015 às 20:40
por TuckaCabral
Utilize a função ENVIRON ("USERPROFILE").
Ela vai pegar o caminho do desktop do usuario que estiver logado.
Mto boa... pode ser usada tambem pra definir permissoes de uso, mas dai seria usando USERNAME ao inves de USERPROFILE.
Gerar Relatório
Enviado: 05 Nov 2015 às 07:27
por EdivanCabral
Tenta isso amigo:
Caminho = Environ("userprofile") & "\Desktop"