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

Excel阅读文本

1 个答案: