gegevens uit # doc halen

[dewilde]

Heb verschilllende (23) doc en wil bewerkingen (grafieken) maken met deze gegevens. Is er een mogelijkheid om gegevens automatisch uit verschillende doc te halen?

Erik

 

[Wigi]

Deze code zou je kunnen gebruiken om doorheen de Excel bestanden in een map te gaan:

www.ozgrid.com/VBA/loop-through.htm

Het is al meerdere keren hier op het forum toegepast geworden.

FileSearch werkt wel niet in Excel 2007, dan moet je Dir gebruiken.

Wigi

 

[snb]

For each fl in createobject("scripting.filesystemobject").getfolder("E:\OF").files
  If right(fl.name,4)=".doc" then
    with getobject(fl.name)
       c0 =.content
       .close 0
    end with
  End if
  -------------
Next

Alle Worddocumenten in directory "E:\Of worden geopend.
De inhoud van het document wordt in variabele c0 gezet.
Op de stippellijn kun je een aktie zetten waarmee de inhoud van variabele c0 in een Excel-werkblad gezet wordt.