vba保存文件到服务器共享夹,关于EXCEL在本地保存时，如何通过VBA同步另存在局域网的另一台电脑中...

请教各位大师：我是一个菜鸟，对VBA一点也不懂，现在单位里需要有一台电脑作文件为备件用，所以想在我的EXCEL表保存数据的同时，通过VBA设置同步另存在局域网的另一台电脑中。不知道是否可行？如果可行，是否麻烦那位大师写一段代码？恳请各位大师帮助和指教！

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If MsgBox("是否向备用电脑保存此文件？", vbYesNo, "重要提醒") = vbYes Then

Kill "备用电脑完整文件路径!" '删除备用电脑文件

ThisWorkbook.SaveAs "备用电脑完整文件路径!"

End If

End Sub

sykabc 楼主 3楼

2016-12-25 21:05

感谢huang1314wei指教，我明天上班就去设置，如有不明白之外再来请教您，谢谢！

dancefly09 Lv.2 4楼

2016-12-25 23:02

在另一个电脑上设置共享文件夹(可以加密)，然后在你的电脑上设置网络驱动器映射，然后就会多出一个盘符，就可以像访问你自己的电脑文件一样访问这个共享文件夹了。在把这个路径，填入到楼上提供的方法的第04行，即可~

sykabc 楼主 5楼

2016-12-26 15:24

引用: dancefly09 发表于 2016-12-25 23:02

在另一个电脑上设置共享文件夹(可以加密)，然后在你的电脑上设置网络驱动器映射，然后就会多出一个盘符， ...