摘要：给ListBox添加内容If CheckBox8 = True Then---------------------------checkbox控件被选中 For i = 0 To ListBox1.ListCount - 1--------------循环将值赋到ListBox中 If i < ListBox1.ListCount Then ' If ListBox1.Selected(i) Then ' ListBox1.RemoveItem (i)---------------clear selected row 删除选中内容 Me.ListBox1.Selected 阅读全文

摘要：Dim site As String Dim FolderName As String Dim FolderName1 As String Dim Rarexe As String Dim Source As String Dim Target As String Dim FileString As String Dim Result As Long FolderName = Sheet6.Range("F34").Value FolderName1 = Sheet6.Range("F35").Value site = ThisWorkbook.Path 阅读全文