急！VB 文本框中的内容导入excel

电脑上只有VS2015，可能跟你的略有不同，大体意思应该一样，这里把如何往excel表格里写数据单独写了一个，你借鉴一下。

Public Class Form1

Dim xlapp As Microsoft.Office.Interop.Excel.Application

Dim xlbook As Microsoft.Office.Interop.Excel.Workbook

Dim xlsheet As New Microsoft.Office.Interop.Excel.Worksheet

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim i, j As Integer

Dim arr() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9}     '要填写的数据

Dim a As Integer = 3    '要填写共a行a列

xlapp = CreateObject("Excel.Application")

xlbook = xlapp.Workbooks.Open("C:\Users\Administrator\Desktop\vb.xlsx")   '桌面已有一个vb.xlsx，选择打开

xlapp.Visible = True

xlsheet = xlbook.Worksheets(1)     '选择第一张工作表，默认就是sheet1

For i = 0 To a - 1

For j = 0 To a - 1

xlsheet.Cells(i + 1, j + 1) = arr(i * a + j) '填写数据到指定单元格

Next j

Next i

End Sub

End Class

1、将Command3_Click内的代码全放到Command1_Click里，
同时修改其中一句的错误，将
Set xlsheet = book.Worksheets(Text1.Text)
修改为
Set xlsheet = xlBook.Worksheets(Text1.Text)
2、然后在Command1_Click里的For循环语句块（Next i )后面的下一行，添加如下语句即可。

xlsheet.Range("A1").resize(a,a) = arr

没看明白你遇到什么问题

什么样的内容呢？你的代码里面压根没有excel操作啊