请各位师傅帮忙看下，打开工程1后，双击 TEXT3 看看，
问题就写在里面，谢谢了。

还在线等。。。。谁帮个忙吧。。谢谢了

没看见什么问题，只是加两个endif，你代码没完成。

有啊。。。点TEXT3，我标注的那些中文字就是问题。。
不会用VB操作EXCEL。。
Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Text3.Text = Text2.Text Then
问题 '1.弹出 "是否保存" 提示框
        '2.如果按下"是"
        '3.Text4.text里的数据值会累加（如果为空，则为"0"）
        '4.打开 "C:\A.xls"文档
        '5.将 Text1.text \ Text2.text \Text3.text 数据分别填入 A1 , B1 , C1 单元格
        '（如果A1单元格有数据，则填入 A2 , B2 , C2）以此类推
        '6.保存并关闭 "A.xls文档"
        '7.再打开"C:\B.xls"文档
        '8.将Text1.text数据填入C1单元格，将Text2.text数据填入E5单元格，将Text3.text数据填入B14单元格
        '9.打印此文档
        '10.不保存，关闭 "B.xls文档"
        '11.清空 Text1 \ Text2 \ Text3
        '12.光标停在 Text1.text 上
        '13.如果按 “否” 则清空 Text1 \ Text2 \ Text3  光标停在 Text1.text 上
        '结束

请帮个忙，谢谢

再顶一下

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Text3.Text = Text2.Text Then
'1.弹出 "是否保存" 提示框
             if  MsgBox("是否保存?", vbYesNo) = vbYes then          '按下YES
        '3.Text4.text里的数据值会累加（如果为空，则为"0"）
               if len(text4.text)=0 then
                     text4.text = 0
               else
                     text4.text =val(text4.text)+1
               end if

               '打开 使用操作EXCLE 的方法打开 XLS 文件
Dim ExcelID As Excel.Application        '定义对象
Set ExcelID = New Excel.Application     '生成新的 Excel 对象

With ExcelID
    .Visible = True             'debug
’    .Visible = False             '显示EXCEL ,如果不用显示,这里就不显示
    .Caption = "应用程序调用 Microsoft Excel"            'EXECL 标题

        '4.打开 "C:\A.xls"文档
    .Workbooks.Open "C:\A.xls"     '打开文件
    .Worksheets.Item(1).Activate         '设置第一个工作表为活动工作表

        '5.将 Text1.text \ Text2.text \Text3.text 数据分别填入 A1 , B1 , C1 单元格
        '（如果A1单元格有数据，则填入 A2 , B2 , C2）以此类推
               i=1                        '搜索空单元格
               do  .cells(1,i)<>""
                   i=i+1
               loop
              .cells(1,i)=text1.text      '找到后填数据。此处有BUG。如果填满 255 列后，继续搜索空单元格和填数据，会导致出错。
              .cells(2,i)=text2.text
              .cells(3,i)=text3.text

        '6.保存并关闭 "A.xls文档"
              .Worksheets.save            '保存所有，好像会生产一个标志文件，会提示覆盖。
              .Worksheets.close           '关闭。这二句需要测试。

        '7.再打开"C:\B.xls"文档
    .Workbooks.Open "C:\B.xls"     '打开文件
    .Worksheets.Item(1).Activate         '设置第一个工作表为活动工作表  

        '8.将Text1.text数据填入C1单元格，将Text2.text数据填入E5单元格，将Text3.text数据填入B14单元格            
              .cells(3,1)=text1.text
              .cells(5,5)=text2.text
              .cells(2,14)=text3.text
        '9.打印此文档
              .Worksheets.Item(1).PrintOut                 '未经测试
        '10.不保存，关闭 "B.xls文档"
              .Worksheets.close              
              .quit
          end with
end if
        '11.清空 Text1 \ Text2 \ Text3
        '13.如果按 “否” 则清空 Text1 \ Text2 \ Text3  光标停在 Text1.text 上
       text1.text=""
       text2.text=""
       text3.text=""
        '12.光标停在 Text1.text 上
       text1.SetFocus

   end if
end if
end sub
----------代码未经任何方式的测试，纯浏览器编写，自行测试和解决问题。-----------

[ 本帖最后由 风吹过b 于 2013-4-19 17:25 编辑 ]

哇，谢谢版主师傅，小错误我可以试着边调边改，就是不懂怎么用VB操作EXCEL，你解答的很详细了，其他小地方我可以自己改了，非常感谢！！！
非常感谢！！！

学习了。。