vba中如何判断是用office还是wps打开表格文件

[wps表格转换成的pdf文件无法删除]步骤： 1、打开编辑好的Excel文档，选中想要打印的区域，点击页面布局选项卡，选择打印区域选项，点击设置打印区域子选项，这时候我们就成功设置了打印区域。 2、在设置好打印区域后，我...+阅读

vba中如何判断是用office还是wps打开表格文件

目前较通用的判断方式只用一行代码即可：

is_WPS = InStr(Replace(UCase(Application.Caption), UCase(Application.ActiveWorkbook.Name), ＂＂), ＂WPS＂) > 0

在以下 3 个环境上实测通过，未发现判断错误：

Excel 2016, WPS 表格 11.1.0.9912 (WPS 2019), WPS 表格 9.1.0.4472

以下是加了 3 行调试信息的检测函数：

Public Function is_WPS()

Debug.Print ＂Application.Build:＂ & vbCrLf & Application.Build

Debug.Print ＂Application.Caption:＂ & vbCrLf & Application.Caption

Debug.Print ＂Application.ActiveWorkbook.Name:＂ & vbCrLf & Application.ActiveWorkbook.Name

is_WPS = InStr(Replace(UCase(Application.Caption), UCase(Application.ActiveWorkbook.Name), ＂＂), ＂WPS＂) > 0

End Function

在较低版 WPS 中，

Application.name

返回带有＂WPS＂字样

在WPS 2019 中，

Application.name,

ActiveWorkbook.Application.Value

都返回

Microsoft Excel

以下是在各种环境下立即窗口的调试结果

运行环境： Excel 2016

运行显示：

?is_WPS

Application.Build:

13001

Application.Caption:

test.xlsm - Excel

Application.ActiveWorkbook.Name:

test.xlsm

False

运行环境： WPS 表格 11.1.0.9912 (WPS 2019)

运行显示：

?is_WPS

Application.Build:

9912

Application.Caption:

test.xlsm - WPS 表格

Application.ActiveWorkbook.Name:

test.xlsm

True

运行环境： WPS 表格 9.1.0.4472

运行显示：

?is_WPS

Application.Build:

9.1.0.4472

Application.Caption:

WPS 表格 - [test.xlsm *]

Application.ActiveWorkbook.Name:

test.xlsm

True

Application.Path 是不够可靠的，如果你在安装微软 Office 时在路径中用了 WPS 字样，或者相反的在安装 WPS 时在路径中用了 microsoft 或者 excel 字样，都会造成路径识别方式不可行

环保小调查的表格

我刚刚“竣工”的作品，可能比较长：

环保从我做起

——关于本班同学环保意识的研究调查

一问题的提出

现在政府都在注重人们对环保意识作为一个目标，我们想看看本班的同学平时有没有做到环保，知不知道什么才是环保，又如何才能做到环保。于是，便开展了一次调查活动。

二调查方法

1 访问全班同学认为如何才算称得上是环保

2 上网浏览我们应该做到那些环保行为

3 实地观察同学们的环保行为

三调查情况和资料整理

受调查人参加了“地球一小时”活动能节约用水用电，不乱丢垃圾其他环保行为不环保行为

全班53人 16人 42人用报纸卷制的铅笔、见到地上有垃圾主动捡起来，节约纸张乱丢垃圾，不节约用电，不节约用纸，浪费粮食，糟蹋粮食

我们应该做到的一些环保行为：

一、野餐时的垃圾不要随手扔掉，如果没有垃圾箱，就应该全部拿回去。

二、从家庭用电开始，节约每一度电，杜绝家家电污染。

三、节约生活中的每一滴水，努力减少水污染。

节约每一张纸，使用再生纸和节约用纸，保护森林资源。

节约每一升油，减少空气污染源。

每个同学都应节约每一粒粮食，养成勤俭节约的好习惯。

少用一次性制品，保护地球环境和生态平衡。

自备购物袋，减少白色污染。

同学们对环保的看法：

有人说，能节约用电的就是环保。

有人说，能够节约用水用电，不乱丢垃圾节约纸张的就是环保。

有人说，能够保护环境的就是环保。

四结论

1、虽然同学们的环保意仍然不够强，但是大多数同学都懂得去减少用电量，用水量，不乱丢垃圾。在本班，有53名同学，能做到这些的有42人，站本班人数的79.2%，人数还不能达到90%。按照这样的说法也就是说有11位同学连这么简单的环保举止都没能做到，人数占本班的人数20.8%。

2、同学们还不能了解并参加一些环保活动，在这次调查中，我们就从同学们参加近段时间所举行的“地球一小时”活动人数上看，比原来能减少用水量、用电量的人数减少了26人。到调查中，我们还听到一些同学们说根本没有听说过这件事。

3、我们要想做到环保，还要从生活中的点点滴滴来环保！

参考资料：

家乡的环境调查表怎样填写

主题：我家乡的环境问题时间：2006年5月3日活动情况：我们几个同学一起去了几个比较热闹的地方：学校河边菜市场超市等我们发现污染比较严重，尤其是在学校的不远处和河边有很多的垃圾，我们看了一下大多都是来源于生活垃圾，而且白色垃圾占多数，我们还看到了倒垃圾的人，他们好像没有意识到着一点。菜市场就更不用说了，到处都是邻居和果皮，家禽场到处是臭味与各种毛，卖鱼的地方随处可见的是鱼鳞和血，乱七八糟而且很多的垃圾都是被随意扔在路上和路边的。医院和超市还算比较干静的。我们做了一些调查并且问了一些行人。我们发现他们的环境保护意、是还不够强，因为是在这样一个十分偏僻的小镇，虽然不贫穷但有关于这方面的知识还远远不够。我们做了一个简要的调查表。

（1）调查地点：学校医院河边超市菜事场等多个人口密集地。

（2）污染情况：较为严重

（3）主要表现：垃圾很多，很多小水沟都遭到严重的污染，水质变的恶劣，垃圾主要为生活垃圾，其中白色垃圾占了很发一部分。而且有生活污水大量排放入河中，河水变的很脏很臭。

（4）主要原因：人们的环境保护意识十分薄弱，大家都不是很注意公共场合的环境卫生，也不注重保护身边的自然环境。

（5）解决方法：首先要提高人们的环境保护的意识，每个人都从身边做起，将身边的环境保护好，再做宣传，宣传环境保护的重要性。活动体会：通过这次活动，不但提高了我的实践能力，使我更加的熟悉了这项活动的过程，而且通过这次活动我也深刻的认识到了环境保护的重要性以及我们身边存在的一些环境问题，明白了现在的严峻行势。我深刻的认识到我们应该保护环境，与自然和偕相处，在以后的生活中我会尽力去保护环境，同时也会做有关于环境的宣传。...