Public Oznajmiać Funkcja CR_VBGetSingleRes Wyzwolenie "DResult" (ByVal A Jako Sznurek, _
ByVal B Jako Sznurek, _
ByVal C Długo, _
ByRef D () Długo, _
ByVal E Długo, _
ByVal F Jako Sznurek, _
ByVal G Jako Smyczkowy _
) Długo
Funkcja CallCResultsFunction ()
Ćmić A Sznurek
Ćmić B Sznurek
Ćmić C Długo
Ćmić D () Długo
Ćmić E Długo
Ćmić F Sznurek
Ćmić G Sznurek
'set wartość dla zmienna
A = "C:\doe22\"
B = "C:\DOE - 2_Output \ SFM-w10-v75-hAC-t1-cCAv-mRB-HV-SFDuctSeal-40pct-12pct - Linia końcowa Projekt"
C = 3005006
E = (1)
F = "2005"
'Teraz wywoławczy funkcja i wysyłać parametr
Wywoławczy CR_VBGetSingleRes (A, B, C, D, E, F, G)
Debug.Print D (1)
Końcówka Funkcja
|