alex_bn_lee

摘要： Sub OpenCloseArray() Dim MyFile As String Dim Arr(100) As String Dim count As Integer MyFile = Dir("F:\Desktop\98、99年\" & "*.xls") '修改文件夹路径 count = count + 1 Arr(count) = MyFile Do While MyFile <> "" MyFile = Dir I... 阅读全文