excel导入

获取excel对象

1. 获取本地文件路径：FilePath = Dialogs.ShowOpenFileDialog
2. 获取文件类型：FileType = FilePath.Substring
3. 创建excel对象：
   1.var excel = new ActiveXObject("Excel.Application")
   2.excelWorkBook = excel.Workbooks.Open(FilePath);
   3.excelSheet = excelWorkBook.Worksheets(1);

读取excel对象中数据

1. 获取遍历行列（行列数为原始文件的行列数，修改后保持不变）
   1.行数：rowCount = excelSheet.UsedRange.Rows.count;
   2.列数：colCount = excelSheet.UsedRange.Columns.count;
2. 读取列
   var cell = excelSheet.Cells(i,j).Value
3. 缓存到数组
   1.遍历列数组：arrRow = lims.AAdd(arrRow, cell)
   2.遍历行数组：arrData = lims.AAdd(arrData,arrRow);

数据持久化到数据库

1.定义键值对平行数组用于操作关系表：
arrColumnName
arrColumnValue
2.为每组键值对数组赋值：
Aadd(arrColumnName, "CLEARANCEID");
Aadd(arrColumnValue, “clearanceid”);
3.插入表字段
1.遍历行执行sql语句
2.遍历每行前清空键值对平行数组
3.拼接sql语句
表：Insert into CLEARANCEFORM
列：BuildStringforin(arrColumnName)
值：StrTran(BuildStringForIn(arrColumnValue),chr(39),chr(63))
将单引号替换为问号（sql变量）