如何使用Excel VSTO C＃列出特定文件夹中的所有excel文件名以及每个文件中使用的总行数

Question

我是Excel加载项的新手。

我有一个特定的文件夹，我希望Excel加载项在其中搜索任何excel文件（包括子文件夹，并列出运行该加载项的现有excel文件中的所有文件名和行总数。

任何帮助将不胜感激。

非常感谢。

Answer 1

这应该做您想要的。

Sub OpenAllExcelFiles()

Dim wb As Workbook, wbCSV As Workbook
Dim sPath As String, sFilename As String
Dim NbRows As Integer, rg As Range

Set wb = ThisWorkbook

Application.ScreenUpdating = False

sPath = "C:\your_path\"       'Path of CSV Files
sFilename = Dir(sPath & "*.xlsx")


Do While Len(sFilename) > 0
    Set wbCSV = Workbooks.Open(sPath & sFilename)         'open file
    NbRows = wbCSV.Sheets(1).Range("A100").End(xlUp).Row  'nb of rows

    Set rg = wb.Sheets(1).Range("A100").End(xlUp).Offset(1, 0)
    rg = sFilename
    rg.Offset(0, 1) = NbRows


    wbCSV.Close False   'close file
    sFilename = Dir

Loop
Application.ScreenUpdating = True

End Sub

我的测试用例的最终结果：