| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- wps问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184790) |
| -- 作者：rjh4078 -- 发布时间：2023/1/3 12:37:00 -- wps问题 Dim App As New MSExcel.Application \' Try \' Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) \' Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'\'start \' If args(1)<>"发货单" Then \' Ws.Protect(Password:="%$#%#^%$*(&^") \' End If \' wb.save \' app.visible = True \' ShowAppWindow(Ifo.Name,2) 如果只安装了wps 红色标记的这段就会报错,有解决方法吗,需要调用VBA的protect
|
| -- 作者：有点蓝 -- 发布时间：2023/1/3 13:26:00 -- 试试下载安装下面的数据访问组件: http://www.foxtable.com/download/AccessDatabaseEngine.exe |
| -- 作者：rjh4078 -- 发布时间：2023/1/3 14:21:00 -- 多谢 试了还是不行 |
| -- 作者：有点蓝 -- 发布时间：2023/1/3 14:58:00 -- 那就只能安装个office了 |