I don't use FSO but sounds like it is giving you the filename but not the path, you may want to try something like I have added in red to get the proper path for your file and see if that solves the issue.
Dim FSO, FLD, FIL, objExcel
Set objExcel = CreateObject("Excel.application")
strFolder = "H:\My Documents"
Set FSO = CreateObject ("Scripting.FileSystemObject")
Set FLD = FSO.GetFolder (strFolder)
For Each FIL in FLD.Files
objExcel.workbooks.open strFolder & "\" & FIL.Name
On another note your Dim statements should be changed. As is you are defining all your vars as Variants which is not a good idea. You need to specify what type you want each variable to be.
Last edited by DataMiser; December 7th, 2011 at 09:45 AM.