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

 我来答
2724421
推荐于2018-12-21 · TA获得超过2495个赞
知道大有可为答主
回答量:1554
采纳率:71%
帮助的人:720万
展开全部
新建一个文件夹,新建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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式