如何在查询数据库后在Excel中打印值列表？

Question

我有一个在Excel VBA中制作的个人功能列表。 此函数查询mysql数据库并仅返回一个值。 例如，函数GetRevenue返回单个值。 但我想知道如何编写一个返回值列表或整个表的Excel函数？

假设在单元格A1中我编写了我的函数“GetCustomerList”..我希望我的表从单元格A2开始返回。

如何在VBA中使用ADODB？

由于

Answer 1

在ADODB中，您只需使用copyfromrecordset方法从定义的单元格中复制表格。 以下清单明确指出：

i = 1

        For Each fld In rd.Fields
           Cells(4, i).Value = fld.Name
            i = i + 1
        Next
        Cells(5, 1).CopyFromRecordset rd
rd.Close
con.Close

这里变量rd引用Recordset并连接对象。整个表格从单元格（5,1）复制，即A5。标题从A4复制到单元格。 我希望你能使用这个方法。