如何提取工作薄中的某一表

来源：百度知道 编辑：UC知道 时间：2024/05/23 13:31:19
比如某一电子表中分有表一表二，如何使用函数单独提取表一形成新的电子表
工作薄太多，上千的工作薄，复制太慢了

用屁函数呀
复制一份儿把没用的删了不行吗

有规则的话可以作到
HI我加分吧

只能用宏了，函数是做不到的。
首相将所有的要提取的工作簿放在一个文件夹下，、
然后再新建一个工作簿，文件名任意。
然后，按ALT+F8,输入宏名后创建一个宏。
代码如下：
Sub 提取工作表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MyPath = ActiveWorkbook.Path
YourPath = MyPath & "\" & "新目录"
If Dir(YourPath, vbDirectory) = "" Then
MkDir MyPath & "\" & "新目录"
End If
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
BOX = InputBox("请输入您要提取的工作表号，以阿拉伯数值为准。" & Chr(13) & Chr(13) & _
"如要提取工作簿的第2张工作表，则输入“2”。" & Chr(13) & Chr(13) & _
"默认值为“1”。", "输入", 1)
j = BOX
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1