Excel服务器的个性化应用
卢逢君
[联系方式：电话：010-62975419 / QQ：838806157 / MSN：qz.service2@163.com]
本文主要以截图的形式探讨了有关Excel服务器的个性化应用问题，涉及了六个方面：设置系统选项、Excel（模板/报表）工作环境设置、自定义函数应用、使用“模板属性”、配置ESWEB网站和个性化报表封面设计，希望对广大Excel服务器用户和学习者在设计模板和填报报表时有所启示。
一、设置Excel服务器“管理台”的“设置系统选项”和“我的工作台”的显示方式
(一)
在管理控制台中，点击“设置系统选项”，弹出“系统选项”对话框，勾选各种选项进行用户连接管理、“帐户管理”和“邮件服务器设置”。
图 1-1
图 1-2
图 1-3
图 1-4
(二) 在“我的工作台”中，点击“选项”，点选“已完成工作按年月分类”和“模板按年月分类”
图 1-5 模板按年月分类
图 1-6 选择要显示的列
图 1-7 选择要显示的列后的
(三) 在“管理数据表”/“字段定义窗体”中，设置“我的工作台”的显示方式
1．隐藏不需要的字段
图 1-8 设置某些数据项隐藏
2．调整字段先后次序
在“管理数据表”窗口中，选中某字段，按[上移]或[下移]，可改变该字段出现在我的工作台中的先后次序。
3．设置默认排序
假如你希望在“我的工作台”中显示的数据默认按某个或多个字段排序。可在“管理数据表”对话框中，设置其排序方式。例如，若希望客户登记表按登记日期、大区和客户名称排序，可设置如下：
图 1-10 设置默认排序字段
4．设置默认分类
假如你希望在“我的工作台”中显示的数据默认按某个或多个字段分类。可在“管理数据表”对话框中，设置其分类方式。例如，若希望订单按客户名称、订单日期排序，可设置如下：
图 1-11 设置默认分类字段
图 1-12 分类字段设置结果
二、对Excel工作环境进行个性化设置
（一）运行Excel服务器，点击“Excel服务器”、“选项”，弹出“选项”对话框，进行Excel工作环境设置。
图 2-1
图 2-2 常规标签
图 2-3 “快速填报工具栏”标签
图 2-4 设置结果
（二）使用Excel本身提供的“选项”命令对工作环境进行设置
1．选择Excel “工具”、“自定义”，弹出“自定义”对话框，勾选相应选项
图 2-5
图 2-6 “工具栏”标签设置Excel工具栏的显示与隐藏
图 2-7 “命令栏”标签设置Excel菜单栏的变更
图 2-8 其他设置
2．选择Excel “工具”、“选项”，弹出“选项”对话框，勾选相应选项
图 2-9
图 2-10 “视图”标签设置窗口选项的显示与隐藏
3．使用VBA代码完成上述1、2的自动化设置
Sub ShowWorkState() '显示窗体选项
Application.ScreenUpdating =
False
Application.DisplayAlerts =
False
Application.CommandBars("Standard").Visible = True '显示常用工具栏
Application.CommandBars("Formatting").Visible
= True '显示格式工具栏
Application.DisplayFormulaBar = True '显示公式编辑工具栏
Application.DisplayStatusBar
= True '显示状态栏
With ActiveWindow
.DisplayGridlines = True '显示网格线
.DisplayHeadings = True
'显示行列标题
.DisplayHorizontalScrollBar = True '显示水平工具条
.DisplayVerticalScrollBar = True '显示垂直工具条
.DisplayWorkbookTabs = True '显示工作表标签
End With
Application.DisplayAlerts =
True
Application.ScreenUpdating =
True
End Sub
Sub HideWorkState () '隐藏窗体选项
Application.ScreenUpdating =
False
Application.DisplayAlerts =
False
Application.CommandBars("Standard").Visible = False '隐藏常用工具栏
Application.CommandBars("Formatting").Visible = False '隐藏格式工具栏
Application.DisplayFormulaBar = False '隐藏公式编辑工具栏
Application.DisplayStatusBar
= False '隐藏状态栏
With ActiveWindow
.DisplayGridlines = False '隐藏网格线
.DisplayHeadings = False '隐藏行列标题
.DisplayHorizontalScrollBar = False '隐藏水平工具条
.DisplayVerticalScrollBar = False '隐藏垂直工具条
.DisplayWorkbookTabs = False '隐藏工作表标签
End With
Application.DisplayAlerts =
True
Application.ScreenUpdating =
True
End Sub
调用这些代码的方法可以是工作表事件、自定义工具栏或工具栏、图形、窗体按钮、控件按钮，如下图便是用图形按钮、窗体按钮和控件按钮来调用的；这样的目的是模板界面显得简介专业。
图 2-11
三、在模板中使用Excel VBA创建的自定义函数
右键点击“文件（F）”的左侧图标，弹出快捷菜单，点击“查看代码”，打开VBA编辑器
图 3-1
图 3-2 插入1模块
图 3-3 在模块中输入以下代码－创建自定义函数PY
Public
Function PY(TT As String) '自定义函数：把一组汉字变为一组汉字拼音的第一个字母。
PY = ""
For i = 1 To Len(TT)
temp
= Asc(Mid$(TT, i, 1))
If
temp > 255 Or temp < 0 Then
'是汉字吗？
PY = PY & pinyin(Mid$(TT, i, 1)) '转化为拼音首字母，
Else
PY = PY & LCase(Mid$(TT, i, 1))
'转化英文字母
End
If
Next i
End
Function
图 3-4在Sheet1模块中输入以下代码
Private Sub
Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count > 1
And Target.Columns.Count > 1 Then Exit Sub
If Target.Row > 4 And
Target.Column <> 3 Then Exit Sub
On Error Resume Next
If Target.Value <>
"" Then
Target.Offset(, 1).Value = PY(Target.Value)
Else
Target.Offset(, 1).Value = ""
End If
End Sub
图 3-5 自定义函数PY应用结果
四、在模板设计状态，使用“模板属性”更改模板的保护和保存设置
图 4-1更改模板的保护
图 4-2更改模板的保存设置
建议更改系统默认的工作表保护口令为自己的保护口令，这样的可以提高工作表保护的安全性，还可以在VBA代码中调用这个参数值。假如在图
4-1的“工作簿保护密码”文本框中输入的密码为“111”，下面就是利用该密码的一种情况，如前所述打开VBA编辑器：
图 4-3在Sheet1模块中输入以下代码
Sub
Worksheet_SelectionChange(ByVal Target As Range)
'只有第1行可以插入和编辑批注
If Target.Row = 1 Then
On
Error Resume Next
Me.Unprotect 111
Else
On
Error Resume Next
Me.Protect Password:=111, Contents:=True
End If
End Sub
图 4-4 行1可以“设置单元格格式”
图 4-5其他行（如行2）则禁止“设置单元格格式”
五、配置ESWEB网站
（一）显示（隐藏）登录界面上的服务器文本框——安装时默认显示
1. 打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add key="
ShowDBServer" value="0" /> ，若文件中显示的是value=”0”，则登录界面上的服务器文本框为隐藏状态，若改成value=”1”则显示服务器文本框。
图 5-1 显示服务器文本框
图 5-2 不显示服务器文本框
（二）预定义数据库服务器名称
系统初始默认的数据库服务器为安装时指定的服务器，若需要修改默认值，则进行如下操作：
1. 打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add key="DBServer"
value="" /> ，将需要设置的数据库服务器名称填写到value之后的两个双引号之中即可（例如：如果数据库服务器名称为server，则修改后的
文件内容为：
<add key="DBServer" value="server" />）
（三）设置服务器端口号
如果更改了MS SQL Server的端口号，安装完Excel服务器后，必须对ESWEB进行配置。
1.打开ESWEB的安装路径下的web.config
2.找到<add Key="Port" value="" />， 对value=端口号赋值，例如，如果端口号改为251，则<add Key="Port" value="251" />。
3.保存。
（四）禁止拷贝数据和图片的方法
1. 打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add key="NoCopy" value="0" />，将value=”0”改成value=”1”即可.
value="1" 表头禁止拷贝数据和图片
value="0" 表头允许拷贝数据和图片
（五）设置数据显示宽度
1. 打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add key="dataMaxLen"
value="50" />，将value=”50”改成所需要的值即可. 超出宽度的部分显示...。
（六）设置表头是否折行
1. 打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add
key="HeaderStyleWrap" value="0" />：
value="1" 表头不折行
value="0" 表头折行
（七）设置是否选用日期控件
1. 打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add
key="useDateControl" value="1"/>：
value="0"：不使用
value="1"：使用
默认为 1
（八）设置是否显示“进入示例数据库”
1.打开系统安装目录下\Excel server\esWeb\Web.config。（用记事本就可打开）
2. 找到<add key="ShowSampleDB"
value="1"/>：
value="0"：不显示
value="1"：显示
默认为 1
（九）限定附件大小
<!-- 设置上传文件大小限制 15000=15M
<httpRuntime maxRequestLength="15000" executionTimeout="3000"></httpRuntime>
可以设定maxRequestLength，改变上传文件大小。
（十）设置检索待办事宜间隔时间
<!-- 检索待办事宜间隔时间，单位：秒；有效值介于 60 ~ 900,默认120 -->
<add
key="searchMsgTime" value="120"/>
六、设计个性化的报表封面
（一）表页式：在工作表中综合运用颜色、框线和图形等生成表页式报表封面。
（二）窗体式：使用用户自定义窗体和图形控件等生成窗体式报表封面，可在Workbook_Open事件中使用Userform.Show方法调用。
最后，希望大家综合应用这些知识，更加全面掌握Excel服务器，提高自主设计系统的能力。