以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel表格设计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112982)
--  作者：kaituozhe
--  发布时间：2018/1/6 2:22:00
--  excel表格设计

有一个excel表格包含所有数据，我希望按指定的条件把这些数据分开并保存到一个工作簿中，该怎么设计代码，我的想法是这总表中的数据复制到新增的工作表中，然后把不符合条件的数据，但是没有复制工作表的方法，该怎么办？
--  作者：kaituozhe
--  发布时间：2018/1/6 2:26:00
--  
我想把设计好的excel模板作成excel打不开的模板，但是可以用foxtable的程序打开，防止别人修改模板，能否实现
--  作者：有点蓝
--  发布时间：2018/1/6 8:53:00
--  
参考：http://www.foxtable.com/webhelp/scr/2121.htm

Protect

保护工作表。
Protect方法可以指定保护密码参数，该密码为一个区分大小写的字符串。如果省略本参数，不用密码就可以取消对该工作表的保护。如：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97286&replyID=670470&skin=1
--  作者：kaituozhe
--  发布时间：2018/1/7 8:51:00
--  

以下是复制工作表的代码，怎么能够复制工作表同时指定工作表名称？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比") \'指定要复制的工作表
With Wb.WorkSheets
    Ws.Copy(After:=.Item(.Count))\'复制到最后面
    Ws.Copy(Before:=.Item(1))\'复制到最前面
    Ws.Copy  \'复制到一个新工作簿
End With
Wb.Save
App.Quit
--  作者：有点甜
--  发布时间：2018/1/7 17:39:00
--  

参考

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'指定要复制的工作表
With Wb.WorkSheets
    Ws.Copy(After:=.Item(.Count))\'复制到最后面
    msgbox(app.ActiveSheet.name)
    app.activesheet.name = "abcdefg"
    Ws.Copy(Before:=.Item(1))\'复制到最前面
    msgbox(app.ActiveSheet.name)
    \'Ws.Copy  \'复制到一个新工作簿
End With
app.visible = True
\'Wb.Save
\'App.Quit