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

Question

如题所述

Answer 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）打开这两个文件，再执行这个宏追问

谢谢，成功了

Answer 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

Answer 3

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

Answer 4

复制，粘贴

Answer 5

剪切追问

vb语言代码实现

追答

鼠标点击右边向下拖把你需要移动的文件覆盖然后 剪切到另一个文件夹（注 复制下面有粘贴什么的也有剪切） 要小心文件拖动不要被误删了