机房系统——导出excel表

查询窗体弄出来了，看了网上的一些代码，也写完代码了，可就是不能运行，问题请看下图：

然后我再看看明明定义了啊，为什么还是不行，后来想起来了，可能是没有引用某些东西，然后我就上网查，结果还是不错的，查到了，说是让我引用Microsoft Excel 11.0 Object Library这玩意，当然11.0是版本号，这个我还是清楚的，我安装的office是2016的（也就是我得引用Microsoft Excel 16.0 Object Library），所以我就去找，可是心凉了，竟然没有这一条，我好歹也是安装office了的，怎么这么不给面子。

然后继续搜吧，最后总算是解决了，下面来看看步骤吧：

在引用的界面点击浏览，找到Windows office的安装路径（主要是Excel应用程序的安装路径，请参考我的路径：C:\Program Files\Microsoft Office\root\Office16），文件类型选择可执行文件”.exe;.dll”（一定要选这个，因为后边我们需要找”excel.exe”，它属于执行文件，不选指定没有），然后再找到”excel.exe”,打开就可以了。

最后你就会发现引用窗体中出现了Microsoft Excel 16.0 Object Library这玩意，神奇不。（总算解决了哈哈，开心）

下面是查询和导出excel的代码：

Private Sub cmdExportExcel_Click()

    Dim xlsapp As Excel.Application                 '声明excel对象
    Dim xlsbook