VBA如何实现移动工作簿、复制工作簿、删除工作簿。

新建一个文件夹,新建4个工作薄,名字分别是:表1.xls,表2.xls,表3.xls,代码.xls.然后在这个文件夹下面再新建一个文件夹名字为:移动到的文件夹.
打开代码.xls 粘贴以下代码到代码.xls 工作薄的VBA窗口.分别执行代码过程
Sub 复制表1()
FileCopy ThisWorkbook.Path & "/表1.XLS", ThisWorkbook.Path & "\移动到的文件夹\表1.XLS"
End Sub
Sub 移动表2()
FileCopy ThisWorkbook.Path & "/表2.XLS", ThisWorkbook.Path & "\移动到的文件夹\表2.XLS"
Kill ThisWorkbook.Path & "\表2.XLS"
End Sub
Sub 删除表3()
Kill ThisWorkbook.Path & "\表3.XLS"
End Sub