58问答库 > 用vb语言实现，把一个excel工作簿里所有工作表的内容移到另一个工作簿里，怎么实现？

用vb语言实现，把一个excel工作簿里所有工作表的内容移到另一个工作簿里，怎么实现？

2024-11-07 07:44:50

推荐回答（5个）

回答（1）：

1）把以下这段代码复制到个人宏工作簿的模块里准备调用
Sub MoveSheets()
Dim w As Workbook, ws As Workbook, sht As Worksheet, I As Integer
Set w = Workbooks("源文件名")
Set ws = Workbooks("目标文件名")
For Each sht In w.Worksheets
I = ws.Worksheets.Count
sht.Move after:=ws.Sheets(I)
Next
End Sub
2）打开这两个文件，再执行这个宏

回答（2）：

工作表的名称处理好就行,不要与第2个工作簿重名
要复制的工作簿名称工作簿1.xlsx
复制到的工作簿名称工作簿2.xlsx

Sub 宏1()
Dim i, s
With Workbooks("工作簿1.xlsx")
For i = .Sheets.Count To 1 Step -1
s = .Sheets(i).Name
.Sheets(i).Name = "工作簿1的" & s
s = .Sheets(i).Name
.Sheets(i).Copy Before:=Workbooks("工作簿2.xlsx").Sheets(1)
Next
End With
'不保存关闭工作簿1
Workbooks("工作簿1.xlsx").close false
End Sub

回答（3）：

不是用VB语言，是VBA语言，用COPY方法复制，用粘贴方法粘贴。粘贴方法去到帮助里查。

回答（4）：

复制，粘贴

回答（5）：

剪切