Excel gebruiken vanuit outlook

[Wieltje]

Ik wil vanuit een outlook-macro een excelbestand openen, hierin enkele wijzigingen aanbrengen en vervolgens het excelbestand zichtbaar maken

Voor het openen en wijzigen gebruik ik het volgende:

   .....
   path =
   subject =
   quote =
   .....
   .....
    Dim ex as object
    Set ex = CreateObject("excel.application")
    ex.workbooks.Open FileName:= path

    ex.activeWorkbook.sheets("email").Range("email_subject") = subject
    ex.activeWorkbook.sheets("email").Range("email_quote") = quote

    ex.activeWorkbook.save
    ex.visible=true

   .....
   .....

Dit werkt, maar nou wil ik voorafgaand aan het openen kijken of het bestand al geopend is. Als dat het geval is moet het object ex op het geopende bestand ingesteld worden.
Voor het kijken of het bestand open is heb ik wel wat gevonden, maar hoe kan ik het object nou juist instellen?

edit: via een ander forum kwam ik op het volgende:

ex = getobject(path)

Dit werkt goed maar nou werkt het commando ex.visible=true niet meer ("eigenschap/methode wordt niet ondersteund door dit object").
De rest van de opdrachten (zoals bv die cellen invullen) werken wel...

Iemand enig idee waar dit door komt? En hoe ik excel alsnog zichtbaar kan maken?

 

[Guus2005]

Helen Feddema heeft op haar site diverse voorbeelden staan van interaktie tussen de verschillende office onderdelen.

 

[Wieltje]

Thnx. In een van de voorbeelden kwam ik het probleem tegen: blijkbaar moet het (object).application.visible=true zijn.

 

[Guus2005]

Om het vullen van je spreadsheet sneller te laten verlopen kan je gebruik maken van de property:

appExcel.ScreenUpdating=False

Als je dan aan het eind van je lus

appExcel.ScreenUpdating=true

zet dan zie je je spreadsheet gevuld met je gegevens. Significant snelheids verschil!

Enjoy!

 

[Wigi]

Thnx. In een van de voorbeelden kwam ik het probleem tegen: blijkbaar moet het (object).application.visible=true zijn.

Bedankt om het te melden. Zet de vraag nog op opgelost aub.

 

[Wieltje]

Bedankt om het te melden. Zet de vraag nog op opgelost aub.

Hoe doe ik dat?

 

[Wigi]

Rechts onderaan op de pagina van de vraag kan je de status van de vraag op opgelost zetten.

 

[mderking]

Ik wil vanuit een outlook-macro een excelbestand openen, hierin enkele wijzigingen aanbrengen en vervolgens het excelbestand zichtbaar maken

Voor het openen en wijzigen gebruik ik het volgende:

   .....
  edit: via een ander forum kwam ik op het volgende:
[code]ex = getobject(path)

Dit werkt goed maar nou werkt het commando ex.visible=true niet meer ("eigenschap/methode wordt niet ondersteund door dit object").
De rest van de opdrachten (zoals bv die cellen invullen) werken wel...

Iemand enig idee waar dit door komt? En hoe ik excel alsnog zichtbaar kan maken?

Waar heb je dit precies neergezet?

Ik ben nu ook aan het worstelen met een soort gelijk scriptje, maar de boel werkt bij mij ook nog niet precies.

Zet je die regel als vervanging van de "ex.workbooks.Open FileName:=Path" regel neer?

m.v.g,
Mark

 

[Wieltje]

Waar heb je dit precies neergezet?

Ik ben nu ook aan het worstelen met een soort gelijk scriptje, maar de boel werkt bij mij ook nog niet precies.

Zet je die regel als vervanging van de "ex.workbooks.Open FileName:=Path" regel neer?

m.v.g,
Mark

Nee, getobject vervangt ook de regel erboven:

Set ex = CreateObject("excel.application")
ex.workbooks.Open FileName:= path

wordt

ex = getobject(path)