怎么将同一个文件夹下的多个EXCEL文件合并到一个EXCEL里？

怎么将同一个文件夹下的多个EXCEL文件合并到一个EXCEL里？ 用宏可以很方便的实现如下：

Sub UnionWorksheets()

Application.ScreenUpdating = False

Dim dirname As String

Dim nm As String

nm = ActiveWorkbook.Name

dirname = Dir("E:\123\*.xls")

Cells.Clear

Do While dirname <>""

If dirname <>nm Then

Workbooks.Open Filename:="E:\123\" &dirname

Workbooks(nm).Activate '复制新打开工作簿的第一个工作表的已用区域到当前工作表

Workbooks(dirname).Sheets(1).UsedRange.Copy _

Range("A65536").End(xlUp).Offset(1, 0)

Workbooks(dirname).Close False

End If

dirname = Dir

Loop

End Sub

新建一个EXCEL工作簿，打开开发工具里面的 Visual Basic 把上面的代码复制进去，然后根据下面的提示适当修改即可。

其中的 dirname = Dir("E:\123\*.xls")

Workbooks.Open Filename:="E:\123\" &dirname

是文件夹的路径，根据自己电脑的文件夹路径修改就可以。

Range("A65536").End(xlUp).Offset(1, 0)

这个A65536是行数，因为考虑是03版的所以用了这个，行数也是可以自己调大的。

这个宏可以实现 汇总同一个文件夹下的所有工作薄的功能。

如何将同一文件夹下的所有Excel表格合并到一个表格中

1、新建一个文件夹、将要合并的表格放到里面、新建一个excel工作薄、用excel打开、右击Sheet1标签；

2、选择查看代码（PS：excel有着一项，WPS没有）

3、将下列代码复制到文本框中：

