Private Sub menudy_Click(Index As Integer) 这是一个打印菜单
Select Case Index
Case 0
On Error GoTo Last
diaoyong = Shell("D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgl.xls", 1)
Case 1
On Error GoTo Last1 作为空表处理
diaoyong = Shell("D:Program FilesMicrosoft
OfficeOfficeEXCEL.EXE c:glgly.xls", 1)
Case 3
EXIT
End Select
Exit Sub
Last:
diaoyong = Shell("EXCEL.EXE c:glgl.xls", 1)
Exit Sub
Last1:
diaoyong = Shell("EXCEL.EXE c:glgly.xls", 1)
End Sub |
