'Save a copy of the file with a Date/time stamp in a sub folderįolderstring = CreateFolderinMacOffice(NameFolder:="Backup") MsgBox "You find a workbook with the active sheet in this folder :" & Folderstring SaveAs Folderstring & Application.PathSeparator & FileName & _ ' 'Change all cells in the worksheet to values if you wantįileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") 'You can also use Sheets("MySheetName").CopyĬase 51: FileExtStr = ".xlsx": FileFormatNum = 51Ĭase 56: FileExtStr = ".xls": FileFormatNum = 56Ĭase Else: FileExtStr = ".xlsb": FileFormatNum = 50 'This macro use the custom function named : CreateFolderinMacOfficeįolderstring = CreateFolderinMacOffice(NameFolder:="MyProject") 'Save only the activesheet with a Date/time stamp in a sub folder MsgBox "Sorry the file not exists in this location : " & PathToFile PathToFile = OfficeFolder & FolderName & Application.PathSeparator & FileName 'Function to open a file in a sub folder of the Office folder 'Open a file in a sub folder of the Office folderįileString = MacOfficeOpenFile(FolderName:="MyProject", FileName:="ron.xlsm")įunction MacOfficeOpenFile(FolderName As String, FileName As String) As String 'MsgBox "You find the new folder in this location :" & PathToFolder 'You can use this msgbox line for testing if you want TestStr = Dir(PathToFolder & "*", vbDirectory) "Library/Group Containers/UBF8T346G9.Office/" OfficeFolder = Replace(OfficeFolder, "/Desktop", "") & _ OfficeFolder = MacScript("return POSIX path of (path to desktop folder) as string") 'Function to create folder if it not exists in the Microsoft Office Folder 'Create folder if it not exists in the Microsoft Office FolderĬall CreateFolderinMacOffice(NameFolder:="MyProject")įunction CreateFolderinMacOffice(NameFolder As String) As String To get this Excel path you can also use Environ("HOME") or Environ("CFFIXED_USER_HOME") If you want to have a location only for Excel for example use this path : /Users/rondebruin/Library/Containers//Data I not use this location on this example page to be sure that every Office program can access my files if this is needed. The folder above you can use to share data between Office programs or with a third party application, so this location will always work if you want to have read and write access. Note: rondebruin is the user name in this path and I agree that the naming of the folder for Office( UBF8T346G9.Office) is not so nice, but Microsoft do not have control of this name. Users/rondebruin/Library/Group Containers/UBF8T346G9.Office This is the Root folder on my machine that we use in the examples on this page:
Excel macro for mac manual#
But these folders are not in a place that a user can easily find so below are some steps that I hope to make it easier for you to access the folder manual if you want.
Excel macro for mac code#
There are a few places on your Mac that you can use to avoid the prompts and let your code do what it needs to do without user interaction.
0 kommentar(er)
