Code to Open Excel File Please Help
 

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

Code to Open Excel File Please Help
 

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

Code to Open Excel File Please Help
 

Ron: Worked GREAT. Thank you!!! If you ever have any serious health
issues - let me know - I might be able to help in return.
With much appreciation,
Cole

Ron de Bruin wrote:
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