Paste VBA recordset into excel?

Question

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

Answer 1

If you are using "Oracle InProc Server" and OraDynaset you would use something like the following snippet.

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

The default behaviour for CopyToClipboard is to place TAB (ASCII 9) as the column separator and ENTER (ASCII 13) as the row separator.