0

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

4

1 回答 1

0

如果您使用的是“Oracle InProc Server”和 OraDynaset，您将使用类似于以下代码段的内容。

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

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

于 2012-11-12T21:12:00.283 回答