Question

怎么把VB中text文本框内的多行数据导入到Excel中？在Excel中可以实现多行数据。

比如，A1存放text中的第一行，A2存放text中的第二行，A3。。。依次类推。

Answer 1

在vb引用窗口中，引用Excel的DLL文件
【工程】-【引用】-microsoft excel 11.0 object library

然后代码中。
Private Sub Form_Load()
Dim ex As New Excel.Application
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Set wb = ex.Workbooks.Add("")
Set sh = wb.Worksheets(1)
a = Split(text1.Text, vbCrLf)
For i = 0 To UBound(a)
sh.Cells(1, i + 1) = a(i)
Next
Set sh = Nothing
Set wb = Nothing
Set ex = Nothing
End Sub

Answer 2

给个建议：
你一定要用TEXT来存放你的每行数据吗？不能用数组或是别的？
一定要用的话，可以使用ASCII码来判断每行的结尾是否存在回车或换行符，有此符号，表示是一行，截取依次写入就成