Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opens directory
I would like a macro that opens the directory D:\VEST\spBackup so that I can
see the files inside. Any help would be greatly appreciated, Roger |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opens directory
Hi Roger,
Roger B. wrote: I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside. If you simply want to open the folder in Windows Explorer, you can do something like this: Public Sub gShowFolder(rsPath As String) Dim sh As Object Set sh = CreateObject("Shell.Application") sh.Explore rsPath Set sh = Nothing End Sub -- Regards, Jake Marx www.longhead.com [please keep replies in the newsgroup - email address unmonitored] |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opens directory
Hi Roger
Maybe you want GetOpenFilename See the VBA help also Sub test() Dim FName As Variant Dim wb As Workbook Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = "D:\VEST\spBackup\" ChDrive MyPath ChDir MyPath FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls") If FName < False Then Set wb = Workbooks.Open(FName) MsgBox "your code" wb.Close End If ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Roger B." wrote in message ... I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside. Any help would be greatly appreciated, Roger |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opens directory
Hi Roger
Maybe you want GetOpenFilename See the VBA help also Sub test() Dim FName As Variant Dim wb As Workbook Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = "D:\VEST\spBackup\" ChDrive MyPath ChDir MyPath FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls") If FName < False Then Set wb = Workbooks.Open(FName) MsgBox "your code" wb.Close End If ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Roger B." wrote in message ... I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside. Any help would be greatly appreciated, Roger |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opens directory
Or this
Sub test() Shell "explorer.exe C:\Data", vbNormalFocus End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Jake Marx" wrote in message ... Hi Roger, Roger B. wrote: I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside. If you simply want to open the folder in Windows Explorer, you can do something like this: Public Sub gShowFolder(rsPath As String) Dim sh As Object Set sh = CreateObject("Shell.Application") sh.Explore rsPath Set sh = Nothing End Sub -- Regards, Jake Marx www.longhead.com [please keep replies in the newsgroup - email address unmonitored] |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel opens in Autosave.How do I delete it so it opens in Book1? | Setting up and Configuration of Excel | |||
Excel file opens and opens and opens | Excel Discussion (Misc queries) | |||
Excel opens correct view - web (used frontpg) opens it wrong | Excel Discussion (Misc queries) | |||
Creating a macro that lists directory names within a directory.... | Excel Programming | |||
Check if directory empty OR no of files in directory. | Excel Programming |