• 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.

Start een VB routine vanuit een andere sheet

Status
Niet open voor verdere reacties.

Roboman

Gebruiker
Lid geworden
5 jun 2014
Berichten
48
Geacht Forum,

Tweede Poging, nu met Code tags, (Bedankt Edmoor voor de terechte opmerking)

Waarschijnlijk Ik heb een klein probleem, maar krijg m'n vinger niet achter de oplossing. Wat is het geval:
Ik heb op een sheet (laten we zeggen Sheet A) een VB script draaien wat emails stuurt en wat andere zaken afhandelt, en dat werkt prima.
Nu heb ik een worksheet toegevoegd (EmailLog) om wat logging te kunnen bijhouden die gevoed moet worden als de VB routine op Sheet A gerund wordt.
In de VB routine die in sheet A draait een stukje code toegevoegd aan het einde van het script zodat alles uitgevoerd is voordat het nieuwe script Copy2EmalLog op Sheet EmailLog gestart wordt zodat ik alle gegeven kan ophalen. Mijn probleem is dat ik de code voor deze call wel heb, den kik, maar ik krijg de verwijzing naar de code op het andere sheet EmailLog niet voor elkaar.

De code die ik denk uitgevonden te hebben die in het bestaande script op Sheet A ingebouwd zit en dat de Vb routine op sheet "EmailLog" moet aanroepen zioet er zo uit.


Code:
Worksheets("EmailLog").Activate

 Dim objShell
 Set objShell = Wscript.CreateObject("Copy2EmailLog.Shell")

 objShell.Run "Copy2EmailLog"
 Set objShell = Nothing

Zelf denk ik dat ik fouten maak in het gehighlighte deel waar een verwijzing ontbreekt naar de sheet "EmailLog". Ik heb al van alles geprobeerd maar houd een 424 runtime error, maar ik denk dat ik gewoon over de oplossing heen kijk.

Dus om kort te gaan;
Vanuit Sheet A en VB script A, wil ik Script B starten op Sheet B

Wie kan mij hierbij helpen?

met vriendelijk groet, en wacht met spanning af,

Roboman



.
 
VOlgens mij kan je die gehele code vervangen door de ene regel:
Code:
Copy2EmailLog
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan