批量复制工作表到另一工作簿的问题

黑山上的鹰

各位老师：新建一工作簿，循环复制b表内容到新工作簿，并以c表的a2:a6单元格命名表名，运行不成功，请指点一下，谢谢！
Sub bb()
Dim wb As Workbook, sht As Worksheet '复制报表工作表到新工作簿
arr = Sheets("b").Range("a1:d100")
For y = 2 To 6
x = Sheets("c").Range("a" & y)
Set Z = CreateObject("Scripting.FileSystemObject")
wbname = ThisWorkbook.Path & "\" & "rrr.xls" '新建变量名为rrr的工作簿
If Z.FileExists(wbname) Then                     '复制至已有工作簿中
Set wb = Workbooks.Open(wbname)
wb.Worksheets.Add().Name = x
wb.Sheets(x).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
'wb.Close True
Else                                             '复制生成新工作簿中
以下有问题
    wb.Worksheets.Add().Name = x
wb.Sheets(x).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr

End If
ActiveWorkbook.Close True
Next
End Sub 新建 Microsoft Office Excel 97-2003 工作表.zip (11.41 KB, 下载次数: 0)

2020-2-22 13:59 上传

点击文件名下载附件

表格来啦

Excel一般得复制工作表，然后再进行各种筛选设置，需要导出时，就把整个表格给导出了，这样就会把一些不想给别人看的表格也给人家了，数据就泄密喽。那个seatable （官网：https://seatable.cn）是可以对同一个表同时提供多种视图的，每个视图可以有不同的过滤、排序条件，能呈现相应的数据内容。增加多个视图后，可以快速的在视图间切换，帮我们从不同的角度来看数据，还可以导出具体某个视图，很方便。
例如，只想查看ID和采购用户数，那么增加个视图，去掉其它列，然后导出就行了。