Question

在VB中如何将采集的数据按行保存到一个excel文本中，也就是说采集一次在excel中放一行。

Answer 1

这个首先我找出最后的空行i = Sheet1.UsedRange.Rows.Count+1，那么ROW（i）就是空行,然后range("A"&i)=你要采集的值，如＝textbox1.text

Answer 2

原来放在啥地方?数组还是什么控件中?为什么不肯说出来?

追问

采集的数据放在了一个数组中了

追答

Dim aa(29, 29) As Integer

Private Sub Command1_Click()
Dim XlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
XlApp.Visible = True
Set xlBook = XlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range(xlSheet.Cells(LBound(aa, 1) + 1, LBound(aa, 2) + 1), xlSheet.Cells(UBound(aa, 1) + 1, UBound(aa, 2) + 1)).Value = aa
Erase aa '要释放数组，免得占用内存
End Sub

Private Sub Form_Load()
For i = LBound(aa, 1) To UBound(aa, 1)
For j = LBound(aa, 2) To UBound(aa, 2)
aa(i, j) = i * j
Next
Next i
End Sub
原创代码,第一次发布,建议采纳,欢迎加分

追问

xlSheet.Range(xlSheet.Cells(LBound(aa, 1) + 1, LBound(aa, 2) + 1), xlSheet.Cells(UBound(aa, 1) + 1, UBound(aa, 2) + 1)).Value = aa——这句没看懂
如果采集的10个数放到一维数组a()中呢

追答

你试试一维数组啊
xlSheet.Range(xlSheet.Cells(LBound(aa) + 1, LBound(aa) + 1), xlSheet.Cells(UBound(aa) + 1, UBound(aa) + 1)).Value = aa
这种方法特别快

追问

总是在这个地方For i = LBound(aa, 1) To UBound(aa, 1)，提示类型不匹配
还有上面的那句话能解释下吗？没看懂
麻烦你了啊，我还是菜鸟。加分哦

追答

改为
For i = LBound(aa) To UBound(aa)
VB是解释性语言,如果不认识哪个单词自己百度去,或者查字典,或者改行

追问

你在编程序时不进行调试一下吗？还这么自信满满