Excel Abrir arquivo VBA utilizando o nome do arquivo

[Zamboni_du]

Boa tarde pessoal,

 

Preciso criar uma macro para abrir um arquivo, porém gostaria que no código eu digitasse apenas o nome do arquivo e não o endereço (C:\Users\zp0004\Documents\.....) pois o nome de usuário muda.

[Basole]

Com a função Environ retorna o caminho da pasta padrão meus documentos, por exemplo, independe do usuário ou PC. 

 

Environ$("USERPROFILE") & "\Documents\"

  

Retorna: "C:\Users\Nome do Usuário\Meus Documentos"

[Zamboni_du]

@Basole eu totalmente novato em VBA você pode me passa o código completo para eu entende a aplicação?

3 minutos atrás, Zamboni_du disse:

@Basole eu totalmente novato em VBA você pode me passa o código completo para eu entende a aplicação?

@Basole, deu uma pesquisada e entendi a aplicação. Não testei ainda mas obrigado pela atenção.

[Zamboni_du]

@Basole, eu tenho uma pequena duvida, tem como eu colocar apenas o nome do arquivo sem a extensão? No momento eu uso teste. mhtml pois o arquivo é exportado assim, porém para alguns usuário o arquivo é extraído com teste.xlsx.

[Basole]

@Zamboni_du bom se você tem essas duas situações, experimente algo assim:

* Não testado

 

Sub Teste()

Dim WB As Workbook

Dim strFile As String
Dim TestDir As String

strFile = Environ$("USERPROFILE") & "\Documents\teste.mhtm*" 

On Error Resume Next 
  TestDir =vba.Dir(strFile)
On Error GoTo 0

If TestDir = "" Then
Set Wb = Workbooks.Open (Environ$("USERPROFILE") & "\Documents\teste.xlsx" )
Else 
Set Wb = Workbooks.Open (strFile)

End if

End sub

 

* Considerando que os arquivos estejam na pasta "Meus documentos" do respectivo usuário:

C:\Users\ [ nome do usuário] \Documents\

[Zamboni_du]

@Basole boa tarde,

 

Muito obrigado pela ajuda, sou totalmente iniciante em VBA, quebrei a cabeça um pouco mas consegui adaptar o que você me passou ao que eu já tinha!!! abraço e muito obrigado mais uma vez!!!!!!!