VBS에서 함수 다중 반환 값 구현

여기 코드 구현은 함수 다중 반환 값만 실현하는 것이 아닙니다.
이 사상을 빌려 엑셀훙 VBA가 VBScript 코드에 의해 호출되는 것을 실현할 수 있는데 왜 VBS로 VBA를 호출해야 합니까?
그동안 까다로운 문제에 부딪혔다. 엑셀에 10만 개의 데이터가 많이 저장되어 있다. 나는 사전의 형식으로 이 10만 개의 데이터를 Dictionary 대상으로 저장하고 싶다.

' 1 ——  Class
'  
Class MultiValue
    Dim a, b, c
End Class

Function ClassMulti(param1, param2, param3)
    Dim oClass
    '    
    Set oClass = New MultiValue
    oClass.a = param1
    oClass.b = param2
    oClass.c = param3
   
    '  oClass 
    Set ClassMulti = oClass
End Function

Dim oClass
Set oClass = ClassMulti("value1","value2","value3")


Msgbox oClass.a & vbCrlf & oClass.b & vbCrlf & oClass.c

 

' 2 ——  Dictionary  

Function DictionaryMulti(param1, param2, param3)
    Dim oDict
    '  
    Set oDict = CreateObject("Scripting.Dictionary")
    '  
    oDict("a") = param1
    oDict("b") = param2
    oDict("c") = param3

   '  Dictionary 
   Set DictionaryMulti = oDict
End Function

Dim oDict, sMsg
Set oDict = DictionaryMulti("value1", "value2", "value3")


'  Dictionary 
For Each vKey In oDict
    sMsg = sMsg & oDict.Item(vKey) & vbCrlf
Next

Msgbox sMsg

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

【VBScript】 ServerXMLHTTP로 WebAPI에 액세스

이 항목은 3일째 항목입니다. 2일째는 씨에 의한 엔트리였습니다. 평소는 매우 신세를지고 있습니다. 아라타나 개발부의 입니다. 아라타나 Advent Calendar 2017도 3일째군요. 이번에는 ASP(VBScri...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

VBS에서 함수 다중 반환 값 구현

좋은 웹페이지 즐겨찾기