User prompt to select a directory when exporting an Excel file from MS Proj

[TimZ]

Hi everyone, I'm pretty much a hack when it comes to VBA, so forgive my ignorance. I have the following code where I would like the user to be prompted for a directory to which the file will be saved. How can I accomplish that? Thanks.


Sub exportexcel()
'
MapEdit Name:="Map 1", Create:=True, OverwriteExisting:=True, DataCategory:=0, CategoryEnabled:=True, TableName:="Task_Table1", FieldName:="ID", ExternalFieldName:="ID", ExportFilter:="All Tasks", ImportMethod:=0, HeaderRow:=True, AssignmentData:=False, TextDelimiter:=Chr$(9), TextFileOrigin:=0, UseHtmlTemplate:=False, IncludeImage:=False


MapEdit Name:="Map 1", DataCategory:=0, FieldName:="PPT Slide #", ExternalFieldName:="PPT_Slide_No"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Outline Level", ExternalFieldName:="Outline_Level"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Outline Number", ExternalFieldName:="Outline_Number"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Name", ExternalFieldName:="Name"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="PPT Slide Text", ExternalFieldName:="PPT_Slide_Text"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Deliverable", ExternalFieldName:="Deliverable"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Decision / Approval", ExternalFieldName:="Decision-Approval"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Phase", ExternalFieldName:="Phase"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Resource Names", ExternalFieldName:="Resource_Names"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Duration", ExternalFieldName:="Duration"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Start", ExternalFieldName:="Start_Date"
MapEdit Name:="Map 1", DataCategory:=0, FieldName:="Finish", ExternalFieldName:="Finish_Date"
FileSaveAs Name:="IGPL_MSPROJ_Export.xlsx", FormatID:="MSProject.ACE", map:="Map 1"




End Sub

[TimZ]

?? [crickets] ??