VBA导入文件到指定的工作簿,vba把数据写入另一个工作簿

首页 > 娱乐 > 作者:YD1662025-06-16 19:07:24

VBA导入文件到指定的工作簿,vba把数据写入另一个工作簿(1)

下面的代码是导入指定工作薄的所有工作表Sub 导入()drfile = InputBox("请输入要导入的excel文件名(不包含扩展名):", "输入")drfile = drfile & ".xls"Workbooks.Open ThisWorkbook.Path & "" & drfiledrcount = Workbooks(drfile).Sheets.CountFor i = 1 To drcountWith Workbooks(drfile).Sheets(i).Copy after:=ThisWorkbook.Sheets(Sheets.Count)End WithNextWorkbooks(drfile).Close FalseEnd Sub

栏目热文

文档排行

本站推荐

Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.