Sub 合并搜索当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath &"\" &"*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <>""If MyName <>AWbName ThenSet Wb = Workbooks.Open(MyPath &"\" &MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN &Chr(13) &Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" &Num &"个工作薄下的全部工作表。如下：" &Chr(13) &WbN,vbInformation, "提示"End Sub

4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

如何多个excel文件合并到一个文件多个sheet

需要用到VBA代码。

Sub Books2Sheets()'定义对话框变量Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker)'新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fdIf.Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In .SelectedItems'打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem)'复制工作表 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsxnewwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")'关闭被合并工作簿 tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd If End With Set fd = NothingEnd Sub

具体方法请参考：

将多个excel文件合并到一个excel的多个sheet_百度经验

:jingyan.baidu./article/6181c3e0bd6274152ef1531e.

如何快速将多个文件夹下内容合并到一个文件夹下

建一个文件夹，把其他文件夹全部考进去，然后点该文件夹选搜索，这样所有文件都列出来了，把这些文件剪切然后到在该文件夹黏贴，这样所有文件都在这个文件夹了，其他文件夹就会变成空文件夹，可以选择删除。

怎样把多个excel文件合并到一个文件中

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1

2、选择查看代码（PS：excel有着一项，WPS没有）

3、将下列代码复制到文本框中：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath &"\" &"*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <>""

If MyName <>AWbName Then

Set Wb = Workbooks.Open(MyPath &"\" &MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN &Chr(13) &Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" &Num &"个工作薄下的全部工作表。如下：" &Chr(13) &WbN, vbInformation, "提示"

End Sub

4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

多个txt文件合并到一个excel的不同sheet

Sub ImportingText()

Dim MyDir As Object

Dim MyDate As Object

Dim i, j, k As Integer

Const ForReading = 1

i = 1

Sheet2.UsedRange.ClearContents

Sheet3.UsedRange.ClearContents

Set MyDir = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path &"log\")

Set MyFile = MyDir.Files

For Each File In MyFile

s = File.Name

Sheet2.Cells(i, 1) = s

i = i + 1

Next

Set MyDir = Nothing

Sheet2.Select

End Sub

这个是将某个目录下所有文件名读取的vba，你稍微改改就好了

我需要打印一个文件夹里多个excel文件(近百个,格式一样)如何调整打印设置

Sub 批量打印设置()Dim ljSet objShell = CreateObject("Shell.Application")Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)If objFolder Is Nothing ThenMsgBox "未选择文件夹"Exit SubEnd Iflj = objFolder.self.PathIf Right(lj, 1) <>"\" Thenlj = lj &"\"End IfSet objFolder = NothingSet objShell = NothingmyFile = Dir(lj &"*.xls")While myFile <>""Workbooks.Open lj &myFile'这里放入打印设置代码，可通过录制宏来自动生成，然后拷贝到此处ActiveWorkbook.Close 1myFile = DirWendEnd Sub

我需要打印一个文件夹里多个excel文件(近千个,格式一样)如何调整页面设置

需要用到VBA。

发一个样表，说明具体格式。我忙你做一个

zht@xwedu.

你好 我需要打印一个文件夹里多个excel文件(近千个,格式一样)如何调整页面设置

做一个表出来，设置好页面。保存

把其他表数据拷贝到那个设置好的表中，这样就即有页面，又有不同的数据了。

如何对打印机进行双面打印设置，才能同时打印一批excel文件

要双面打印的话 首先得打印机支持才可以

否则只能先打一面 然后将纸翻个面在打印

不清楚你的打印机型号

你可以查看该打印机的说明书看看是否支持双面打印

以及如果设置双面打印

proe 打印机配置文件放在哪个文件夹里

C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2008\R17.1\chs\Plotters

顺着这种思路找：C盘—Documents and Settings—Administrator—Application Data—Autodesk（CAD目录向下找）—AutoCAD 2008\R17.1\chs\Plotters

如果还找不到时，可以按组合键windows+F搜proe或是proe

如何调整打印设置使文字打印到指定位置？

使用文字框

cmh 格式文件有打印预览和打印设置吗？

有，制作chm电子书时候有选择

如何将多个pdf打印一个pdf文件

方法一:

1、运行Aaobe acrobat ，然后点击“创建”—“合并文件到单个PDF”，或者点击“ 创建”右侧的“合并”—“合并文件到单个PDF”。

2、d出“合并文件”的界面，点击“添加文件”—选择“添加文件”/“添加文件夹”/“重新使用文件”来进行添加要合并的PDF文件。

3、d出“添加文件”的界面，选择好要合并的PDF文件后，点击“添加文件”，完成要合并pdf文件的添加。

4、看到文件已添加完成，如果要调整合并文件的顺序，可以选中该文件然后用左下角的“向上”、“向下”按键来进行顺序的调整，调整完毕后点击右下角的“合并文件”按键。如果只想合并已添加单个pdf文件中的某几个页面可以通过“选择页面”选取想要添加的页面。

5、合并完成以后，会直接打开合并好的文件，名字一般为“组合1”，并自动d出“另存为”窗口，根据需要变更文件点击保存即可把合并好的文件保存下来。

方法二：

运行PDF Binder，d出PDF合并器功能界面，点击“添加文件”，添加要合并的PDF文件。

在打开界面选择好要合并的PDF文件后，点击“打开”，完成要合并pdf文件的添加。

下图可以看到文件已添加完成，如果要调整合并文件的顺序，可以选中该文件然后用功能区的“向上”、“向下”按键来进行顺序的调整，调整完毕后点击“合并！”按键。

在d出的“另存为”界面输入文件名，点击保存完成文件合并，打开文档可以看到文档已合并成功。

方法三，其他软件合并文件。

文件夹里有许多pdf格式的单个图片,打印时怎么能一下子设置全打印出来,而不是设置一张才打印一张

1、选择全部文件，鼠标按右键，打印，就能全部打印

2、用pdf软件，将不同的pdf文件合并成一个单文件，再打印

如何打印文件夹里的所有PDF文档

逐一用Adobe Acrobat XI Pro或Adobe Reader XI软件打开 打印吧。

---