我一直致力于在MS Excel中创建动态报表。我正在研究传统的VB6应用程序,并且遇到了一些我希望你们可以帮我解决的问题。我在下面做的是将数据抓取到我的记录集g_RS3中 - 通常这有3到20个项目,我使用g_RS3在我的Excel中输入值(标题和每个标题下的2列值)电子表格。我试图对它进行编辑,但我一直在努力。这是我的代码....Excel VBA报表编辑
Do While Not g_RS3.EOF
With xlSheet.Cells(xlRow, xlCol)
.Value = g_RS3("Label")
.Offset(1, 0).Value = "Clients"
.Offset(1, 1).Value = "Buyers"
With .Offset(1, 0)
.Font.Bold = True
.Borders.Weight = xlThin
End With
With .Offset(1, 1)
.Font.Bold = True
.Borders.Weight = xlThin
End With
With .Resize(1, 2)
.Font.Bold = True
.WrapText = True
.VerticalAlignment = xlCenter
.Merge
.HorizontalAlignment = xlCenter
.Borders.Weight = xlThin
End With
End With
xlCol = xlCol + 2
g_RS3.MoveNext
Loop
我附上了一个图像,它会显示它的样子。在记录集的末尾,我试着添加另一个标题,它只是表示TOTAL并且在其下面有2列。但我很难做到这一点。
这不应该是一个数据透视表吗?只需将您的原始数据转储到工作表中,然后进行转换即可。没有? –
不确定。我在报告中完成了大约95%的工作,我只是提出了一个总TOTAL标题可以帮助完成所有总计的请求。试图看看我可以在我的记录集结束时动态添加它。 – FatBoySlim7
侧面问题:如果'g_RS3'包含*标题*,那为什么它不叫'rsHeadings'呢? –