Question

VB 向excel写入字符串类型数据

现在的这段程序已经实现了从另外一台电脑上得到新的字符串数据tmpstr，写入第一列的单元格，写入的数据为数字型的。其中相关的代码如下：

Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)

Dim Row As Long
Dim tmpstr As String

Winsockserver.GetData tmpstr
Row = 1
Do Until ExlSheet.Cells(Row, 1).Text = ""
Row = Row + 1
Loop
ExlSheet.Cells(Row, 1).Value = Val(tmpstr)

End Sub
我想改成写入字符串型的
将下面的语句中倒数第二行改成了 ExlSheet.Cells(Row, 1).text = tmpstr
结果程序报1004错误，说是不能设置range的text属性，请各位高人相助

Answer 1

将
Do Until ExlSheet.Cells(Row, 1).Text = ""
中的“.TEXT"去掉