Question

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

首先，在form3上有根据form2.text2.text中输入的数字（假设为a）生成的a行，a列的文本框，然后，我点击模拟生成按钮在文本框中生成了数字。接下来我想把生成的a行，a列的数字导入到excel中，重要的是在excel中也要按照a行a列的位置显示。下图分别是生成文本框、模拟生成数字、导入excel的代码，多谢高手指点！
我的问题是，该如何把文本框里的数值导入到excel中，并且顺序和textbox的顺序一样，a行a列个文本框，其中的数值导入到excel中依然是a行a列。谢谢！





Answer 1

电脑上只有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

追问

您好，对于您dim arr的部分有些疑问，我要输入excel的数据是随机生成的，已经在textbox里了，具体您看下第二页上的代码，那么括号里就不能在里边写1 2 3 .,了，这里该怎么改呢？非常感谢您！

追答

你的Text1(m).text里面已经有数据了，用个循环都提取到arr()里去应该就可以了吧

追问

您好，我把您写的

导入数据的部分，加在了数据生成的部分，但是文件里没显示出来数字，可以向您请教下吗？

代码如图

Answer 2

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

Answer 3

没看明白你遇到什么问题

追问

抱歉。我的问题是，该如何把文本框里的数值导入到excel中，并且顺序和textbox的顺序一样，a行a列个文本框，其中的数值导入到excel中依然是a行a列。谢谢！

追答

cells（x,y）=me.textbox1.text
具体怎么写，要看了你的文件才知道

追问

您愿意看一下吗？愿意的话您就留个email地址，谢谢您🙏

Answer 4

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