ACCESS和EXECL结合的简单说明

编辑和完成考试:ACCESS与EXECL
引用EXCEL结合的简单说明

将xlApp调成Excel。应用

将xlBook作为工作簿，将xlSheet作为工作表

Set xlApp = CreateObject("Excel。应用”)

设置xlApp =新Excel。应用

set book = XL app . workbooks . Open(EXECL文件名)'打开要输出的EXECL文件。

Set sheet = xlbook.worksheets (1)'打开工作表，这里是第一个，可以设置其他的。

XlApp。“可见=真实”显示

Xl。CELLS (3，3)= " ' " &要输出的内容' cells (row，column)单元格

XlSheet。'打印预览'如果你想打印，只需将打印预览改为打印输出。

xlBook。关闭保存更改:=False

XlApp。“辞职”

****************

对于iCols = 0至rs。字段.计数- 1

ws。单元格(1，iCols + 1)。价值=卢比。字段(图标)。名字

然后

ws。范围(ws。单元格(1，1)，_

ws。细胞(1，rs。Fields.Count)).Font.Bold = True

ws。范围(“A2”)。copy from记录集rs

*****************************

私有子命令Button1_Click()

暗淡CNN作为新的ADODB。关系

昏暗的RST作为新的ADODB。记录集

Dim Stpath，strSQL作为字符串

ST = this workbook . path & application . path separator & " student files . MDB "

CNN。open " provider = Microsoft . jet . oledb . 4.0；数据源= " & Stpath ' &Jet OLEDB:数据库密码=" & "123 "

如果ComboBox3。值= " "那么

StrSQL = " Select * from file WHERE native place LIKE ' " & combobox 2。值& " ' "

ElseIf ComboBox2。值= " "那么

StrSQL = " Select * from file WHERE gender LIKE ' " & combobox 3。值& " ' "

其他

StrSQL = " Select * from file WHERE gender LIKE ' " & combobox 3 . value & " ' " & " and native place LIKE ' " & combobox 2。值& " ' "

如果…就会结束

RST。打开strSQL，CNN

1.工作表范围(“a2: g10000”)。“清除内容”删除原始内容。

工作表1。单元格(2，1)。从记录集RST复制

RST。关闭

“设置RST =无”显示了RST所处的记忆。

“Set CNN = Nothing”显示CNN的内存。

End Sub