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

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

有啊。。。点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 上
        '结束

请帮个忙，谢谢

再顶一下

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