Option Explicit 上传数据Private Sub CommandButton1_Click() If MsgBox("请确认数据是否准确,是否确认上传?", vbCritical + 6 + 16, "温馨提示") = vbNo Then Exit Sub End If '保存数据 Dim r, Atnum, rscount, i As Integer r = 6 Atnum = Sheet1.UsedRange.Rows.Count If A
前言 在日常开发当中,excel的上传与解析是很常见的.根据业务不同,解析的数据模型也都不一样.不同的数据模型也就需要不同的校验逻辑,这往往需要写多套的代码进行字段的检验,如必填项,数据格式.为了避免重复编写逻辑检验代码,于是有了这篇文章. 第一步.读取Excel表格数据 public ActionResult UploadExcel() { ResultInfo<List<User>> result = new ResultInfo<List<User>>