excel网页数据抓取vba(【】自学VBA：如何快速查看数据的界面？ )

　　excel网页数据抓取vba(【】自学VBA：如何快速查看数据的界面？

)

　　今天是冬至，选择了一个特别的日子。今天依旧是小扎让贾维斯的消息传遍全世界的日子。不如他，但至少他可以做一些特别的事情。

　　废话不多说，开始吧。

　　先说一下整个项目的背景。当时，我们积累了公司各种产品项目的数据。在没有开发人力的情况下，我们需要创建一个可以快速查看数据的界面，以帮助新的合作进行初步估算。

　　于是，就在一个周末，我开始自学VBA，希望能快点做出这个界面。

　　首先说一下整个查询界面的页面逻辑，比较简单，不到10个页面。

　　菜单作为所有页面的入口，有两个基本功能：一是查看数据，二是计算过滤。还有一个小功能，可以查看最近的供应商信息。

　　先说一下这个小功能。首先，我们会找到对应表的最后三条记录和对应的数据，然后将它们呈现在菜单的控件上。最后点击菜单界面触发小功能代码。

　　实现代码如下（镶嵌部分为对应的表名）

　　接下来说说菜单的第一个功能，数据查看。

　　由于整个项目都是用excel搭建的，所以也会有查看原创数据的需求。通过点击按钮触发代码，显示对应的表格，同时隐藏菜单页。

　　实现代码如下

　　然后，说说菜单的第二个功能，计算过滤器。

　　维度1搜索过滤，根据数据表的某个字段计算和搜索数据，然后呈现。实现最多三组数据同时查询。

　　实现代码：

　　对于单条记录查询，首先判断输入框是否为空，然后获取输入项的输入值进行循环搜索，找到对应单元格的位置，然后通过那个位置找到对应的字段，然后进行计算。

　　多记录查询与单记录查询一致，这里不再赘述。

　　这里还有一个小功能，可以自定义搜索字段的增减。

　　代码显示如下：

　　还有一个巧妙的功能，可以在搜索后显示搜索结果

　　在VBA后台将对应控件属性的可见性设置为FALSE，然后点击搜索按钮触发该属性修改为TRUE。

　　实现代码：