利用HTML网页结合ACCESS数据，实现通用Excel系统中人员账号全自主注册添加，从而彻底解放了系统管理员，也让系统在维护过程中有更多安全高效的扩展性。

需要准备的工作：

一个Access数据库文件

一个HTML前端填写账号注册信息的页面和后台提交数据的程序页面

一个通用Excel系统中批量导入账号的模板

建立前端账号提交网页环境

在服务器本机上，建立一个共享目录，给予读、写权限，记下该目录的网络路径；

将前面准备好的Access数据库文件放到该目录下，里面字段根据实际需求自定；

做好HTML页面和数据提交页面与Access数据库的链接工作，保证这个页面能正常提交数据到数据库中；

（此处细节可参考网上现成的实例）

建立外部数据源

在通用Excel系统管理中，建立Access数据库的外部数据源；

注册该外部数据源，按规范，设置字段；

设置提取注册账号数据的模板

在通用Excel中建立一个简单的模板，利用表间取数公式，将Access数据库外部数据源中的数据获取过来；

利用VBA批量导入注册账号

在获取外部数据源的数据后，设置一端内部VBA，将账号信息批量导入系统。

Sub 保存()

           Dim obj As Object

           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

           For i = 5 To [最大行数]

           If (Cells(i, 3) = "" Or Cells(i, 4) = "" Or Cells(i, 5) = "" Or Cells(i, 6) = "" Or Cells(i, 7) = "" Or Cells(i, 8) = "" Or Cells(i, 9) = "") And (Cells(i, 10) <> "是" Or Cells(i, 11) <> "是" Or Cells(i, 12) <> "是") Then

           Else          

           sName = Cells(i, 3).Text    '姓名

           sAccount = Cells(i, 4).Text '账号

           sDept = Cells(i, 5).Text    '部门

           sRole = Cells(i, 6).Text    '角色

           sTel = Cells(i, 7).Text     '电话

           sEMail = Cells(i, 8).Text   '电子邮箱

           sPwd = Cells(i, 9).Text   '初始密码          

           obj.SetOperator 0, sAccount + "<#>" + sPwd, sName, sDept, sRole, sTel, sEMail '0修改或新增，1删除，2停用，3启用

           End If

           Next i

           obj.SaveReport

           Set obj = Nothing

End Sub

上述代码可在通用Excel教程中找到。

通过上述设置后，即可轻松批量导入自主提交的用户账号。