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
0条评论