row = Range(“A1048576”).End(xlUp).row
Set wb = Workbooks.Add
wb.Sheets(1).Range("a1") = GetColName(j) & i & "单元格内容长度不为4!" wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False wb.Close False
Set wb = Workbooks.Add
wb.Sheets(1).Range("a1") = GetColName(j) & i & "单元格内容长度不为2!" wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False wb.Close False
Set wb = Workbooks.Add
wb.Sheets(1).Range("a1") = mzchongfu & "单元格内容重复!" wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False wb.Close False
Set wb = Workbooks.Add
wb.Sheets(1).Range("a1") = ywchongfu & "单元格内容重复!" wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False wb.Close False