Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Built-in Dialog box for folders?
Is there a built-in Dialog box that lets you select a folder, similar to the
way xlDialogOpen lets you select a file? -- Al C |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Built-in Dialog box for folders?
Try this
Dim oApp As Object Dim oFolder Set oApp = CreateObject("Shell.Application") 'Browse to the folder Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512) If Not oFolder Is Nothing Then 'Do your stuff Else MsgBox "You not select a folder" End If -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Al" wrote in message ... Is there a built-in Dialog box that lets you select a folder, similar to the way xlDialogOpen lets you select a file? -- Al C |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Built-in Dialog box for folders?
Perfect!
Thank you, Ron. -- Al C "Ron de Bruin" wrote: Try this Dim oApp As Object Dim oFolder Set oApp = CreateObject("Shell.Application") 'Browse to the folder Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512) If Not oFolder Is Nothing Then 'Do your stuff Else MsgBox "You not select a folder" End If -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Al" wrote in message ... Is there a built-in Dialog box that lets you select a folder, similar to the way xlDialogOpen lets you select a file? -- Al C |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Built-in Dialog box for folders?
Mr Ron,
How to return the selected folder path to cell A1 as a text value. Thank's, Rgds, Shiro "Ron de Bruin" wrote in message ... Try this Dim oApp As Object Dim oFolder Set oApp = CreateObject("Shell.Application") 'Browse to the folder Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512) If Not oFolder Is Nothing Then 'Do your stuff Else MsgBox "You not select a folder" End If -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Al" wrote in message ... Is there a built-in Dialog box that lets you select a folder, similar to the way xlDialogOpen lets you select a file? -- Al C |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Built-in Dialog box for folders?
Hi Shiro
Try Sub test() Dim oApp As Object Dim oFolder Set oApp = CreateObject("Shell.Application") 'Browse to the folder Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512) If Not oFolder Is Nothing Then Range("A1").Value = oFolder.Self.Path Else MsgBox "You not select a folder" End If End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "shiro" wrote in message ... Mr Ron, How to return the selected folder path to cell A1 as a text value. Thank's, Rgds, Shiro "Ron de Bruin" wrote in message ... Try this Dim oApp As Object Dim oFolder Set oApp = CreateObject("Shell.Application") 'Browse to the folder Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512) If Not oFolder Is Nothing Then 'Do your stuff Else MsgBox "You not select a folder" End If -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Al" wrote in message ... Is there a built-in Dialog box that lets you select a folder, similar to the way xlDialogOpen lets you select a file? -- Al C |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Built-in Dialog Box Argument Button | Excel Discussion (Misc queries) | |||
Find/Replace built-in dialog in XP | Excel Programming | |||
Re : Making use of the Built-in Dialog Boxes | Excel Programming | |||
Getting a file name using a built in dialog box | Excel Programming | |||
Built-in file dialog question | Excel Programming |