Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
dlg.FileName=Tables("基础数据").current("村名") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\民生工程货币化资金监管查询系统草原生态模板.xls")
Book.Build() '生成细节区
Book.Save(dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
proc.file=dlg.FileName
Proc.Start()
End If
这段代码在“命令窗口”中执行顺利。
放在”报表事件“里出错
再有一个问题是:如果“村名”列含有很多不同的名称,如何根据不同的“村名”生成不同的报表,报表名和村名对应。
谢谢