将VBA记录集粘贴到excel中？

Question

如果我在VBA中返回了一个SQL记录集，是否有一种简单的方法就可以将值粘贴到电子表格中而无需循环执行等？

Answer 1

如果使用的是“ Oracle InProc服务器”和OraDynaset，则将使用以下代码段。

Dim QueryResults As OraDynaset
Set QueryResults = Label_DB.CreateDynaset(SQL_String, 0&)
QueryResults.CopyToClipboard
Selection.Paste

CopyToClipboard的默认行为是将TAB（ASCII 9）作为列分隔符，而将ENTER（ASCII 13）作为行分隔符。