100分相送，急

Question

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

Answer 1

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

Answer 2

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

Answer 3

新建一工程窗体，添加控件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 SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then '如果按的是回车,则跳到TEXT2
  If Text1.Text = "" Then Exit Sub
  Text2.SetFocus
 End If
End SubPrivate 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