将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）作为行分隔符。