excel vba 将工作簿1的部分内容复制新建的工作簿2里-宏 新建excel,excel如何使用宏

楼主是要将工作簿A中的工作表T，复制到工作簿B来，是吗？首先要把工作簿B打开然后按一楼的方法，右击工作表T标签，工作簿下拉菜单那边选择工作簿B选择要放在哪个工作表之前建立副本即可

教你最简单的办法，录制宏。把你的想法和操作全部录制下来就可以了。包括 及新建工作簿、打开工作簿、关闭工作簿、再回到原来的工作簿
在工作e799bee5baa6e997aee7ad94e4b893e5b19e333簿所在的文件夹里面新建工作簿，将下面代码粘贴入任意工作表的代码窗口中，按F5执行，就会把与此工作簿同一文件夹下的所有工作簿中工作表名为“sheet1"的表格复制到这个工作簿中来，并且新命名为"A" "B" "C" ……

Sub 复制工作簿中的工作表()
Application.ScreenUpdating = False
Dim FileName As String, wb As Workbook, fn As String, sht As Worksheet, k As Integer
k = 65
FileName = Dir(ThisWorkbook.Path & "\*.xls")
Do While FileName <> ""
If FileName <> ThisWorkbook.Name Then
fn = ThisWorkbook.Path & "\" & FileName
Set wb = GetObject(fn)
For Each sht In wb.Worksheets
If sht.Name = "sheet1" Then
sht.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ActiveSheet.Name = "sheet" & Chr(k)
k = k + 1
End If
Next
wb.Close False
End If
FileName = Dir
Loop
Application.ScreenUpdating = True
End Sub

代码如下e69da5e6ba907a64338(样本在附件中）

Sub test()
Dim t
Dim wb1 As Workbook, wb2 As Workbook
Dim fn As String, path As String
t = Timer
fn = Application.GetOpenFilename("Excel2003文件,*.xls,Excel2007文件,*.xlsx", , "请选择源文件", , False)
path = Left(fn, InStrRev(fn, "\"))
ftype = IIf(Right(fn, 1) = "x", ".xlsx", ".xls")
On Error GoTo nb
nn:
fb = InputBox("输入要保存的文件名，如：" & Chr(10) & "5月报表", "新工作簿名称")
If Len(fb) = 0 Then GoTo nn
Set wb1 = Workbooks.Open(fn, , False)
wb1.Worksheets(1).Copy     '复制源文件的第一个表。可以表名代替表的索引，如：
'--------------------------wb1.Worksheets("Sheet1").Copy
Set wb2 = ActiveWorkbook
wb2.SaveAs path & fb & ftype
wb1.Close
wb2.Close
MsgBox "处理完成。共用时" & Timer - t & "秒。" & Chr(10) & "新工作簿名为：" & fb & ftype & ",保存在" & path & "下。"
nb:
End Sub

本文标签：excel如何使用宏(11)宏 新建excel(1)