采集数据.doc

使用 EXCEL 采集汇总数据在多台电脑上同时输入,最后自动汇总到一台电脑上,可以提高工效。 C:\Documents and Settings\szj\桌面\ 如图: 跟据需要可以自己更换项目名称,在教师机上进行如下设置 1 、修改教师机名称为: teacher 2 、设置一个完全共享的文件夹,名称为“采集数据$” 3 、把下面的 EXCEL 文件复制到各个客户机 4 、在客户机上输入所有的内容后,单击下面的按钮。全部完成后打开教师机中的共享文件夹,就可以汇总数据了。双击这里可以打开内嵌文件最后使用 EXCEL 打开这个文件,进行统计。参考程序如下: Sub 采集数据()' Dim XINMING, banji As String Dim FEN As Integer Dim fileso As New Dim ts As TextStream ' 设置记录内容的路径'Set ts= ("\\teacher\ 采集数据$\ ", ForAppending, 1) Set ts= ("c:\ ", ForAppending, 1) Range("b2") Range("b2"): " ": Range("c2"): "" Range("b2"): " ": Range("c2"): "" Range("b3"): " ": Range("c3"): "" Range("b4"): " ": Range("c4"): "" Range("b5"): " ": Range("c5"): "" Range("b6"): " ": Range("c6"): "" Range("b7"): " ": Range("c7"): "" Range("b8"): " ": Range("c8"): "" Range("b9"): " ": Range("c9"): "" Range("b10"): " ": Range("c10"): "" Range("b11"): " ": Range("c11"): "" Range("b12"): ts