Opening a xl workbook using wildcard

[damorrison]

Hi,
I am using an input box to to select a folder for where the .xls
workbook is
##########
Sub Macro3()
Dim i As String
i = InputBox("Enter Job Number", , "Job Number")
Workbooks.Open Filename:="C:\" & i & "\Kicking Quotes.xls"
End Sub

#########
Each folder has 1 workbook but the workbook does not always have the
same name.

How can I open whatever workbook is in the folder selected?

Thanks

 

[Jim Rech]

This opens the first XLS file that the Dir function returns:

Sub a()
Dim DName As String
Dim FName As String
DName = InputBox("Enter Job Number", , "Job Number")
If DName <> "" Then
FName = Dir("C:\" & DName & "\*.xls")
If FName <> "" Then
Workbooks.Open "C:\" & DName & "\" & FName
End If
End If
End Sub


--
Jim
| Hi,
| I am using an input box to to select a folder for where the .xls
| workbook is
| ##########
| Sub Macro3()
| Dim i As String
| i = InputBox("Enter Job Number", , "Job Number")
| Workbooks.Open Filename:="C:\" & i & "\Kicking Quotes.xls"
| End Sub
|
| #########
| Each folder has 1 workbook but the workbook does not always have the
| same name.
|
| How can I open whatever workbook is in the folder selected?
|
| Thanks

 

[damorrison]

This opens the first XLS file that the Dir function returns:

Sub a()
    Dim DName As String
    Dim FName As String
    DName = InputBox("Enter Job Number", , "Job Number")
    If DName <> "" Then
        FName = Dir("C:\" & DName & "\*.xls")
        If FName <> "" Then
            Workbooks.Open "C:\" & DName & "\" & FName
        End If
    End If
End Sub

Thank You very much.