在已有excel表文件中增加sheet工作表出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Book As New XLS.Book("d:\data\工资表.xls")
Dim ls As new List(Of String)
For Each shet As XLS.Sheet In Book.Sheets
    ls.add(shet.Name)
Next
For Each nm As String In DataTables("工资表").GetValues("年月","年月 is not null")
    If ls.Contains(nm) = False Then
        ls.add(nm)
        book.Sheets.Add(nm)
    End If
Next
Book.Save("d:\data\工资表.xls")

这个代码的路径有问题，请确认存在这个路径的文件。

Dim fl1 As String = pth & dr("年度") & "年度工资月报表.xls"

msgbox(fl1)

没看懂你要做什么，不会做上传具体实例说明。

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)

For Each nm As String In DataTables("工资月报表").GetValues("月份")

If ls.Contains(nm) = False Then

ls.add(nm & "月份")

book1.Sheets.Add(nm & "月份")

End If

Book1.Save(fl1)

改成

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)

For Each nm As String In DataTables("工资月报表").GetValues("月份")

If ls.Contains(nm) = False Then

'在这里插入模板啊

End If

Book1.Save(fl1)

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 st As String = dr("月份") & "月份"
Dim yfl As String = pth & dr("年度") & "-" & dr("月份") & "月份工资月报表.xls"
Dim nfl As String = pth & dr("年度") & "年度工资月报表.xls"   '指定文件名
Dim bok As New XLS.Book()
If FileSys.FileExists(nfl) = False Then
    Bok.Save(nfl)        '保存年度工资月报表
End If

If FileSys.FileExists(yfl) = True Then
    ''======单个工资月报表汇复制到总工资年度表======
    Dim Bok1 As New XLS.Book(yfl)    '每月工资月报表
    Dim Bok2 As New XLS.Book(nfl)   '年度工资月报表
    Dim ls As new List(of String)
    For Each shet As XLS.Sheet In Bok2.Sheets
        ls.add(shet.Name)
    Next
    If ls.Contains(st) = False Then
        Dim shet = bok1.sheets(st)
        Bok1.Sheets.Remove(shet)
        Bok2.Sheets.Add(shet)
        Bok2.Save(nfl)
    Else
        Dim shet = bok2.sheets(st)
        bok2.Sheets.Remove(shet)
        '            bok2.Save(nfl)
        shet = bok1.sheets(st)
        Bok1.Sheets.Remove(shet)
        Bok2.Sheets.Add(shet)
        Bok2.Save(nfl)
    End If
Else
    MessageBox.Show("请先生成本月工资月报表,再执行生成Pdf")
End If

MessageBox.Show("Pdf已生成!")

主题：在已有excel表文件中增加sheet工作表出错