Public erklären Funktion CR_VBGetSingleRes Bibliothek „DResult“ (ByVal A als Schnur, _
ByVal B als Schnur, _
ByVal C als lang, _
ByRef D () als lang, _
ByVal E als lang, _
ByVal F als Schnur, _
ByVal G als Schnur _
) Als lang
Funktion CallCResultsFunction ()
A als Schnur verdunkeln
B als Schnur verdunkeln
C als lang verdunkeln
D () als lang verdunkeln
E als lang verdunkeln
F als Schnur verdunkeln
G als Schnur verdunkeln
'gesetzte Werte für Variablen
A = „C:\doe22\“
B = „C:\DOE - 2_Output \ SFM-w10-v75-hAC-t1-cCAv-mRB-HV-SFDuctSeal-40pct-12pct - Grundlinien-Entwurf“
C = 3005006
E = 1
F = „2005“
'Funktion jetzt benennen und Parameter senden
CR_VBGetSingleRes (A, B, C, D, E, F, G) benennen
Debug.Print D (1)
Funktion beenden
|