主题：关于Excel报表的问题咨询

这样呢： 要想“行业”、“城市”排在一起，先对这两列排序一下。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:广告图库模板.rar

那就逐个筛选出行业和城市后，再来打印， 其中“行业名称”和“城市名”用标记解决也是可以的啊···

还是Excel报表简洁啊： 

 

Dim Arys As List(Of String())
Arys = DataTables("数据").GetUniqueValues("", "一级行业","城市")
For Each Ary As String() In Arys

    Tables("数据").Filter = "[一级行业] = '" & Ary(0) & "' and [城市] = '" & Ary(1) & "'"
    Dim Book As New XLS.Book("C:\downloads\ave\Attachments\广告图库模板.xls")
    Book.Marks.Add("一级行业",CurrentTable.Text(0,0))
    Book.Marks.Add("城市",CurrentTable.Text(0,1))
    Book.Build()
    Book.Save("C:\downloads\ave\Reports\" & Ary(0) & "-" & Ary(1) & ".xls") 

 '****按不同行业和城市保存为一个excel文件，想打印哪个就打印哪个，必要时，合并它们再打印···
Next

 

模板这样： 

此主题相关图片如下：mb.jpg