Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2981|回复: 10

[已解决]为避免共享工作薄的冲突,将一个工作薄分解为两个工作

[复制链接]
发表于 2013-5-16 15:00 | 显示全部楼层 |阅读模式
本帖最后由 liwenhong 于 2013-5-19 10:56 编辑

        问题描述:
        原来“信息库”工作表和“职工信息录入”工作表同在一个共享工作薄中,这个工作薄放在局域网共享文件夹中,供多用户使用。
        “职工信息录入”工作表是一个增加新员工,以及将员工信息录入到“信息库”工作表的平台,当有几位用户同时使用该平台,进行增加新员工操作时,会引起“冲突”。为避免冲突,将两个工作表分开,各自建立工作薄。请高手帮助修改原来代码,将工作薄分开。

       另外,原来将员工信息转到“信息库”工作表时,带有格式,这次修改只想转入文本,不要格式了。

两个工作薄的要求:
1、分开后的工作薄分别为“信息库”工作薄和“职工信息录入”工作薄
2、操作“职工信息录入 ”工作薄时,不用打开(实际为后台打开)“信息库”工作薄。
3、原来将员工信息转到“信息库”工作表时,带有格式,这次修改只想转入文本,不要格式了。
具体见附件: 将共享工作薄分开.zip (102.71 KB, 下载次数: 5)
 楼主| 发表于 2013-5-17 08:24 | 显示全部楼层
增加一点说明:分开后的两个工作薄放在局域网共享同一个文件夹内。顺便顶一下!
回复

使用道具 举报

 楼主| 发表于 2013-5-19 10:17 | 显示全部楼层
请大家讨论这种避免共享工作薄冲突的方法
回复

使用道具 举报

发表于 2013-5-19 10:32 | 显示全部楼层
liwenhong 发表于 2013-5-19 10:17
请大家讨论这种避免共享工作薄冲突的方法

这个应是可以做到的,不过要采用SQL语言,把信息库工作表置于共享文件里,作为数据库,在职工录入工作表内代码路径指向此文件,用SQL语言把所录入的数据传到信息库工作表里,相当于:信息表是数据库,职工录入表是客户端
回复

使用道具 举报

 楼主| 发表于 2013-5-19 10:55 | 显示全部楼层
xpw6061 发表于 2013-5-19 10:32
这个应是可以做到的,不过要采用SQL语言,把信息库工作表置于共享文件里,作为数据库,在职工录入工作表内 ...

我的思路是:将原共享工作薄分开成为两个工作薄,这两个工作薄文件都不是共享工作薄,它们都放在局域网同一个共享文件夹中,一个作为数据库,一个作为编辑平台。请您指导,麻烦您改一下附件中的代码,形成两个工作薄。
回复

使用道具 举报

发表于 2013-5-19 19:00 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2013-5-19 19:33 编辑

职工信息录入.rar (53.93 KB, 下载次数: 24)
回复

使用道具 举报

 楼主| 发表于 2013-5-22 17:10 | 显示全部楼层
本帖最后由 liwenhong 于 2013-5-23 08:44 编辑
zjdh 发表于 2013-5-19 19:00

首先感谢您的代码,下面向您汇报代码使用情况,“信息转出”部分的代码使用时发现以下问题:
      当点击“转出信息”按钮后,信息能转存到“XXK”工作薄(信息库工作薄)中,但这时,若是手工打开“XXK”工作薄,是看不到这个工作薄的。在“职工档案管理”工作薄的“窗口”-----“取消隐藏”,可以看到原来它被自动隐藏了。这时再取消隐藏,使“XXK”工作薄能够看到。当关闭它的时候,即使没有做任何修改,也会出现“是否保存修改”的提示,若选择了“否”之后,整个工作表薄中,所有的代码都不能使用了(因为代码打开“XXK”工作薄时,自动被隐藏了)。若是选择了“是”,其他的使用不影响。
      
请您看附件: 转出使XXK工作薄自动隐藏了.rar (37.64 KB, 下载次数: 2)
回复

使用道具 举报

 楼主| 发表于 2013-5-25 17:36 | 显示全部楼层
zjdh 发表于 2013-5-19 19:00

我使用以下办法解决了,谢谢您给我的大力帮助:
GetObject会隐藏打开的工作簿,关闭前取消隐藏



Windows("XXK.xls").Visible = True
  
Windows("XXK.xls").Close False
MsgBox "没有该编号职工!"
Exit Sub
End If
End With
Windows("XXK.xls").Visible = True  
  .Close True



回复

使用道具 举报

发表于 2013-5-25 18:16 | 显示全部楼层
liwenhong 发表于 2013-5-22 17:10
首先感谢您的代码,下面向您汇报代码使用情况,“信息转出”部分的代码使用时发现以下问题:
      当点 ...

xkk工作薄,不建议做成这种格式来保存数据,因为它会给你后期的统计带来很大的麻烦。。。

回复

使用道具 举报

 楼主| 发表于 2013-5-26 09:00 | 显示全部楼层
无聊的疯子 发表于 2013-5-25 18:16
xkk工作薄,不建议做成这种格式来保存数据,因为它会给你后期的统计带来很大的麻烦。。。

我也感觉xxk工作薄表格结构不适合统计,但苦于没有想出好的办法啊,您有这方面好的表结构,麻烦介绍一下!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-26 20:28 , Processed in 1.088141 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表