VBA合并拆分工作簿(表)源代码

'合并工作簿函数01

Function hebing(path As String)

Dim i As Integer

Dim wb As Workbook

Dim sh As Worksheet

Dim name As String

If VBA.Strings.Right(path, 1) <> "\" Then

path = path & "\"

End If

name = Dir(path & "*.xls*")

For i = 1 To 1000

Set wb = Workbooks.Open(path & name)

For Each sh In wb.Sheets

sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).name = Split(wb.name, ".")(0) & sh.name

Next

wb.Close

name = Dir

If name = "" Then

Exit For

End If

Next

ThisWorkbook.Sheets(1).Select

End Function

'合并工作簿函数02

Function hebing2()

Dim i, j As Integer

Dim paths()

paths = Application.GetOpenFilename("excel,*.xls*

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

lyc009

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值