html 合并文件到excel,如何合并多个Excel文件到一个Excel文件中且要放在不同的工作表内?...

一、整体简介:我理解你的需求应该是:用一个Excel工作簿(结果工作簿.xlsm)来获取其它工作簿中的工作表内容,将其保存至当前工作簿中(分不同工作表保存)。

如图:

1590efcc3368177bb93204e106240b8b.gif

二、所需工具/原料:微软office2007(但要启用宏)

如图:

7c72b6ba1cd51606be5babae819e79bc.gif

三、方法:新建一个空Excel文档,写入宏代码,关联宏代码,执行宏=结果。

四、步骤:

1、新建一个空白的Excel,并打开

2、切换到【视图】-【宏】-【查看宏】。如图:

1b98c95b161cb6574e076ad0f741d1dc.gif

3、输入“宏名”-点【创建】按钮。如图:

4c4cbef80a4822f6a8607331f38f0e17.gif

4、输入宏代码,并保存。如图:

cac14736b8b9682b82354dffd65c7e0b.gif

代码如下: Sub复制指定工作簿的全部工作表3()

DimFileOpen

DimXAsInteger

Application.ScreenUpdating=False

FileOpen=Application.GetOpenFilename(FileFilter:="Excel文件(*.xlsx),*.xlsx",MultiSelect:=True,Title:="2015")

X=1

WhileX<=UBound(FileOpen)

Workbooks.OpenFilename:=FileOpen(X)

Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X=X+1

Wend

ExitHandler:

Application.ScreenUpdating=True

ExitSub

errhadler:

MsgBoxErr.Description

EndSub

5定义快速按钮用于执行宏。如图:

f27eff88e8728fec5c399d4eded8446b.gif

6完善第5步骤:“从下列位置选择命令-【宏】”-双击自定义的宏,添加至右边-修改宏属性(图标,名称等),图标、名称随便自定-然后一路确定下来-最后保存这个Excel文件。如图:

5c7f5cb3eade190ab52d5f2a49b19797.gif

85f25d59d5d26d29264219d1de49db9f.gif

66e4ac973047369856683b90d41649b0.gif

1b270a3f3eef874c812c77d5c9d65ad6.gif

7、打开刚刚新建的带宏的Excel文件,点击宏的执行按钮,就能得到你想要的结果。如图:

360a3158b736c9064d3fb1e0e7cdd80c.gif

65983600349464109d084a42695420d5.gif

3422dbbc027da3d87f92972985cd24a0.gif

五、好人做到底,最后给你附件

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值