【案例一】单条件查询数据并导出Excel和图片

我们写程序之前先要了解需求，但需求每个用户可能都不一样。这个案例是一位用户的需求，他基本是零基础，根本不了解模块化思想，也不想花时间去了解，他仅仅是想通过VBA 按条件或者日期查询数据，并且将数据导出成EXCEL或者图片。

为此，写了这个案例，并把这个案例从创建Excel开始到实现功能的写代码过程录制下来，并且将此案例进行了升级，增加了Access来代替Excel，提高查询的速度。

此案例仅为实现功能，不涉及sql语句、编程思想的讲解。

根据条件和日期查询出数据并导出成图片和EXCEL

在我们工作中，经常会碰到这样一个需求，就是想要从Excel的几千条甚至上万条数据查询出自己想要的数据，然后把数据复制到一个新的工作簿中去。很多人使用的方法是利用 Excel自带的查找功能，一个一个的去查找然后复制粘贴，这样做效率低，速度慢，还很有可能会遗漏数据。

为此花了一个月时间精心打造了这样的一个专题课程，以案例的形式讲解如何通过Excel-VBA编程查询所需要的数据，并且可以实现将查询出来的数据导出成新的Excel 或 图片的功能。

本专题简单实用，有初级Excel基础和编程基础的同学可在一到两天即可学习。所选案例适用于部分企业运用。如：订单明细查询、历史数据查询、报考志愿院校专业和分数线查询等简单应用。

下面我们先介绍一下这三个案例：

1、单条件查询数据并导出Excel和图片。

(1)在组合框选择列名，在文本框中输入关键字，列表框将自动显示包含此关键字的数据。双击此数据后自动导出生成新的Excel工作簿和图片。
2、根据日期和条件查询数据并导出。

(1)如果文本框里没有内容，以日期为条件进行查询。

(2)如果文本框输入关键字，自动将包含此关键字的数据加载到列表框中，单击列表框某项，将自动填充到文本框中，然后以文本框和日期为条件查询相关数据，导出生成Excel工作簿和图片。

3、ACCESS版关键字查询数据并导出。

第二个案例的升级版，当工作表里的源数据有几万条的时候，查询会很慢。

我们以20000多条记录进行了操作，数据在EXCEL中，查询时间需要6秒甚至更多，但如果把数据导入到ACCESS中去，查询时间小于1秒。本案例讲解了，如何升级至ACCESS版本，并且之前两个案例导出数据都是**条件，此案例除了**条件，模糊条件也适用。