老师下面红色部份代码出错：需求是：根据”工资月报表“模板，生成文件一个excel文件，并根据表的月份自动增加工作表
Dim dr As Row = Tables("工资月报表").Current
Dim pth As String = ProjectPath & "Reports\工资月报表\" & dr("年度") & "\"
If FileSys.DirectoryExists(pth) = False Then '创建新文件夹
FileSys.CreateDirectory(pth)
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\工资月报表.xls") '提取模板
Dim fl As String = pth & dr("年度") & "-" & dr("月份") & "月份 工资月报表.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("工资月报表",2)
Ws.PrintPreview
App.Quit
Dim fl1 As String = pth & dr("年度") & "年度 工资月报表.xls"
Dim Book1 As New XLS.Book(fl1)
Dim ls As new List(Of String)
For Each shet As XLS.Sheet In Book1.Sheets
ls.add(shet.Name)
Next
For Each nm As String In DataTables("工资月报表").GetValues("月份")
If ls.Contains(nm) = False Then
ls.add(nm & "月份")
book1.Sheets.Add(nm & "月份")
End If
Next
Book1.Save(fl1)
错误提示：
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.9.9.1
错误所在事件：窗口,工资表,Button2,Click
详细错误信息：
打开存储文件失败。
加好友 
发短信
Post By：2018/9/14 12:19:00 [只看该作者]
此主题相关图片如下：qq截图20180914122030.png
