Sub filelist()
Dim MyName, Dic, Did, i, t, F, TT, MyFileName'On Error Resume NextSet objShell = CreateObject("Shell.Application")Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)If Not objFolder Is Nothing Then lj = objFolder.self.Path & "\"Set objFolder = NothingSet objShell = Nothingt = TimeSet Dic = CreateObject("Scripting.Dictionary")    '创建一个字典对象Set Did = CreateObject("Scripting.Dictionary")Dic.Add (lj), ""i = 0Do While i < Dic.CountKe = Dic.keys   '开始遍历字典MyName = Dir(Ke(i), vbDirectory)    '查找目录Do While MyName <> ""If MyName <> "." And MyName <> ".." ThenIf (GetAttr(Ke(i) & MyName) And vbDirectory) = vbDirectory Then    '如果是次级目录Dic.Add (Ke(i) & MyName & "\"), ""  '就往字典中添加这个次级目录名作为一个条目
                End IfEnd IfMyName = Dir    '继续遍历寻找
        Loopi = i + 1LoopDid.Add ("文件清单"), ""    '以查找D盘下所有EXCEL文件为例
    For Each Ke In Dic.keysMyFileName = Dir(Ke & "*.xls")Do While MyFileName <> ""Did.Add (Ke & MyFileName), ""MyFileName = DirLoopNextFor Each Sh In ThisWorkbook.WorksheetsIf Sh.Name = "XLS文件清单" ThenSheets("XLS文件清单").Cells.DeleteF = TrueExit ForElseF = FalseEnd IfNextIf Not F ThenSheets.Add.Name = "XLS文件清单"End IfSheets("XLS文件清单").[A1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys)TT = Time - tMsgBox Minute(TT) & "分" & Second(TT) & "秒"
End Sub

        [TestMethod]public void GetXlsTest(){WriteLog("error", "info", "query start");IWorkbook workbook = WorkbookFactory.Create("C:\\Users\\Administrator\\Desktop\\file-list.xlsx");ISheet sheet = workbook.GetSheetAt(0);for (int i = 1; i <= sheet.LastRowNum + 1; i++){var row = sheet.GetRow(i);if (row != null){ICell cell = row.GetCell(0);if (cell != null){FindXlsSheetData(cell.ToString());}}}WriteLog("error", "info", "query end");}

        private void FindXlsSheetData(string path){try{if (File.Exists(path)){IWorkbook workbook = WorkbookFactory.Create(path);for (int s = 0; s < workbook.NumberOfSheets; s++){ISheet sheet = workbook.GetSheetAt(s);for (int i = 1; i <= sheet.LastRowNum + 1; i++){var row = sheet.GetRow(i);if (row != null){StringBuilder line = new StringBuilder();line.Append(path + ",");for (int j = 0; j < row.LastCellNum; j++){ICell cell = row.GetCell(j);if (cell != null){line.AppendFormat("{0}{1}", cell.ToString().Trim(), ",");}}int sheetIndex = s + 1;WriteLog("gk", "sheet" + sheetIndex + "-", line.ToString().TrimEnd(','));}}}}}catch (Exception ex){WriteLog("error", "info", path + " query error " + ex.Message);}}