导入更新文本并把需要的十列给分别记录成十个表
说明: 1:在文件夹里有一个工作簿和一个文本,文本每2分钟更新一次;
2:要在工作簿的第一个表上建个按键,先把文本导入第二个表,再把第三个表(是从第二个表整理出来的)里的各更新列(从第三列开始到第十三列,每列对应一表共十个表)给分别记录下来,每按一次键就文本导入并在十个表相同列位置向右各写入一列,开始记录列是C列,不按不记录,
3:还要建个清除键,每天开始记录前可清除掉工作簿后十个记录表里原来的记录,工作簿(共有十五个表)前五个表不记录,是用来保存前天数据和汇总判断的,可不用管,但要不受两按键影响;
4:记录列可以是整列或最大行数1800,最大列数250。
说明: 1:在文件夹里有一个工作簿和一个文本,文本每2分钟更新一次;
2:要在工作簿的第一个表上建个按键,先把文本导入第二个表,再把第三个表(是从第二个表整理出来的)里的各更新列(从第三列开始到第十三列,每列对应一表共十个表)给分别记录下来,每按一次键就文本导入并在十个表相同列位置向右各写入一列,开始记录列是C列,不按不记录,
3:还要建个清除键,每天开始记录前可清除掉工作簿后十个记录表里原来的记录,工作簿(共有十五个表)前五个表不记录,是用来保存前天数据和汇总判断的,可不用管,但要不受两按键影响;
4:记录列可以是整列或最大行数1800,最大列数250。
1. 用split分割每行文本为数组 ss= split(s,",")
2. 用for循环依次打开excel中的表
Set sh = wb.Sheets(i)
sh.Cells(1, i)=ss(i)