是不是这样改?
Private Sub CommandButton1_Click()
Dim arr
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then ISTR = ISTR & "," & .List(i)
Next
End With
arr = Split(ISTR, ",")
If UBound(arr) Then
aplication.Run .selects(i)
End If
Unload Me
End Sub
-----------------------------------------------------------
Private Sub CommandButton1_Click()
Dim arr
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then aplication.Run .selects(i)
Next
End With
Unload Me
End Sub
------------------------------------------------------------
这两种修改方法都得出“方法和成员未找到”,运行失败。