两台电脑用局域网连接,如何实现共同操作一个excel含有vba的表格

两台电脑用的是一个路由器连接起来的,公司内部局域网,为了工作方便,想实现EXCEL的一系列表格,数据等,任一台电脑输入,另一台电脑可直接查看。请大家帮帮忙,谢谢!

Excel完成多人协同录入工作,该教程图文并茂。详见:  为了提高速度,可能需要多人同时处理一张Excel表格。Excel2007为了满足这种需求,为我们提供了“共享工作簿”的功能。通过这个功能,我们可以通过网络将一个Excel文件共享的同时供多人同时编辑这个工作薄。而且在编辑的同时,Excel会自动保持信息不断更新。  在一个共享工作簿中,用户可以输入数据、插入行和列以及更改公式等,甚至还可以筛选出自己关心的数据,保留自己的视窗。而且在多人同时编辑一个单元格时还可以进行冲突处理。下面我举个例子来说明如何通过Excel2007来共享工作簿。  一、设置共享工作簿  首先让我们来启动Excel2007。启动后,在其中输入一个“产品销售”表,如图1所示。    图1 产品销售表  选择“审阅”菜单(在老版本的Excel中对应的是“工具”菜单),然后点击菜单下方的“共享工作簿”按钮,弹出用于设置共享工作簿的对话框。运行结果如图2所示。    图2 共享工作簿对话框  在共享工作簿对话框中将“允许多用户同时编辑,同时允许工作簿合并”复选框选中。然后可以更据自己的需要进行高级设置。高级设置的界面如图3所示。    图3 高级设置  从这个界面可以看出,Excel可以管理共享工作薄的历史记录,而且还可以自动更新其它用户的变化。在默认情况下,当前用户在保存文件时更新其它用户的修改,但是我们也可以设置在一定时间间隔内自动更新工作薄的变化。在第3部分“用户间的修订冲突”设置区内最后设置第一项“询问保存哪些修订信息”,否则可能产生不确定的结果。在设置完后,点击“确定”按钮后,如果当前文档未保存,系统会提示你保存该文档。你可以将这个文档保存在一个其它人都可以访问到的地方,如一个共享文件夹。共享工作薄后的界面如图4所示。    图4 共享工作薄  在工作薄共享后,Excel上方的标题栏出现了“[共享]”提示。  二、使用共享工作薄  在设置完共享后,就可以使用多个Excel打开这个Excel文件了。让我们使用一个Excel编辑一下这个“产品销售”表。然后保存。再切换到另外一个打开这个文件的Excel,按Ctrl+S保存,你会看到在这个Excel中表格内容被更新。如图5所示。    图5 被更新的界面  在更新后,会出现一个如图5所对话框,提示该文档已经被更新。如果两个Excel同时修改同一个单元格,而且都进行保存,将会发生内容冲突。如一个用户将0001号产品的销售数据改为18,而另一个用户将0001号产品的销售数量改为20。在他们保存后,将出现如图6的的提示对话框。    图6 冲突处理对话框  然后由用户决定是按用户1还是用户2来修改表格中的内容。  Excel不仅能处理当前的修改冲突,而且还可以查询冲突历史,并按冲突历史进行修改。点击“审阅”菜单中的“修改”按钮菜单中的“突出显示修订”项,将显示如图7所示的对话框。    图7  可以根据这个对话框对来选择查看修订历史。在选择完后,在每一个单元格的左上角会显示一个“小黑角”,将鼠标放在这个单元格上,将显示这个单元格的修改历史。  再点击“接收/拒绝修订”菜单项,将显示如图8所示的界面。    图8  这个对话框显示了从某个单元格从最初的值到历次所修改的值(按时间从小到大排序)。你可以点中其中某一项以恢复到相应的历史值。也可以通过“全部接受”和“全部拒绝”按钮恢复到最后和最初的值。  Excel2007还可以为工作薄设置密码,以防止其它用户关闭修订。还有就是在工作薄进行共享时不能进行一些高级的操作,如图形,图表等。 看不见图片就来这里:http://user.qzone.qq.com/8157744/blog/1280285596
温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-08-18
SOSO兄弟:你想得到的效果是:A电脑录入基础数据,B电脑所对应的一系列表格也跟着A录入的基础数据表发生变化。要达到这样效果的前提需:电脑A 数据保存了;B电脑才可更新数据.反之:A电脑数据没保存;那么B电脑数据等于A电脑数据之前没保存的数据.本人建议:达到此效果:还不如用远程桌面控制程序.即用B电脑可查看A电脑操作界面;也可以控制A电脑程序.如果A电脑输出了什么;你可以随时可以观看;如录像.本回答被网友采纳
第2个回答  2016-01-23
处理多个Excel文件时,将文件依次打开,然后再利用代码处理数据即可
下面代码为打开Excel文件,并提取sheet1中的第一行数据到本表中:
Sub main()
f = Dir(ThisWorkbook.Path & "\*.xlsx")'打开制定文件夹中的所有Excel文件
Do While f <> ""
Workbooks.Open (ThisWorkbook.Path & "\" & f)'依次将文件打开
x = Range("A65536").End(3).Row'x为工作表中的最后一个非空行数
Workbooks(f).Sheets(1).Rows(1).Copy Range("A" & x + 1)'把搜索到的文件中的第一行数据,复制到本工作表中,最后一个非空行下面的一行中
Workbooks(f).Close'关闭打开的文件
f = Dir'将下一个文件名赋予f
Loop'继续循环
End Sub
第3个回答  2020-01-17
51通讯录APP 共享表格 可以实现。
第4个回答  2013-08-18
共享。

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网