以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Excel模板设定公式不想别人修改加密保护,狐表的数据如何导入?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174096)

--  作者:lgz518
--  发布时间:2021/12/31 12:16:00
--  Excel模板设定公式不想别人修改加密保护,狐表的数据如何导入?
Excel模板设定公式不想别人修改加密保护,如何实现狐表的数据导入Excel模板,二者之间互导入导出
--  作者:有点蓝
--  发布时间:2021/12/31 13:35:00
--  
取消密码在导入:http://www.foxtable.com/webhelp/topics/2121.htm
导入后再添加回密码

--  作者:lgz518
--  发布时间:2021/12/31 16:45:00
--  
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\Report.xls")

\'Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\同期对比.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比")
Ws.Protect(Password:="hhh")  \'以密码保护
Wb.Save
App.Quit


报错:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.12.16.888
错误所在事件:窗口,窗口1,Button3,Click
详细错误信息:
抱歉,无法找到 C:\\Report.xls。是否可能被移动、重命名或删除?


--  作者:有点蓝
--  发布时间:2021/12/31 16:48:00
--  
提示很明显了,没有这个文件:"C:\\Report.xls"
--  作者:lgz518
--  发布时间:2021/12/31 17:02:00
--  
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\Report.xlsx")

\'Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\CCC.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比")
Ws.Protect(Password:="hhh")  \'以密码保护
Wb.Save
App.Quit




报错:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.12.16.888
错误所在事件:窗口,窗口1,Button3,Click
详细错误信息:
抱歉,无法找到 C:\\CCC.xlsx。是否可能被移动、重命名或删除?


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.12.16.888
错误所在事件:窗口,窗口1,Button3,Click
详细错误信息:
抱歉,无法找到 C:\\Report.xlsx。是否可能被移动、重命名或删除?




--  作者:lgz518
--  发布时间:2021/12/31 17:04:00
--  
 C:\\CCC.xlsx,是有真实文件,需执行上面却报错
--  作者:有点蓝
--  发布时间:2021/12/31 17:12:00
--  
路径或者文件名称肯定有一个不正确。

把文件放到D盘试试

--  作者:lgz518
--  发布时间:2021/12/31 19:09:00
--  
试过一样报错,
报错:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.12.16.888
错误所在事件:窗口,窗口1,Button3,Click
详细错误信息:
抱歉,无法找到 D:\\CCC.xlsx。是否可能被移动、重命名或删除?


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.12.16.888
错误所在事件:窗口,窗口1,Button3,Click
详细错误信息:
抱歉,无法找到 D:\\Report.xlsx。是否可能被移动、重命名或删除?

--  作者:有点蓝
--  发布时间:2022/1/3 19:55:00
--  
明天联系客服远程看看