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