if (fileName == "") return ""; var CurrentRow = 0; Workbook work = new Workbook(fileName); var sheet = work.Worksheets[0]; string name = ""; if (sheet != null) { name = sheet.Name; //获取建设期 var cp = 10; var rowCount = sheet.Ce
Sub 将所有列全部转换为文本() t=timer 'Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号 s = Cells(, Columns.Count).End(xlToLeft).Column '获取第一行最后一个非空单元格的列号 For i = To s Columns(i).Select Selection.TextToColumns Destination:=Cells(, i), DataType:=xlDelimited,