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

这段代码在“命令窗口”中执行顺利。

放在”报表事件“里出错

再有一个问题是：如果“村名”列含有很多不同的名称，如何根据不同的“村名”生成不同的报表，报表名和村名对应。

谢谢