[已解决]怎么老提示缺少End Sub，请高手帮我看看是怎么回事？

aiai188

Sub 按钮5_单击()
Private Sub cmdNewOrder_Click()
     Dim r As Long
     r = Range("J2")
     If Range("B" & r) = "" Then Exit Sub
     ′用当前行的数据新建订单
     Dim oAdd As Object
     oAdd = Application.COMAddIns("ESClient.Connect").Object
     oAdd.addInitData "客户编号", Range("B" & r)
     oAdd.addInitData "客户名称", Range("C" & r)
     oAdd.addInitData "发货地址", Range("D" & r)
     oAdd.addInitData "办公电话", Range("E" & r)
     oAdd.newReport "订单"
     oAdd = Nothing
End Sub

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-16 09:56

Sub 按钮5_单击()
Private Sub cmdNewOrder_Click()

这两行都是过程名，写在一起就重复了。随便去掉一个都可以。

跳转到最佳答案楼层

爱疯

不要第一行：

Sub 按钮5_单击()

wayy

不要Private Sub cmdNewOrder_Click()　这一行

sunjing-zxl

Sub 按钮5_单击()
Private Sub cmdNewOrder_Click()

这两行都是过程名，写在一起就重复了。随便去掉一个都可以。

wenchduan

Sub 按钮5_单击()
Private Sub cmdNewOrder_Click()
两个Sub 只有1个End sub 肯定语法过不去！？删掉一个吧

free1024

前两行,有两个Sub,随便去掉一行,保留一行即可.