如何使用宏宏vb编程，点一下按钮就批量复制sheet1表格到其他Excel文件中？ 5
比如说：按一下更新按钮，就可以把AExcel文件的计划表复制到BExcel文件中的计划、CExcel文件的计划、DExcel文件的计划...
比如说：按一下更新按钮，就可以把AExcel文件的计划表复制到BExcel文件中的计划、CExcel文件的计划、DExcel文件的计划
展开
2个回答
展开全部
SUB 宏1()
DIM T, WB AS WORKBOOK
FOR EACH T IN ("B.XLS","C.XLS","D.XLS")
ON ERROR RESUME NEXT
SET WB=NOTHING
SET WB=WORKBOOKS(T)
ON ERROR GOTO 0
IF WB IS NOTHING THEN SET WB=WORKBOOKS.OPEN(T)
WORKBBOKS("A.XLS").SHEETS("计划表").USEDRANGE.COPY WB.SHEETS("计划表").CELLS(1,1)
NEXT T
END SUB
DIM T, WB AS WORKBOOK
FOR EACH T IN ("B.XLS","C.XLS","D.XLS")
ON ERROR RESUME NEXT
SET WB=NOTHING
SET WB=WORKBOOKS(T)
ON ERROR GOTO 0
IF WB IS NOTHING THEN SET WB=WORKBOOKS.OPEN(T)
WORKBBOKS("A.XLS").SHEETS("计划表").USEDRANGE.COPY WB.SHEETS("计划表").CELLS(1,1)
NEXT T
END SUB
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
