需要将SQL记录集值打印到Excel中

打印（SQL）记录集值时，仅打印第一行中的字段。我需要帮助打印所有字段从一个记录集使用QTP VB脚本

For i=0 to rs.Fields.Count-1 
DB_Data.cells(1,i+1).value = rs.fields(i).Name
rs.MoveNext 
Next

在上面的循环中，在遍历数据集中所有d记录的旁边添加了rs.movenext

DB_Data.Range（DB_Data.cells（1,1），DB_Data.cells（1，rs.Fields.Count））.Font.Bold=True

j = 0
k = 2
Do Until rs.EOF 
k=j+1 
DB_Data.cells(k+1,k).value = rs.fields(j).Name 
rs.MoveNext
j= j+1 
Loop 

这里的循环构造有一些问题，所以做了一些相应的更改。希望这能奏效。

请阅读本节内容，然后改写您的问题。