Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Code to raise Directory request box
I have a macro which saves the spreadsheet to a new directory (currently the directory is specified within the macro). That's OK for me but I want to distribute the spreadsheet to a wider audience and to make it easy for them I'd like to include a piece of code which prompts them for the directory to save to, just the same as when you do a 'Save As' from the spreadsheet. As some of the directory trees are quite complex, I can't ask them to type the directory location. Any ideas? -- ANDYGM ------------------------------------------------------------------------ ANDYGM's Profile: http://www.excelforum.com/member.php...fo&userid=3452 View this thread: http://www.excelforum.com/showthread...hreadid=531463 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Code to raise Directory request box
With Application.FileDialog(msoFileDialogFolderPicker)
.Show MsgBox .SelectedItems(1) End With Look up FileDialog in the VBA help -- HTH Bob Phillips (remove nothere from email address if mailing direct) "ANDYGM" wrote in message ... I have a macro which saves the spreadsheet to a new directory (currently the directory is specified within the macro). That's OK for me but I want to distribute the spreadsheet to a wider audience and to make it easy for them I'd like to include a piece of code which prompts them for the directory to save to, just the same as when you do a 'Save As' from the spreadsheet. As some of the directory trees are quite complex, I can't ask them to type the directory location. Any ideas? -- ANDYGM ------------------------------------------------------------------------ ANDYGM's Profile: http://www.excelforum.com/member.php...fo&userid=3452 View this thread: http://www.excelforum.com/showthread...hreadid=531463 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Code to raise Directory request box
Thanks, I was able to adapt your suggestion to fit what I want to do. This is how it looks: Dim Directory As Variant '*****CHANGE NEW EXCEL SOURCE FILE PATH HERE****** With Application.FileDialog(msoFileDialogFolderPicker) .Show Directory = .SelectedItems(1) strNewSource = Directory & "\Report Builder v 1.2.xls" End With '*****CHANGE NEW EXCEL SOURCE FILE PATH HERE****** -- ANDYGM ------------------------------------------------------------------------ ANDYGM's Profile: http://www.excelforum.com/member.php...fo&userid=3452 View this thread: http://www.excelforum.com/showthread...hreadid=531463 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
regular code module | Excel Discussion (Misc queries) | |||
code not unique find latest date | Excel Discussion (Misc queries) | |||
Conform a total to a list of results? | Excel Discussion (Misc queries) | |||
Macro for changing text to Proper Case | Excel Worksheet Functions | |||
close form code | Excel Discussion (Misc queries) |