|
发表于 2023-9-20 08:42:15
|
显示全部楼层
重庆市重庆市
.版本 2
.支持库 e2ee
.如果真 (取反 (xlBookLoadA (句柄, 取文本指针 (上传目录)) = 1)) ' 打开工作簿
xlBookReleaseA (句柄) ' 释放
返回 ()
.如果真结束
表_句柄 = xlBookGetSheetA (句柄, 读取表格) ' 取表格内容
行数 = xlSheetLastRowA (表_句柄) ' 取得行数
.变量循环首 (3, 行数 - 1, 1, 行) ' 读工作表数据
姓名 = 指针到文本 (xlSheetReadStrA (表_句柄, 行, 1, 0)) ' 读单元格文本
电话 = 指针到文本 (xlSheetReadStrA (表_句柄, 行, 3, 0))
预约日期 = 指针到文本 (xlSheetReadStrA (表_句柄, 行, 5, 0))
预约日期 = 时间_格式化EX (增减时间 (到时间 (“1900年1月1日”), 5, 到数值 (预约日期) - 2), , , 2)
预约时间 = 指针到文本 (xlSheetReadStrA (表_句柄, 行, 6, 0))
单位 = 指针到文本 (xlSheetReadStrA (表_句柄, 行, 7, 0))
value = value + “('” + 姓名 + “','” + 单位 + “','” + 预约日期 + “','” + 预约时间 + “','” + 电话 + “','” + 登记时间 + “','” + 备注 + “','1'),”
.变量循环尾 ()
value = 取文本左边 (value, 取文本长度 (value) - 1)
SQL = “insert into yuyue (name,company,date,time,tel,record,remarks,stat) values ” + value
连接池.取连接 (连接)
连接.执行 (SQL, , )
xlBookReleaseA (句柄) ' 释放
可以读取表的内容,然后直接写入表。我以前写过一个类似的。用了libxl
|
|