求一个VBA，一个文件夹中多个<em>EXCEL</em>工作簿合并成一个工作...-excel

等我开机帮你试试

VBA代码如下：

Sub s()

pth = "D:\My Documents\" '在这里输入文件所在文件夹的完整路径

    fn = Dir(pth & "*.xls")

Set newbk = Workbooks.Add

Set sht = newbk.Sheets(1)

k = 1

Application.DisplayAlerts = False

    Do While fn <> ""

        Set wb = Workbooks.Open(pth & fn)

For i = 1 To wb.Sheets.Count

            sht.Cells(k, 1) = fn & ":" & wb.Sheets(i).Name

k = k + 1

wb.Sheets(i).UsedRange.Copy

sht.Cells(k, 1).PasteSpecial xlPasteValuesAndNumberFormats

k = sht.UsedRange.Rows.Count + 1

Next

wb.Close False

fn = Dir

Loop

    newbk.SaveAs pth & "new.xlsx" '在这里设定合并文件的文件名

newbk.Close False

Application.DisplayAlerts = True

End Sub

扩展资料：

也可以用如下代码实7a64e4b893e5b19e363现：

Sub a()

For Each myfile In CreateObject("scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files

If myfile.Name Like "*.xl*" And Not myfile.Name Like "*" & ThisWorkbook.Name & "*" Then

With Workbooks.Open(myfile)

sheetcount = .Sheets.Count

For i = 1 To sheetcount

.Sheets(i).Copy After:=ThisWorkbook.Sheets(1)

Next

.Close False

End With

End If

Next

ThisWorkbook.Save

End Sub

将所有的excel放在同一个工作簿即可实现。

可以私信，要用你的表。

说千字,不如一附件

 

这里抄有有我以前做的合并文件夹下所有工作簿(包含子目录)到当前工作表的一个程序

楼主可以参考学习下.

 

也可以把问题袭作为内容（邮件主题一定要包含“Form”,本人以此为依据辨别非垃圾邮件，以免误删）、excel文件(去掉机密内容)作为附件发来看下  三零三三一三六 二七zhidao

本文标签：excel vba合并工作簿(1)excelvba合并工作簿(1)