100分相送，急

[bloodghost]

请问高手，假如在vb中新建一窗体，窗体中有一个标签，两个文本框，分别命名为TEXT1.TEXT,TEXT2.TEXT还有两个按钮，现在我的要求是在两个文本框中
分别输入15个数值，假如在text1文本框中输入值后按回车键，光标自动切换 到
text2文本框中，输入值后按回车键则第一组值存入二维数组中，两文本框中的内容
自动清空进行第二组值输入。。。。。。。直到十五组全部输入完后按ok按钮，则把刚才录入的值自动的填入到新建的excel报表中怎么做？帮帮忙！
标签必须提示用户此时输入第几组数值？

[bloodghost]

能否举个具体一点的实例，就是由vb程序自动生成一个excel报表及整个过程
能否发我的信箱[e-mail]谢谢

[victorycyz]

老大，你的录入界面为什么要做成这样？这样的功能实现是很简单的。问题是用户看到这样的录入方式会不会烦你呀！

[9raul]

新建一工程窗体，添加控件label1,text1,text2
单击工程》引用》选择Microsoft Excel 9.0……》确定
代码如下：
Dim SS(1 To 15, 1 To 2) As String '存储Text1和Text2内容的数组
Dim I As Integer '记录当前第几条记录
Dim xlApp As New Excel.Application 'EXCEL程序，必须先 工程》引用》选择Microsoft Excel 9.0……》确定
Dim xlBook As Excel.Workbook 'EXCEL工作簿
Dim xlSheet As Excel.Worksheet 'EXCEL工作表

Private Sub Form_Load()
Text1.Text = "" '全部置初值
Text2.Text = ""
I = 1
Label1.Caption = I
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '如果按的是回车,则跳到TEXT2
If Text1.Text = "" Then Exit Sub
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2.Text = "" Then Exit Sub
SS(I, 1) = Text1.Text 'TEXT2按回车先赋值给数组SS
SS(I, 2) = Text2.Text
If I < 15 Then '如不是15条则继续输入
I = I + 1
Label1.Caption = I
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else '如已是第15条则启动EXCEL,打开工作表,填充单元格
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets("Sheet1")
xlApp.Visible = True
For I = 1 To 15
With xlSheet
.Range("a" & I).Value = SS(I, 1)
.Range("b" & I).Value = SS(I, 2)
End With
Next
Text1.Text = "" '全部置初值
Text2.Text = ""
I = 1
Label1.Caption = I
Text1.SetFocus
End If
End If
End Sub

[gemgama]

用DDE把录入的值自动的填入到新建的excel
Private Sub Command1_Click()
Dim CurRow As String
Static Row
Row = Row + 1
CurRow = "R" & Row & "C1"
Text1.LinkItem = CurRow
End Sub

Private Sub Form_Load()
Text1.LinkTopic = "Excel|Sheet1"
Text1.LinkItem = "R1C1"
Text1.LinkMode = 1
Label1.Caption="1"
End Sub


标签必须提示用户此时输入第几组数值:
Private Sub CmdOk_Click()
Label1.Caption=Label1.Caption + 1
End Sub