主题：[分享]excel报表之-

Dim App As New msExcel.Application
Dim fl As String = ProjectPath & "Reports\123.xls" '定义报表路径
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls") '获取模板文件
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)   '获取模板页面
For Each a As MSExcel.Shape In ws.Shapes    '遍历所有shape
    Dim x As String = a.TextFrame.Characters.Text    '获取当前shape内容
    If x.Contains("Rectangle") = False Then   '判断是否合格
        a.TextFrame.Characters.Text = Tables("出库").Current(x)   '设置shape值
    End If
Next
app.DisplayAlerts = False  '是否覆盖
Wb.Saveas(fl)   '覆盖储存
app.DisplayAlerts = True   '是否翻盖
App.Quit  '()
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

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

点击浏览该文件:report.rar

此主题相关图片如下：qq截图未命名.png

如何与系统自带的生成报表，整合起来，明天研究。如果哪位顺手做的话，请告诉我。

Dim Book As New XLS.Book

请开通支持 excel 2007

实现代码打开excel报表，并打开excel打印对话框：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("e:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
app.Dialogs(8).Show  
wb.Close()
app.Quit()

Excel 2007中可以调用的内置对话框包括以下这些

貌似通用性很高。呵呵。