View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] jbroers@hotmail.nl is offline
external usenet poster
 
Posts: 1
Default Opening with Excel All Word documents of a Sharepoint site

From all Word documents on a Sharepoint site I want to copy
information to an Excel workbook.
I can open just 1 document en copy the information to Excel, but how
do I open all the files?
--
The following code Works fine for 1 document:

Dim appWord As Word.Application, docWord As Word.Document
Dim strPath As String

Set appWord = GetObject(, "Word.Application")
code
strPath = "http://server/folder/folder/test.docm"
Set docWord = appWord.Documents.Open(strPath)
---
the following code gives an error (Path not found)
Dim objFSO As Object , objFolder As Object, strPath as String
strPath = "http://server/folder/folder" (with or without an
extra /)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder= objFSO.Folder(strPath)

In the View / Explorer the path is the same as on the Sharepointsite,
as given voor strPath


What do I wrong???