- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 执行下列代码就报错，都查不出来哪儿的错？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70167)
-- 发布时间：2015/6/16 19:17:00
-- 执行下列代码就报错，都查不出来哪儿的错？
Tables("选课数据表").filter = ""
Tables("选课数据表").Filter = "[测评科目] = \'测评\' and [机考安排] <> \'不排考\'"
Tables("选课数据表").Sort = "试卷号,学号"
Tables("选课数据表").Select(0,0,Tables("选课数据表").Rows.count - 1,Tables("选课数据表").Cols.count - 1 )
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\\测评科目学员表.xls")
Dim fl As String = ProjectPath & "Reports\\测评类科目学员分数表.xls"
Book1.Build() \'生成细节区
Book1.Save(fl) \'保存工作簿
Tables("选课数据表").filter = ""
Tables("选课数据表").Filter = "[论文类安排] = \'论文类安排\' and [机考安排] <> \'不排考\'"
Tables("选课数据表").Sort = "试卷号,学号"
Tables("选课数据表").Select(0,0,Tables("选课数据表").Rows.count - 1,Tables("选课数据表").Cols.count - 1 )
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\\论文类科目学员表.xls")
Dim fl2 As String = ProjectPath & "Reports\\论文类科目学员分数表.xls"
Book2.Build() \'生成细节区
Book2.Save(fl) \'保存工作簿
Tables("选课数据表").filter = ""
此主题相关图片如下：qq截图20150616191503.png
-- 发布时间：2015/6/16 19:18:00
--
文件一个都没产生！
-- 发布时间：2015/6/16 19:29:00
--
都提示你错误原因了
-- 发布时间：2015/6/16 19:30:00
--
Tables("选课数据表").Filter = "[测评科目] = \'测评\' and [机考安排] <> \'不排考\'"
Tables("选课数据表").Sort = "试卷号,学号"
If Tables("选课数据表").Rows.Count > 0 Then
Tables("选课数据表").Select(0,0,Tables("选课数据表").Rows.count - 1,Tables("选课数据表").Cols.count - 1 )
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\\测评科目学员表.xls")
Dim fl As String = ProjectPath & "Reports\\测评类科目学员分数表.xls"
Book1.Build() \'生成细节区
Book1.Save(fl) \'保存工作簿
End If
Tables("选课数据表").Filter = "[论文类安排] = \'论文类安排\' and [机考安排] <> \'不排考\'"
Tables("选课数据表").Sort = "试卷号,学号"
If Tables("选课数据表").Rows.Count > 0 Then
Tables("选课数据表").Select(0,0,Tables("选课数据表").Rows.count - 1,Tables("选课数据表").Cols.count - 1 )
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\\论文类科目学员表.xls")
Dim fl2 As String = ProjectPath & "Reports\\论文类科目学员分数表.xls"
Book2.Build() \'生成细节区
Book2.Save(fl) \'保存工作簿
End If
Tables("选课数据表").filter = ""