我用帮助的Execl报表例子测试没有问题
Dim n As Integer = Tables("员工").Rows.Count-1
Tables("员工").Select(0,2,n,2)
Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
Dim fl As String = ProjectPath & "Reports\资料卡.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()