以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  wps问题  (http://foxtable.net/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了