excel工作簿合并实现VBA代码

办公教程导读

收集整理了【excel工作簿合并实现VBA代码】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含856字，纯文字阅读大概需要2分钟。

办公教程内容图文

同一文件夹内N个工作簿 ，每个工作簿里N个工作表，最终合并到一个工作表里的代码。

假设每个表格结构相同，第一行为标题，第二行为表头，表头内容固定，行数不固定，列固定14，工作表数量不固定，工作簿数量不固定。

Sub Sample()

Dim MyWb As Workbook

Dim MySht As Worksheet

Dim MyName As String, MyPath As String

Dim MyRow As Long, MySRow As Long, MyShtN As Long

Dim MyArr

MyPath = ThisWorkbook.Path & ""

MyName = Dir(MyPath & "*.xlsx")

With ActiveSheet

.Cells.Clear

Range("a1") = "标题"

Range("a2:n2") = "表头"

Do While MyName <> ""

If MyName <> ThisWorkbook.Name Then

Set MyWb = Workbooks.Open(MyPath & MyName)

For MyShtN = 1 To Sheets.Count

MySRow = .Cells(Rows.Count, 1).End(xlUp).Row

MyRow = Cells(Rows.Count, 1).End(xlUp).Row

MyArr = Sheets(MyShtN).Range("a3").Resize(MyRow – 2, 14)

.Cells(MySRow + 1, 1).Resize(MyRow – 2, 14) = MyArr

Next

MyWb.Close False

End If

MyName = Dir

Loop

With .UsedRange

.Columns.AutoFit

.Borders.Color = 1

End With

End With

End Sub

办公教程总结

以上是为您收集整理的【excel工作簿合并实现VBA代码】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel工作簿合并实现VBA代码。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。