Archief - Excel macro een bestand laten uitvoeren

W

Whitespliff

Legacy Member

• 30 jan 2008

• #1

Hello, Als ik een klikbare knop maak & die link aan een bestand koppel wordt er altijd gevraagd of dit wel mag worden uitgevoerd (of het wel veilig is, blablabla). Ik zou graag hebben dat dat bestand onmiddelijk wordt uitgevoerd, geen gezaag door excel dus. Hoe kan ik een bestand laten uitvoeren in excel? Ik veronderstel dat dit via een macro moet kunnen. Iemand een idee? Tnx

n

ntLdr

Legacy Member

• 30 jan 2008

• #2

Macro beveiliging op laag zetten ?

W

Whitespliff

Legacy Member

• 30 jan 2008

• #3

Nee, macros worden zonder problemen uitgevoerd.
De vraag is hoe kan ik een extern bestand (.exe bv.) laten uitvoeren door een macro? Wat schrijf ik in men macro om dit uit te voeren? Tnx

T

TiZon

Legacy Member

• 30 jan 2008

• #4

Zou zo moeten werken denk ik:

Dim Pad as string
Pad = "C:\UwProgramma.exe" 'Aanpassen ;-)
Application.FollowHyperlink Pad

W

Whitespliff

Legacy Member

• 30 jan 2008

• #5

Domme vraag waarschijnlijk, is dit dan de macro?

PHP:

Sub print()
    
Dim Pad As String
Pad = "C:\Documents and Settings\***\print.exe"
Application.FollowHyperlink Pad

End Sub

Hier krijg ik een foutmelding mé, Application.FollowHyperlink Pad wordt aangeduid als fout hier.

Wat doe ik fout?

T

TiZon

Legacy Member

• 30 jan 2008

• #6

Probeer het anders zo is:

PHP:

Sub print() 
Application.FollowHyperlink "C:\Documents and Settings\***\print.exe", , True
End Sub

W

Whitespliff

Legacy Member

• 30 jan 2008

• #7

Blijkt ook niet te werken

Fout 438 tijdens uitvoering:
Deze eigenschap of methode wordt niet ondersteund door dit object.

n

ntLdr

Legacy Member

• 30 jan 2008

• #8

hmm

PHP:

sub print()

Dim retVal
retVal = Shell("C:\Documents and Settings\***\print.exe")

End sub

Btw als die print.exe degene is die ook in de system32 staat. Die verwacht ook nog een argument.

PHP:

sub print()

Dim retVal
retVal = Shell("C:\Documents and Settings\***\print.exe filetoprint.txt")

End sub

S

Suicide Monkey

Legacy Member

• 30 jan 2008

• #9

Probeer eens met het volgende:

Code:

Set shellDinges = CreateObject("Wscript.Shell")
shellDinges.Run ("c:\windows\system32\sol.exe")

Om geen melding te krijgen van de macro kan je een digitale handtekening aanmaken en onder extra toevoegen in de editor.

W

Whitespliff

Legacy Member

• 1 feb 2008

• #10

ntLdr zei:

hmm

Code:

sub print()

Dim retVal
retVal = Shell("C:\Documents and Settings\***\print.exe")

End sub

Klik om te vergroten...

Blijkt ook niet te werken:
Fout 5 tijdens uitvoeren
Ongeldige procedure-aanroep of ongeldig argument

Btw als die print.exe degene is die ook in de system32 staat. Die verwacht ook nog een argument.

Klik om te vergroten...

Is niet dat bestand, is er 1 dat ik zelf heb gemaakt.

Suicide Monkey zei:

Probeer eens met het volgende:

Code:

Set shellDinges = CreateObject("Wscript.Shell")
shellDinges.Run ("c:\windows\system32\sol.exe")

Om geen melding te krijgen van de macro kan je een digitale handtekening aanmaken en onder extra toevoegen in de editor.

Klik om te vergroten...

Euhm, watte ?
Waar voeg ik da toe & ik krijg enkel de melding dat de macro niet klopt.
Een bestaande macro kan ik zonder problemen uitvoeren.

Da heeft precies nogal wa in om een bestandje te kunnen laten uitvoeren onder excel ad:

S

Suicide Monkey

Legacy Member

• 1 feb 2008

• #11

Het is wel de bedoeling dat je die 2 regels ergens in de sub zet van vb een knop of ergens in een functie Met selfcert.exe kan je een digitale handtekening aanmaken. Als je dan in de editor in de menubalk onder extra kiest voor Digitale handtekening kan je een digitale handtekening toevoegen. Als je dan bij het opnieuw openen kiest om "macro's te vertrouwen van deze bron" krijg je geen melding meer waar je moet kiezen om de macro's uit te voeren.