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

hola, !

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...

tambien pordias probar con algo +/- como lo siguiente:

Dim MisDocumentos As String
With CreateObject("WScript.Shell")
MisDocumentos = .SpecialFolders("Mydocuments") & "\"
End With
MsgBox MisDocumentos

saludos,
hector.

Muchas gracias a los dos. Es un placer contar con vosotros siempre que se os
necesita.


"Héctor Miguel" escribió en el mensaje de
noticias news:

hola, !

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...

tambien pordias probar con algo +/- como lo siguiente:

Dim MisDocumentos As String
With CreateObject("WScript.Shell")
MisDocumentos = .SpecialFolders("Mydocuments") & "\"
End With
MsgBox MisDocumentos

saludos,
hector.

:-))

Saludos a
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
news:

Muchas gracias a los dos. Es un placer contar con vosotros siempre que se
os necesita.


"Héctor Miguel" escribió en el mensaje de
noticias news:

hola, !

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...

tambien pordias probar con algo +/- como lo siguiente:

Dim MisDocumentos As String
With CreateObject("WScript.Shell")
MisDocumentos = .SpecialFolders("Mydocuments") & "\"
End With
MsgBox MisDocumentos

saludos,
hector.