- 帖子
- 17
- 主題
- 7
- 精華
- 0
- 積分
- 62
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Tinwan
- 註冊時間
- 2011-4-9
- 最後登錄
- 2018-7-6
|
因為特殊工作需求一定要用Excel 與Access作連結，所以我依照範例寫了一個測試程序，
它會把資料貼在 Sheet 內的A2，我要如何把RUN出來的之料放進變數內?
我最主要的目的是 用EXCEL2007 開Access2003的資料庫,從中篩選案件狀態='2'
的P1總時間作加總
希望有人能幫我- Sub aa()
- Dim cnn As New ADODB.Connection
- Dim rst As New ADODB.Recordset
- cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\CCBO.MDB"
- sq1 = "select AVG(P1總時間) from CCBO where 案件狀態='2'"
- [a2].CopyFromRecordset cnn.Execute(sql)
- cnn.Close
- Set cnn = Nothing
- End Sub
|
|
發表於 2012-5-17 16:33
| 
