제대로 VBA

Question

내가 배열을 필요로 할 때 나는 보통 변종을 사용에서 문자열 배열을 정의

Sub test() 'runs fine 
    Dim s 
    s = Array("a", "b", "c") 
    Debug.Print s(1) 
End Sub 

가 지금은 특정 경우에 대한 성능을 원하는을, 그래서 내가 문자열 배열을 사용하여 몇 millisec을 절약 할 수 있다고 생각. 어떻게해야합니까?

내 시도 :

Sub test2() 
    Dim s() As String 
    s = Array("a", "b", "c")  'run time error 13: type mismatch 
    Debug.Print s(1) 
End Sub 

감사합니다.

Answer 1

이 시도 :

Sub test2() 
    Dim s1 As Variant 
    Dim s2() As String 
    s1 = Array("a", "b", "c") 
    s2 = Split("a,b,c", ",") 

    Debug.Print VarType(s1) & " Array of variants" 
    Debug.Print VarType(s2) & " Array of strings" 
End Sub 

출력 :

8204 Array of variant 
8200 Array of string