module2.bas

用VB编写的水准平差软件

Attribute VB_Name = "Module2"
Option Explicit
Public mExcel As Object, mBook As Object, mSheet As Object  '成品表对象
Public aExcel As Object, aBook As Object, aSheet As Object  '添加表对象
Public mEofSheet As Long '标志成品表最后一个单元格,已经有的单元格个数
Public aEofSheet As Long '标志添加表最后一个单元格,即本表所有的学生个数
Public mIndex As Long '用于循环
Public mNum As Single  '代表分制
Public mOpenFile() As String '保存已经导入过的文件
Public mOpenNum As Long '保存已经导入的表的个数