Open "ANY" excel files in a particular folder

-- I am using the following string to open "ANY" excel file in a specific folder..

Workbooks.Open Filename:= _
"C:\Excel Data Extract\AnyFile.xls"

-- Would it be better to use this one?
"C:\Excel Data Extract\ &''"& '.xls'"

Any ideas..?? THANKS!!!!

Originally Posted by Ayansane

-- I am using the following string to open "ANY" excel file in a specific folder..

Workbooks.Open Filename:= _
"C:\Excel Data Extract\AnyFile.xls"

-- Would it be better to use this one?
"C:\Excel Data Extract\ &''"& '.xls'"

Any ideas..?? THANKS!!!!

Filename = Dir("c:\Excel Data Extract\*.xls", vbNormal)
MsgBox Filename

should give you the first file, is that what you need?

---

Hessey,

Sincere thanks!!

That was quite helpful. It works now!!

I am even able to open all the files.

Would you happen to know how I can alternate between excel "files/workbooks" without having to type in the exact name of every single file as there are hundreds..?

Thanks in advance.

Hammy

This sub below will pull all the files from any folder path and name the sheets the file name and imports into a single workbook , Just name a new workbook as IMPORT BOOK.
Patrick
Sub IMPORT_ALL_SHEETS()
Dim WB As Workbook
Dim TheFile As String
Dim MyPath As String
MyPath = 'FOLDER PATH
ChDir MyPath
TheFile = Dir("*.xls")
Do While TheFile <> ""
Set WB = Workbooks.Open(MyPath & "\" & TheFile)
ActiveSheet.Name = ActiveWorkbook.Name
ActiveSheet.Move After:=Workbooks("IMPORT BOOK").Sheets(Sheets.Count)
TheFile = Dir
Loop
End Sub