Excel Read to Text

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