Averiguar ruta para grabar un fichero

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
pon el siguiente código en un módulo , la primera linea ha de estar
necesariamente en la sección de declaraciones del mismo

Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias
"SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszPath As String,
ByVal csidl As Long, ByVal fCreate As Long) As Long

Public Function MisDocumentos() As String
Dim strRuta As String * 256

SHGetSpecialFolderPath 1, strRuta, &H5, 0&
MisDocumentos = Left$(strRuta, InStr(1, strRuta, Chr$(0)) - 1)
End Function ' MisDocumentos


Saludos a desde Huelva

Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de noticias
news:

ActiveWorkbook.SaveAs Filename:="C:\Users\JOSE ANGEL\Documents\joseangel "
& b & ".xls", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Este es el codigo que utilizo para guardar el fichero resultante con ese
nombre, pero la pregunta es como lo hago para que todos los ficheros se
guarden el la carpeta de mis documentos de cada usuario, por ejemplo seis
en ordenadores diferentes y con usuarios diferentes.

Digamos como averiguo la ruta de mis documentos de cada ordenador.


Gracias