Excel VBA - Obter caminho Desktop para salvar arquivos.

jun1orp1m3n7a · 4 de abril de 2019

Boa tarde.

Atualmente uso uma planilha do Excel comum codigo VBA para criar centenas de arquivos de texto e os salvo em uma pasta no meu desktop.

Acontece que no codigo do VBA eu coloquei o caminho do meu Desktop.

Quando outro usuário usa a mesma planilha, é preciso entrar no codigo e alterar o nome do usuario par alocalizar o caminho.

Gostaria de automatizar essa tarefa.

Alguem consegue me explicar como fazer o VBA localizar o nome do usuario e colocar no caminho?

Vou postar um trecho do codigo onde fic ao endereço.

Se acharem necessário, posso colocar o codigo todo.

Nome = ActiveSheet.Name
 familia = valor
 'On Error Resume Next
 Set f = fso.CreateFolder("C:\Users\jjunior03\Desktop\Artigos\" & familia)
 On Error GoTo 0
 CreateFolderDemo = f.Path
 dir_arq = "C:\Users\jjunior03\Desktop\Artigos\" & familia & "\" & Nome  ' txt chamado arquivo no raíz
 Dim dados As String
 dados = Range("A1").Value
 existe = Dir(dir_arq, vbArchive)
 If existe = "" Then
 Open dir_arq For Append As #1
 Print #1, valor;
 Close #1
 End If
    ActiveWindow.SelectedSheets.Delete

4 de abril de 2019

Veja se aproveita.

Application.UserName ~~~> retorna o nome do usuário do Excel

Environ("USERNAME") ~~~> retorna o nome do usuário da máquina

Se forem 2 ou 3 usuários o If vai bem (conforme abaixo), no entanto para mais usuários, talvez o Select Case.

If Application.UserName = "José" Then
  'caminho da pasta do José
 ElseIf Application.UserName = "Maria" Then
  'caminho da pasta da Maria
 Elseif '...
 End If