大家可以看一下这些代码,都表示什么意思呢?
我们来看定义的内容:
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表格一样,程序运行完了之后会弹出一个对话框: