MsgBox my_data(1，0)可以理解為選擇第二個字段第壹行的記錄。
如果報錯，證明沒有數據。
如Excel表所示，獲得每個名稱的出現次數。
Sub My()
作為對象的尺寸環
Dim內容$，Arr
Set Re = CreateObject("Adodb。記錄集”)
帶Re
。Open "Select [name ]，count([name])from[sheet 1 $]group By[name]，" driver = Microsoft Excel driver (*。xls)；DBQ = " & amp；此工作簿。全名
Arr = Re.getrows
對於j = 0至下界(Arr，2)
對於i = 0至下界(Arr)
內容=內容& ampArr(i，j)和amp人權委員會(9)
然後
內容=左(內容，長度(內容)- 1)
內容=內容& amp人權中心(10)
然後
MsgBox " & amp " &Chr(9)和amp“數量”&；Chr(10)內容
。關閉
以…結尾
末端接頭
Access也可以這樣使用