vba 复制 （路径A下的A1 EXCEL的工作表Asheet） 到 （路径B下的B1 EXCEL的工作表Bsheet).

Question

为什么我只能copy个sheet名称，内容没有复制过来呢，，。，。。
我就是要复制内容，括号加起来是为了让大家更清晰的看清楚需求～～～～

Answer 1

' 在EXCEL的工作表内任意的一个sheet页面内加个“命令按钮”，代码如下：
Private Sub CommandButton1_Click()
Macro1
End Sub
' ***************************
'模块代码如下：
Sub Macro1()
Workbooks.Open ("D:\456\A1.xls") '此处为（路径A下的A1 EXCEL的工作表）
Worksheets("ASheet").Activate
Sheets("ASheet").Select
Workbooks.Open ("D:\123\B1.xls") '此处为（路径B下的B1 EXCEL的工作表）
Workbooks("A1.XLS").Sheets("ASheet").Copy After:=Workbooks("B1.xls").Sheets(3)
' Workbooks("B1.xls").ActiveSheet.Name = "BSheet" '此处将Asheet更名为BSheet，第二次运行则重名(可加判断是否存在，不存在则改名，存在则不改名，不复制)
Workbooks("A1.xls").Close
Workbooks("B1.xls").Save
Workbooks("B1.xls").Close
End Sub
'你的情况可能的原因是：创建了个新”sheet“，名字叫”ASheet“ ！

Answer 2

如果路径A下的A1 EXCEL的工作表Asheet里有VBA的话，
你光点击SHEET而后复制过来的话，VBA的内容是复制不过来的。
你做的动作只是复制SHEET内容，而不是VBA。

Answer 3

'注：07版不能向03版复制，03版可向07版复制
Sheets("Sheet3").Select
'Sheets(1)可以设置，移动到哪个工作页后面
Sheets("Sheet3").Copy After:=Workbooks("a.xlsx").Sheets(1)本回答被提问者和网友采纳

Answer 4

两个表都要打开。
Windows("A1.xls").Activate
sheets("Asheet").select
Cells.Select
Selection.Copy
Windows("B1.xls").Activate
sheets("Bsheet").select
Cells.Select
ActiveSheet.Paste