Excel VBA with power point?

[Malcom Jazz]

I have bunch if power point files in a folder C:\123
I want to list each slide in those powerpoint files in the
excel sheet alongwith full path and filename. Is it
possible?

Regards,
Malcom

 

[Matt Jensen]

Howdy Malcom
I'm in no position to provide code to use, however if you go here:
http://groups-beta.google.com/group/microsoft.public.excel.programming/
and search (using the second search field - ie. search within this
newsgroup)
on 'listing files' there is tonnes of relevant examples eg.
http://groups-beta.google.com/group...blic.excel.programming&q=listing+files&qt_g=1
HTH
Matt

 

[Bob Phillips]

Malcolm,

Here is some code to do it


Sub FileListing()
Dim i As Long
Dim oFolder As Object
Dim oFldr As Object
Dim oFile As Object
Dim oFiles As Object
Dim sOld As String

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\myTest")

a = 2
For Each oFldr In oFolder.subFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
If oFile.Type = "Microsoft Powerpoint Presentation" Then
sOld = oFile.Name
Range("A" & a) = sOld
a = a + 1
End If
Next oFile
Next oFldr

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)