1. 如下Excel表,总共有120多行数据,如何将以50行数据为一个工作表进行拆分 Sub ZheFenSheet() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).End(xlUp).Row b = InputBox("请输入分表行数") If IsNumeric(b) Then WJhangshu = Int(b) Else MsgBox "输入错误
select id,name, concat('tel:',phone) from user order by time INTO outfile 'user.txt' FIELDS terminated by '\,';字段以逗号分隔,导出的user.txt文件在数据库目录下 导出结果到sqlselect * from user into outfile '/home/db.sql'; 字段之间的分隔字符,转义字符,包括字符,及记录行分隔字符.列在下面: FIELDS TERMINATED B
本来是想通过NOPI自己编写个小工具分割excel的,但是不想去研究API,就百度了一下,找了很久,有几个软件说是为了这个功能而生,实际上要么不能使用,要么出错,所以暂时没有公开可用的软件. 然后我就继续搜索,在百度上,有位高人使用VBA提供了此解决方案. Sub cfb() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).End(xlUp).Row c = Cells(, Column