Excel에서 텍스트 읽기

Question

Excel의 워크 시트에서 모든 내용을 읽고 String 변수에 할당하려고합니다.

Dim TextTxt as String 

'looping through worksheets to find worksheet "Card" 

If Sheet.name = "Card" Then 
        ThisWorkbook.Sheets("Card").Copy 
End If 

위의 코드는 시트를 복사하지만 이것을 "TextTxt"라는 텍스트 변수에 어떻게 할당 할 수 있습니까? 이 TextTxt 변수는 나중에이 코드에서 필요한 문자열을 분할하고 찾는데 사용됩니다.

Answer 1

이렇게하면 시트의 모든 데이터를 가져 와서 개체에 저장할 수 있습니다. 이것은 아직 질문의 텍스트 파일 부분에 대한 출력을 해결하지 못합니다.

업데이트 대답

Sub Test() 
Dim TextTxt As Range 
Dim c As Range 
Dim sOutput As String 

'looping through worksheets to find worksheet "Card" 
If ActiveSheet.Name = "Card" Then 
    Set TextTxt = ThisWorkbook.Sheets("Card").UsedRange 
    For Each c In TextTxt 
     sOutput = c.Value & "," & sOutput 
    Next c 
End If 

MsgBox (sOutput) 

End Sub