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

这个代码如何编辑？

直接生成即可：http://www.foxtable.com/webhelp/scr/1145.htm

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("年度") & "年度工资月报表.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

折腾了三个小时还是出错，只有请老师帮忙：

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) '年度工资月报表

For Each sht As XLS.Sheet In bok.Sheets '年度工资月报表工作表

Dim shet As XLS.Sheet = Bok1.Sheets(st)

If sht.Name <> st Then

Bok1.Sheets.Remove(shet)

Bok2.Sheets.Add(shet)

Bok2.Save(nfl)

Else

bok2.Sheets.Remove(shet)

bok2.Save(nfl)

Bok1.Sheets.Remove(shet)

Bok2.Sheets.Add(shet)

Bok2.Save(nfl)

End If

Else

MessageBox.Show("请先生成本月工资月报表,再执行生成Pdf")

End If

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

此主题相关图片如下：aaaa2.png

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

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工作表出错