Question

求教VB做一个命令控件把已有TEXT1的数据写到OLE中EXCEL单元格里的代码

要求写到OLE中EXCEL单元格时要判断该单元格是否已经有数据。假设A1单元格没数据，那么当点击命令空间时，就把TEXT1的数据写到A1单元格里。假设A1单元格有数据，A2单元格没有数据，就把TEXT1的数据写到A2单元格。以此类推，每次都判断该列单元格中最上一个没有数据的单元格，然后把TEXT1的数据写到该单元格内。
请问该如何写这个程序。。。

求教了！！！！

Answer 1

Private Sub Command1_Click()
Dim i As Integer, xls As Object
Set xls = OLE1.object.sheets(1)
Do
    i = i + 1
Loop Until xls.cells(i, 1).Value = ""
xls.cells(i, 1).Value = Text1.Text
End Sub