- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
本帖最後由 lpk187 於 2015-10-25 11:47 編輯
回復 1# 黃志全
若用一般函數！我不會，不過利用VBA可以很容易達成你需要的答案- Public Sub ex()
- Dim myCon As Object
- Dim myRs As Object
- Dim TabName$, Sql$, i, arr
- Set myCon = CreateObject("ADODB.Connection")
- Set myRs = CreateObject("ADODB.Recordset")
- myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
- "Data Source=" & ThisWorkbook.Path & "\人員.accdb;" '路徑用本程式路徑相同資料庫名稱為"人員.accdb"
- TabName = "人員" 'Tabel 名稱
- Sql = "SELECT * FROM " & TabName & "';" 'SQL語法，在 TabName 表單中拿出所有項目
- Set myRs = myCon.Execute(Sql)
- arr = myRs.GetRows '取出 Recordset 的項目成為陣列
- For i = 0 To UBound(arr, 2)
- Cells(arr(1, i), arr(2, i)) = arr(0, i) '
- Next
- myRs.Close
- myCon.Close
- Set myRs = Nothing
- Set myCon = Nothing
- End Sub
|
|
發表於 2015-10-25 11:40
| 