暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
回復 1# junkwei
sql語法即可完成
stock.mdb=>換成你的資料庫名稱
某某表=>換成你資料庫中的資料表名稱
以上是mdb語法，新資料庫請自行搜尋替換- Sub ex()
- Worksheets("1").Activate
- Set cn = CreateObject("adodb.connection")
- cn.Open ("Driver={Microsoft Access Driver (*.mdb)};dbq=" & ThisWorkbook.Path & "\stock.mdb")
- Set rs = cn.Execute("select 班級,max(年紀) as 最大年紀,min(年級) as 最小年紀 from 某某表 group by 班級")
- w = 1
- For Each tt In rs.Fields '顯示表單名稱
- Cells(w) = tt.Name
- w = w + 1
- Next
- Cells(2, 1).CopyFromRecordset (rs)'叫出資料
- cn.Close
- Set cn = Nothing
- Set rs = Nothing
-
- End Sub
|
|
發表於 2014-11-28 11:19
| 
