以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  什么原因？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118459)
--  作者：cdwanghc
--  发布时间：2018/5/3 13:49:00
--  什么原因？
请教下面这段代码问题出在哪里？

Dim S As String  = DataTables("分组").GetComboListString("姓名","[组别]=\'华东\'")
Dim Values() As String = S.split("|")
For N As Integer = 0 To Values.Length - 1
    Output.Show(Values(N))                       \'这里可以执行
    Tables("分组").filter="[CS]=Values(N)"     \'这里不能运行,显示Values()未定义
\'
\'
\'
Next
--  作者：有点甜
--  发布时间：2018/5/3 14:17:00
--  

你这段代码想做什么？

 

Dim S As String  = DataTables("分组").GetComboListString("姓名","[组别]=\'华东\'")
Dim Values() As String = S.split("|")
For N As Integer = 0 To Values.Length - 1
    Output.Show(Values(N))                       \'这里可以执行
    Tables("分组").filter = "[CS]=\'" & Values(N) & "\'"    

Next
--  作者：cdwanghc
--  发布时间：2018/5/4 10:29:00
--  
实际代码是：
Dim S As String  = DataTables("分组").GetComboListString("姓名","[组别]=\'华东\'")
Dim Values() As String = S.split("|")
For N As Integer = 0 To Values.Length - 1
    Tables("任务").filter = "[姓名]=\'" & Values(N) & "\'" 
    
\'
\'
Next
代码想做的事情：
根据“分组”表里的分组情况（人员分组会变动），在总表（“任务”表）中，筛选出每个人的工作任务明细，输出到excel中。
（每组一个excel工作簿，工作簿中，每一个人员对应一个工作表）

谢谢解答。
--  作者：有点甜
--  发布时间：2018/5/4 10:36:00
--  
那2楼的代码没问题，最后你saveexcel即可。
--  作者：cdwanghc
--  发布时间：2018/5/4 10:41:00
--  
继续请教：
在excel工作簿的sheet1工作表中建立了模板。
现在要在工作簿中增加工作表。如何将sheet1中的模板复制到新增的工作表中？
试了add和insert，只能增加或插入一个空表。
--  作者：有点甜
--  发布时间：2018/5/4 11:06:00
--  

拷贝、粘贴？参考（sheet1、sheet2 拷贝到 sheet3 去）

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") \'指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
\'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select \'横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select \'纵向拷贝
ws3.paste

\'Wb.Save
app.Visible = True
\'App.Quit