Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save to My Docs
Hi,
Is there a code for automatically saving a copy of a file to My Documents on any computer? So I create a file which I put on a network with a macro button. Anyone who hits the button will then have a copy of file saved onto the My Docs of their computer. I will also do other things with the operation but the save bit I dont know how to do. Thanks LiAD |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save to My Docs
This link may be useful
http://www.hotscripts.com/forums/vis...ents-path.html -- If this post helps click Yes --------------- Jacob Skaria "LiAD" wrote: Hi, Is there a code for automatically saving a copy of a file to My Documents on any computer? So I create a file which I put on a network with a macro button. Anyone who hits the button will then have a copy of file saved onto the My Docs of their computer. I will also do other things with the operation but the save bit I dont know how to do. Thanks LiAD |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save to My Docs
In a new module paste the below API function and then within a macro call
Msgbox SpecFolder(CSIDL_PERSONAL) Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hWnd As Long, ByVal nFolder As Long, ppidl As Long) As Long Public Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDListA" (ByVal Pidl As Long, ByVal pszPath As String) As Long Public Declare Sub CoTaskMemFree Lib "ole32" (ByVal pvoid As Long) Public Const CSIDL_PERSONAL = &H5 Public Const CSIDL_DESKTOPDIRECTORY = &H10 Public Const MAX_PATH = 260 Public Const NOERROR = 0 Public Function SpecFolder(ByVal lngFolder As Long) As String Dim lngPidlFound As Long Dim lngFolderFound As Long Dim lngPidl As Long Dim strPath As String strPath = Space(MAX_PATH) lngPidlFound = SHGetSpecialFolderLocation(0, lngFolder, lngPidl) If lngPidlFound = NOERROR Then lngFolderFound = SHGetPathFromIDList(lngPidl, strPath) If lngFolderFound Then SpecFolder = Left$(strPath, InStr(1, strPath, vbNullChar) - 1) End If End If CoTaskMemFree lngPidl End Function If this post helps click Yes --------------- Jacob Skaria "LiAD" wrote: Hi, Is there a code for automatically saving a copy of a file to My Documents on any computer? So I create a file which I put on a network with a macro button. Anyone who hits the button will then have a copy of file saved onto the My Docs of their computer. I will also do other things with the operation but the save bit I dont know how to do. Thanks LiAD |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save to My Docs
You can use the "ENVIRON" function to get the MyDocs location of the
currently logged on user. Set your save path to something like so: Environ("USERPROFILE") + "\My Documents" HTH - PJZ "LiAD" wrote: Hi, Is there a code for automatically saving a copy of a file to My Documents on any computer? So I create a file which I put on a network with a macro button. Anyone who hits the button will then have a copy of file saved onto the My Docs of their computer. I will also do other things with the operation but the save bit I dont know how to do. Thanks LiAD |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excell docs save with a 1 added on. | Excel Discussion (Misc queries) | |||
need macro to save HTML pages as PDF docs | Excel Programming | |||
Excel docs not saving as excel docs | Excel Discussion (Misc queries) | |||
Embedding Word Docs into Excel Worksheets and Then Printing The Word Docs | Excel Worksheet Functions | |||
converting excel docs to word docs | New Users to Excel |