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

位律師廻複