机房系统（五）——【Excel表导出】

前言
最近在做机房收费系统的时候，遇到了将查询结果导出为Excel表的形式。一开始感觉这个很难，但经过查阅相关的博客后，还是比较顺利的实现功能了。
正文
在VB中导出Excel表，实际上就是VB与Excel的交互。首先我们的计算机中要有Excel，然后从VB程序中引用下框中内容。

PS：如果一开始没有找到这一项，也不用着急。单击右侧的“浏览”按钮即可，找到自己电脑上Excel文件的位置，添加上再引用就OK。（为方便快速找到Excel文件的位置，我们可以先找到Excel.exe程序，右击查看文件所在位置，在浏览时候直接定位到该位置。）
引用完成后，下一步就需要让VB能认识Excel了。为让他们能互相认识，可以和睦共处，就需要我们做下面的工作来帮助他们了。

    Dim ExcelApp As Excel.Application   '定义Excel表格应用程序
    Dim ExcelBook As