VB-ACCESS-EXCEL例子

2024年9月13日发(作者：)

一VB/ACCESS/EXCEL例子

用VB统计:在ACCESS里已建一数据表,现要将数据表里某一项的总数统计出来填入到已做

好的EXCEL文件中.

Private Sub Command1_Click()

'先要引用ADO对象2.6,会吧?

Dim CNstr As String

Dim cnn As New tion

Dim rst As New set

CNstr = "Provider=.4.0;Data Source=;Persist

Info=False"

tionString = CNstr

SQL = "select sum(工资) as gz from tb1"

SQL, cnn, 3, 2

gz_sum = rst(0) '已经求出了工资字段的合计数

MsgBox gz_sum

'先要引用MS Excel9.0对象,会吧?

Dim xlsAp As New ation

Dim xlsBook As New ok

Dim xlsSheet As New eet

Set xlsBook = ("d:")

Set xlsSheet = eets("sheet2")

e = True

(5, 4) = gz_sum '已经填入进去你的EXCEL表的单元格了!

("D5").Select

'以下是收尾工作,打扫战场

Set xlsSheet = Nothing

Set xlsBook = Nothing

Set xlsAp = Nothing

Set rst = Nothing

Set cnn = Nothing

End Sub

已经测试通过！

SQL = "select sum(工资) as gz from tb1"

SQL, cnn, 3, 2

Security

gz_sum = rst(0) '已经求出了工资字段的合计数

SQL, cnn, 3, 2是打开记录集，"3，2"是参数。adOpenStatic=3, adLockPessimistic=2

记录集只有根据SQL打开才有数据记录。

这句就是汇总结果

(5, 4) = gz_sum '已经填入进去你的EXCEL表的单元格了!