Sub 万途标签()Dim iFor i = 1 To Sheets.Count If Sheets(i).Name = "数据表" Then If MsgBox("数据表已经存在,是否删除?", vbOKCancel) = vbOK Then Sheets(i).Delete Else MsgBox "条码生成操作已经取消." Exit Sub End…
Sub 万途标签()Dim iFor i = 1 To Sheets.Count If Sheets(i).Name = "数据表" Then If MsgBox("数据表已经存在,是否删除?", vbOKCancel) = vbOK Then Sheets(i).Delete Else MsgBox "条码生成操作已经取消." Exit Sub End…