1/修改变量:
n = mysheet.UsedRange.Rows.Count + 1
取消For..循环,你每按一次就保存一行,循环什么呢?
2/调整:
mysheet.Cells(1, 1).Value = "1#采集点"
mysheet.Cells(1, 2).Value = "2#采集点"
mysheet.Cells(1, 3).Value = "3#采集点"
mysheet.Cells(1, 4).Value = "4#采集点"
mysheet.Cells(1, 5).Value = "5#采集点"
mysheet.Cells(1, 6).Value = "6#采集点"
mysheet.Cells(1, 7).Value = "7#采集点"
mysheet.Cells(1, 8).Value = "8#采集点"
mysheet.Cells(1, 9).Value = "数据采集时间"
这些不用放到循环里来。
你用了 for next 循环 不就是这样吗 就是这样处理的没错啊 把循环去掉……
你这个循环是 把所有行的的数据 都写一遍……
要把新数据写在最下面一行 就 把下段的 cells(n…… 改成 cells(n+1……
不要循环!!!!