Get sheets name without file open
See if this runs quicker
Sub test()
Folder = "c:\temp\"
FName = Dir(Folder & "*.xls")
RowCount = 1
Do While FName < ""
Set obj = GetObject(Folder & FName)
For Each Sht In Sheets
Range("A" & RowCount) = FName
Range("B" & RowCount) = Sht.Name
RowCount = RowCount + 1
Next Sht
Set obj = Nothing
FName = Dir()
Loop
End Sub
"Bartosz" wrote:
Hello,
Could I can get information about sheets name in files at one folder without
open all this files.
I need list:
file1.xls sheets1
file1.xls sheets2
file1.xls sheets3
file2.xls sheets1
file2.xls sheets2
...
with open files it is no problem, but it took lot of time (about 50 files).
Could I make it faster?
Regards,
Bartosz
|