主题：[求助]导出报表时出现“流不支持“的提醒

1、代码改成

If Tables( "PDTbuffer").Current IsNot Nothing Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "Excel 文件|*.xlsx" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        Dim Book As New XLS.Book(ProjectPath & "Attachments\FOBFullVersion.xlsx")
        Dim Sheet As XLS.Sheet = Book.Sheets(0) '
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = dlg.FileName
        Proc.Start()
    End If
Else
    MessageBox.Show("Buffer表为空,请先导入数据")
End If

2、提示 'System.OutOfMemoryException 就是内存溢出了，如果你excel里面引用了图片，而图片又太大太多的时候，就会出现这样的报错。