EXCEL如何通过VB把数据复制到另一数据表

Sub 数据导出()
'
' 数据导出 宏

Workbooks.Open Filename:="F:\复制数据表名.xls"

'表格名
Sheets("表格名").Select
Cells.Select
Selection.Clear
Windows("Sheet1.xlsm").Activate
Sheets("表格名").Select
Cells.Select
Selection.Copy
Windows("复制数据表名.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Sheet1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("复制数据表名.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub