Comprar
a Coleção de 15.000
Macros, Funções e Fórmulas do Excel Dicas
Pergunta:
Como fazer com que a célula A1 apresente o meu diretório ?
Resposta:
É possível, escrever :
NomeAnterior = "C:"
NomeAtual = "C:"
Name NomeAnterior As NomeAtual 'Move o arquivo e Renomeia
Respondendo sua questão :
Teste_Path( )
x = CurDir("C")
Cells(1, 1).Value = x 'retornará C:
MsgBox x, vbExclamation,"www.saberexcel.com"
End Sub