변형 배열을 구분 된 문자열로 변환하려고 시도 할 때 항상 형식이 일치하지 않습니다.

Question

궁극적으로 텍스트 파일에 범위를 쓰려고합니다. 범위의 값을 얻으면 2 차원 변형 배열을 반환합니다. 그러나 변환 함수에 전달하려고하면 형식 불일치 오류가 발생합니다.

코드는 다음과 같습니다

Dim Data As String 
Set ts = fso.CreateTextFile("testfile.txt", True) 
Data = ArrayToDelimitedString(wksMyWorkSheet.Range("rngMyRange").Value) 
ts.Write (Data) 
ts.Close 

Public Function ArrayToDelimitedString(variantArray() As Variant) As String 
    Dim delimitedString As String, index As Integer 

    For index = 1 To UBound(variantArray(1)) 
     delimitedString = delimitedString & CStr(variantArray(1, index)) & "," 
    Next 
    ArrayToDelimitedString = Left(delimitedString, Len(delimitedString) - 1) 
End Function 

.Value는 2 차원 배열을 반환하는 이유가 궁금하네요 그리고 왜 나에게이 불일치 오류를주고있다.

Answer 1

Range() 메서드는 Variant의 Variant를 반환합니다. 2D 배열 (변형 문자열)을 사용하려는 경우 Transpose 메서드를 사용하십시오.

ArrayToDelimitedString(wApplication.WorksheetFunction.Transpose(wksMyWorkSheet.Range("rngMyRange").Value))