List all filenames & tab names

[Deeds]

What I would like to do is, within Excel, create a list down one column of
all the file names within a certain folder. Listed with the filename,
somehow, I would like to have a list of all the tab names within each of the
listed file names.
Any ideas?
Thanks again!

[Bernard Liengme]

Sounds like a question for the excel.programming newsgroup.
It is SHEETS that have names; theses names are on the TABS.
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Deeds" <Deeds@discussions.microsoft.com> wrote in message
news:70E4038F-4D14-4EF8-A134-967AB0DFCD64@microsoft.com...
> What I would like to do is, within Excel, create a list down one column of
> all the file names within a certain folder. Listed with the filename,
> somehow, I would like to have a list of all the tab names within each of
> the
> listed file names.
> Any ideas?
> Thanks again!

[Deeds]

thanks for the clarification....can I move my post to another group?...if so,
how?

"Bernard Liengme" wrote:

> Sounds like a question for the excel.programming newsgroup.
> It is SHEETS that have names; theses names are on the TABS.
> --
> Bernard V Liengme
> www.stfx.ca/people/bliengme
> remove caps from email
>
> "Deeds" <Deeds@discussions.microsoft.com> wrote in message
> news:70E4038F-4D14-4EF8-A134-967AB0DFCD64@microsoft.com...
> > What I would like to do is, within Excel, create a list down one column of
> > all the file names within a certain folder. Listed with the filename,
> > somehow, I would like to have a list of all the tab names within each of
> > the
> > listed file names.
> > Any ideas?
> > Thanks again!
>
>
>

[Don Guillett]

I think you would have to use DIR to get the names of
Sub FindExcelFiles() 'It does work.
Application.ScreenUpdating = False
Dim FN As String ' For File Name
Dim ThisRow As Long
Dim FileLocation As String
FileLocation = "c:\ahorse\*.xls"
FN = Dir(FileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub

within the for/loop, LIst the file>open the file and incorporate something
like this to get the sheets

For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i


--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"Deeds" <Deeds@discussions.microsoft.com> wrote in message
news:70E4038F-4D14-4EF8-A134-967AB0DFCD64@microsoft.com...
> What I would like to do is, within Excel, create a list down one column of
> all the file names within a certain folder. Listed with the filename,
> somehow, I would like to have a list of all the tab names within each of
> the
> listed file names.
> Any ideas?
> Thanks again!

[Deeds]

Thanks... can you let m e know how to get the sheet names that are in each
file? I don't follow the end of your suggestion about the file>open.

Ultimately this is what I want.....
I open an excel file....put my cursor on cell A1...start the macro...it
populates column A with all of the files in designated folder...under each
filename...indented slightly is a list of all the sheet names within that
file....and so on through all the files in that folder.

Hope this helps....thanks for your efforts I appreciate it!

"Don Guillett" wrote:

> I think you would have to use DIR to get the names of
> Sub FindExcelFiles() 'It does work.
> Application.ScreenUpdating = False
> Dim FN As String ' For File Name
> Dim ThisRow As Long
> Dim FileLocation As String
> FileLocation = "c:\ahorse\*.xls"
> FN = Dir(FileLocation)
> Do Until FN = ""
> ThisRow = ThisRow + 1
> Cells(ThisRow, 1) = FN
> FN = Dir
> Loop
> Application.ScreenUpdating = True
> End Sub
>
> within the for/loop, LIst the file>open the file and incorporate something
> like this to get the sheets
>
> For i = 1 To Sheets.Count
> Cells(i, 1).Value = Sheets(i).Name
> Next i
>
>
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "Deeds" <Deeds@discussions.microsoft.com> wrote in message
> news:70E4038F-4D14-4EF8-A134-967AB0DFCD64@microsoft.com...
> > What I would like to do is, within Excel, create a list down one column of
> > all the file names within a certain folder. Listed with the filename,
> > somehow, I would like to have a list of all the tab names within each of
> > the
> > listed file names.
> > Any ideas?
> > Thanks again!
>
>
>

[Pete_UK]

Why not have the sheet names going across, in line with the file name
they refer to?

Pete