大家可以看一下这些代码，都表示什么意思呢？
我们来看定义的内容：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlSheet1 As Excel.Worksheet
这几个定义都是固定的模式，我们使用VB程序对Excel表格数据进行读取时，都要对Excel进行定义，这样VB程序才能够识别出所要读取的文件。
Set xlApp = CreateObject("Excel.Application")
是建立Excel文件用的，它表示建立一个Excel对象，对象建立完了之后，我们就可以打开指定的文件了，就是下面这个：
Set xlBook = xlApp.Workbooks.Open("F:\报表运行表.xls")
xlApp.Visible = True//表示让对象可见，就是在读取的时候，我们能看到文件的打开，
Set xlSheet1 = xlBook.Worksheets("表1")//表示要读取文件中的哪个表，这里面是读取"表1"
xlSheet1.Activate//表示激活要读取的表，只有激活了，才能保证操作在当前表进行
以上都是固定的模式，大家可以复制即可，不用敲代码。
紧接着，For i = 4 To 89．．．．Next i就是我们读取数据和处理数据的过程了，具体要根据实现什么样的功能，来编写程序。
再往下还是固定的模式，就是读取完文件内容后，要把文件关闭掉，要不它会始终占据内存的：
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
上面就是关闭文件，释放对象的过程。
MsgBox "good job"
就是程序运行完之后会弹出小的对话框，对话框显示的文字就是“good job”，当然也可以显示“程序已经运行完毕”，比较灵活。
代码写完之后，我们来运行程序，就是点击这个小三角号：
运行之后，会弹出：
可以看到，这窗体上面只有一个按钮，我们要想运行我们刚刚写的代码，只需要点击上面这个按钮就可以啦，就是点击“Command1”。
VB程序读取Access数据库数据
下面再来看看VB如何操作Access数据库，其实VB操作Access数据库的代码理简单，看看下面这个就知道啦:
可以看到，前三行是定义：
Dim conn As New ADODB.Connection
Dim strConn As String
Dim sql As String
是固定的模式，直接复制进去即可。
strConn = "Provider=microsoft.ace.oledb.12.0;Data Source=D:\0基础资料\data.accdb"
这条语句是读取路径，找到文件的位置，也是固定的模式，只要把文件名改了即可。
再往下是一条查询语句：
sql2 =
"
select b.*
into yj1
from (select jh,min(rqx) as rqx1 from yjs07 group by jh) a
left join yjs07 b on (a.jh=b.jh and a.rqx1=b.rqx)
"
这条查询语句就是我们要实现的复杂操作，当然我们在程序里面可以上百条的查询语句，只要遇到同样的工作，我们可以直接运行程序即可。
再往下：
conn.Open strConn
conn.Execute (sql1)
这两条语句就是执行我们前面写的的查询语句啦，也是固定的，只要把查询语句的名称改了就好。
Set conn = Nothing//这是释放文件，用完了要关掉。
再往下就是MsgBox "good job"，就是和上面操作Excel表格一样，程序运行完了之后会弹出一个对话框：
