以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  指定电脑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93701)

--  作者：gcc123 --  发布时间：2016/12/5 11:35:00 --  指定电脑 Dim flg As New SaveExcelFlags Tables("应付应收录入").SaveExcel("C:\\2016年EXCELL备份\\应付应收录入.xls","应付应收录入",flg) EXCELL备份  我现在想实现 备份到指定的电脑上边 以电脑用户名为准  不是这个名字的电脑 不导出  可以实现吗 此主题相关图片如下：qq截图20161205113404.jpg

--  作者：小马甲 --  发布时间：2016/12/5 12:09:00 --   判断一下   ComputerName

--  作者：有点蓝 --  发布时间：2016/12/5 14:07:00 --   http://www.foxtable.com/webhelp/scr/0348.htm

--  作者：gcc123 --  发布时间：2016/12/5 14:22:00 --  回复：（有点蓝）http://www.foxtable.com/webhelp/sc... 代码能帮我写下吗  感谢

--  作者：有点蓝 --  发布时间：2016/12/5 14:42:00 --   if ComputerName <> "某计算机名" then     msgbox("您不能备份") else Dim flg As New SaveExcelFlags Tables("应付应收录入").SaveExcel("C:\\2016年EXCELL备份\\应付应收录入.xls","应付应收录入",flg) endif

--  作者：gcc123 --  发布时间：2016/12/5 21:50:00 --  回复：（有点蓝）if ComputerName <> "某计... 谢谢  如果计算机名称不对 不能进行备份 不想让 您不能备份  这个小窗口出来 直接就是计算机名称不对 后台就不备份  计算机名对了  就进行备份  不让提醒窗口显示出来 该怎么弄

--  作者：有点蓝 --  发布时间：2016/12/5 22:00:00 --   if ComputerName = "某计算机名" then  Dim flg As New SaveExcelFlags Tables("应付应收录入").SaveExcel("C:\\2016年EXCELL备份\\应付应收录入.xls","应付应收录入",flg) endif