Hi Cole
Is there some flag I can use to close the explorer window after a file
is opened?
Can't help you with that
Why not use GetOpenFilename
Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String
SaveDriveDir = CurDir
MyPath = ThisWorkbook.Path
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
"Cole" wrote in message oups.com...
Hi there,
I'm opening an Explorer window via pressing a button in Excel, so the
user can open another spreadsheet. Problem is - after the user double
clicks on a file to open it, the Windows Explorer window remains open.
Is there some flag I can use to close the explorer window after a file
is opened?
Here is my current code:
Private Sub CommandButton7_Click()
' This is button to Open a Check List
Dim myFolder As String
myFolder = "F:\smithfiles\"
ChDrive myFolder
ChDir myFolder
Shell "explorer.exe /n, /e, /select,F:\smithfiles\Operations Check List
v2.1.xls", vbNormalFocus
End Sub
Note 1: I'm just highlighting the most commonly selected file, but user
needs to be able to select any Excel file to open.
Note 2: I'm also open to using a standard Windows Open-File dialogue
box, but I could not make heads or tails of the examples I found on
google-groups. And I've already looked over Ken Getz' code - I'm too
much of a newbee to make sense of all that. Can someone please spell
it out for me.
Thank you in advance for your help ! MUCH Appreciated !
Cole