vba 杂记2

'检测地址中是否有回车换行  '用系统函数，这个方法可以清除所有非打印字符 addr = Application.WorksheetFunction.Clean(addr)  '清除一个换行回车符 addr = Replace(addr, Chr(10), "")  addr = Replace(addr, Chr(13), "") 

 

'遍历文件夹  folder = GetTargetFolder     MyFile = Dir(folder & "*.xlsb")     MyFile = Dir(folder & "*.xls")         ' xlsm     If MyFile <> "" Then         count = count + 1         Arr(count) = MyFile             Do While MyFile <> ""            MyFile = Dir            If MyFile = "" Then                 Exit Do             End If            count = count + 1            Arr(count) = MyFile         '???????????         Loop     End If