Excel VB Code to open another excel file (variable)

[santa12345]

Hello.
I have the following code that works.
Sub sbVBA_To Open_Workbook()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\testuser\Desktop\export\order1.xls")

My question is... can the current vb code be changed to accommodate any file name?
Meaning I will export one file to the export folder. The filename could be order1.xls, order2.xls, customername.xls, customer.xls, etc..
But it will be the only file in the export folder.

Please let me know if this is possible.
Thank you!

 

[Marc L]

Hi,​

​

just use the VBA function Dir to find out the file …​

 

[johnnyL]

@santa12345 Try changing your code to the following:

Sub sbVBA_To Open_Workbook()
    Dim wb As Workbook
    Dim strFilePath As String

    strFilePath = Application.GetOpenFilename
    If Not strFilePath = "False" Then
        Set wb = Workbooks.Open(strFilePath)
    End If

 

[santa12345]

let me try that