组织结构图的动态生成－有谁来帮助我们HR工作者解放生产力？

qigan

呵呵，那直接用筛选就可以了。

需要多部门查询时就用自定议筛选。

[ 本帖最后由 qigan 于 2010-10-14 16:30 编辑 ]

sunya_0529

原帖由 linjiangbin 于 2010-10-9 22:48 发表
在用绘制组织结构图时，数据透视表已经很接近能够实现动态汇总功能了，但是没有办法在各个部门下面直接列明部门员工的具体岗位、名字、编制等信息？
如附件，急求高手们帮忙解决！！

你要求的这个结构图也不是常规意义上的结构图，另外，数据透视表通常用来做数据统计分析。对于文本格式的报表，他是无能为力的。

附件里用数据透视表和VBA分别做了示例。其中数据透视表的格式与你的要求相差甚远，不过这已经是我认为她能做到的最终的格式了。

VBA代码比较繁琐，可能有优化的空间。如果你需要定制查询的范围，比如说只查询某个中心或者某几个中心的结构，只需要修改一下里面的一句SQL语句就好了。这里的代码默认是查询所有的中心，请注意。

linjiangbin

感谢sunya_0529
我回去认真地研究了一下，还有一个小问题：

Dim aa
'=====以下代码连接"Data"表=====
Set objConn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
aa = ThisWorkbook.Path & "\Data\人岗.xls"

objConn.Open "Provider=Microsoft.Jet.OleDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
strSQL = "SELECT DISTINCT 部门或门店 FROM aa.[岗编$] ORDER BY 部门或门店 DESC"  '注意绝对路径的引用格式
rs.Open strSQL, objConn, 3, 1   

如下语句，我想对aa 进行定义，实现跨表的SQL语言调用，且不因路径的变化而变化
现在用SQL 调用时 FROM语句后面好像出现问题了
再次请教了

sunya_0529

应该是数据库连接代码的问题，试试下面的：

Dim aa$
'=====以下代码连接"Data"表=====
Set objConn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
aa = ThisWorkbook.Path & "\Data\人岗.xls"

objConn.Open "Provider=Microsoft.Jet.OleDB.4.0;Extended Properties=Excel 8.0;Data Source=" & aa
strSQL = "SELECT DISTINCT 部门或门店 FROM [岗编$] ORDER BY 部门或门店 DESC"  '注意绝对路径的引用格式
rs.Open strSQL, objConn, 3, 1

jeffno1

想学习一下！

hhzjxss

下载看了，只是生成一个表格呀，我还以为是图呢，不过也得谢谢！