Excel 生成工作表后自动退出

EXCELLHJ

点击插入工作表 会自动得到一个模板，然后点击“快速搜索”按钮得到数据库数据 选择编码后按确定 数据自动填写到模板里 但是当查看生产汇总时 工作簿就自动关闭退出了 请老师们给看一下怎么回事啊 生产通知单第4版.rar (303.43 KB, 下载次数: 25)

2012-9-17 14:28 上传

点击文件名下载附件

EXCELLHJ

顶起  为什么会自动退出呢？代码的问题么？

EXCELLHJ

我找到问题了 可是怎么解决啊 代码冲突造成的
Private Sub CommandButton2_Click()
   Range("g7").Select
    [N14] = "=n13*L13"
    ActiveSheet.Name = Format(Now, "mm.dd.ss") & [C6]
'    With Sheet2
'    On Error Resume Next
'       r = .[a65536].End(3).Row + 1
'       k = Sheets.Count
'       .Cells(r, 1) = Sheets(k).Name
'    End With
Unload Me
End Sub

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
ActiveSheet.ComboBox1.Value = UserForm2.ComboBox3.Value
Sheet2.Range("A65536").End(xlUp).Clear
Sheet2.Range("b65536").End(xlUp).Clear
Sheet2.Range("c65536").End(xlUp).Clear
Sheet2.Range("d65536").End(xlUp).Clear
With Sheet2
    On Error Resume Next
       r = .[a65536].End(3).Row + 1
       k = Sheets.Count
       .Cells(r, 1) = Sheets(k).Name
       .Cells(r, 2) = Sheets(k).[O4].Value
       .Cells(r, 3) = DateValue(Application.Text(Left(.Cells(r, 2), 8), "0000-00-00"))
       .Cells(r, 4) = Application.Text(Right(.Cells(r, 2), 2), "00")
    End With
    Application.ScreenUpdating = True
End Sub
注释掉按钮1 里的代码错误消失 可是无法汇总了