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