Sub fun1() '统计每一个sheet有多少行数据 Set s1 = Sheets("Sheet1") 'totalok = 0 To Sheets.Count s1.Cells(i, ) = Sheets(i).Name r = Sheets(i).Range("A65535").End(xlUp).Row s1.Cells(i, ) = r Then totalok = totalok + r End If Next s1.Cells(, ) = tota
添加引用: using System.IO; using NPOI.XSSF.UserModel; using NPOI.SS.UserModel; using NPOI.HSSF.UserModel; 获取模版文件路径: string modelExlPath = "\\xls\\文件名.xls"; // 前面“\\xls\\是文件路径”,可以如:\\Users\\Administrator\\Desktop\\ HSSFWorkbook hssfworkbookDown; //创建