[求助]怎样才能把窗体中的数据写入Excel表中呢

hangyi

我这张表是没有做好的，因为我遇到了一个难题。在窗体中按“确定添加”后窗体中的数据不会写入Excel表中。

怎样才能自动把窗体中的数据写入Excel表中最后一行呢？（也就是将新记录添加到表中尾行）

哪位大侠帮帮我，这个问题我想了很久了，就是解决不了[em06]

[此贴子已经被作者于2006-6-25 22:45:11编辑过]

chenchunhuiabc

其中"确定添加"按钮用如下代码:

Private Sub CommandButton1_Click()
Dim ASDF As Range
For Each ASDF In Range("B7:B10000")
If ASDF.Text = "" Then
Cells(ASDF.Row, 1).Value = Cells(ASDF.Row - 1, 1).Text + 1 '自动输入序号,第一条不能自动输入,可以先手工输进去第一条记录
Cells(ASDF.Row, 2).Value = TextBox1.Text
Cells(ASDF.Row, 3).Value = ComboBox1.Text
'...其余省略
GoTo LINE1
Else
End If
Next
LINE1:
End Sub

hangyi

谢谢

chenchunhuiabc