VBA编程 把Access一个表中的某一字段值按照唯一的ID提取出来，以固定格式插入到Word的表格某一列中

Question

想把Access一个表中的某一字段值按照唯一的ID提取出来，然后插入到Word的表格某一列中去。
例如：要提取Access的set表中的“坐标”字段值，在“坐标”字段内容为：1,2,23.00,45.00,21.00,50.00。写入word表格中的格式应该为：
1,2
23.00,45.00
21.00,50.00

财富值不多 还望各位大神不吝赐教！

Answer 1

添加引用microsoft active data object 2.x

Sub test()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Sql$, sTemp$
Conn.Open " your connection string "
Sql = " select a form set "
Set Rs = Conn.Execute(Sql)
sTemp = Rs.GetString(adClipString, -1, vbTab)
End Sub

你要的内容就都在sTemp 里
你之后根据你的需要把stemp插入到你的word table里就行了