• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel bestand openen met macro

Status
Niet open voor verdere reacties.

PSVSupporter

Gebruiker
Lid geworden
13 aug 2009
Berichten
148
Ik wil vanuit Access een Excel bestand openen. Dat is geen probleem.
Maar wat ik ook wil, is direct een macro openen.

Als ik de Help functie goed begrijp, zou dit moeten kunnen door de /a optie te gebruiken.
Echter, er gebeurd niets, ook geen foutmelding. Wel wordt het bestand gewoon geopend.


Wat het doel is: Ik heb een dagelijks voorraadbestand. Zodra ik nieuwe mail krijg, checkt een macro of er een nieuw voorraadbestand gemaild is. Zo ja: Bijlage opslaan in een directory en Access openen met een specifieke macro. Daardoor wordt in Access automatisch de bijlage geïmporteerd en verwerkt. Daarna wil ik dus vanuit Access het Excel bestand openen met een specifieke macro die dan alle grafieken/draaitabellen bijwerkt.Deze laatste stap lukt me dus nog niet.

Ik wil NIET met autostart/autoexec o.i.d. werken, want als een gebruiker dan het Excel bestand opent, wil ik niet dat hij allerlei schermpjes voorbij ziet komen. Daarbij is de kans reëel dat de gebruiker geen geldige ODBC koppeling kan opzetten en dus direct tegen foutmeldingen aanloopt. Het is ook niet nodig te vernieuwen, want de gegevens zijn immers al opgeslagen (als de macro tenminste opgestart kan worden).

Kortom lang verhaal, maar hoe krijg ik via de opdrachtregel /a nu de macro opgestart?
 
Code:
sub voorbeeld()
  With Getobject("C:\voorbeeld.xls")
    .application.run "macronaam"
  End With
End Sub
 
Thanks, dit heeft me behoorlijk op weg geholpen.

Ik heb nu deze code:
Code:
    With GetObject("L:\Logistiek\Statistieken\Opslag\Voorraad.xls")
        .Application.Visible = True
        .Application.windows(1).Visible = True
        .Application.Run "Opstarten_Vanuit_Access"
        .Close
    End With

Als ik .Application.Visible en .Windows(1).Visible niet gebruik, wordt de macro niet gevonden en opgestart.


Nu werkt dit allemaal goed, op 1 ding na: Het bestand wordt wel gesloten, maar Excel zelf niet. Als ik in de macro van Excel dit opneem, krijg ik een foutmelding in Access, vandaar dat ik het bestand sluit met .Close.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan