將文件夾內所有表格匯入一張表格

1. 如何將同一文件夾下的所有Excel表格合並到一個表格中

1、新建一個文件夾、將要合並的表格放到裡面、新建一個excel工作薄、用excel打開、右擊Sheet1標簽；
2、選擇查看代碼（PS：excel有著一項，WPS沒有）
3、將下列代碼復制到文本框中：

Sub合並搜索當前目錄下所有工作簿的全部工作表()
DimMyPath,MyName,AWbName
DimWbAsworkbook,WbNAsString
DimGAsLong
DimNumAsLong
DimBOXAsString
Application.ScreenUpdating=False
MyPath=ActiveWorkbook.Path
MyName=Dir(MyPath&""&"*.xls")
AWbName=ActiveWorkbook.Name
Num=0
DoWhileMyName<>""
IfMyName<>AWbNameThen
SetWb=Workbooks.Open(MyPath&""&MyName)
Num=Num+1
WithWorkbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)
ForG=1ToSheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)
Next
WbN=WbN&Chr(13)&Wb.Name
Wb.CloseFalse
EndWith
EndIf
MyName=Dir
Loop
Range("B1").Select
Application.ScreenUpdating=True
MsgBox"共合並了"&Num&"個工作薄下的全部工作表。如下："&Chr(13)&WbN,
vbInformation,"提示"
EndSub

4、點擊運行、一段時間（取決於表格的大小和多少）後，合並完成了。

2. 將一個文件夾里所有excel導入一個excel里

親，將要匯總的文件放到一個單獨專門的文件夾中。在此文件夾中新建或打開一個Excel文件作為匯總文件，找一個空白Sheet或者新建一個Sheet存放匯總數據。

然後按「Alt+F11」打開VBA編輯窗口，然後在左側對應的Sheet上雙擊，右側空白處粘貼下面的代碼。關閉VBA窗口。然後按「Alt+F8」打開宏窗口，選擇剛插入的宏，點擊「執行」。

Subhz()
Dimbt,r,c,n,firstAsLong
bt=1'這里設置標題行有幾行
Dimf,ffAsObject
Setfso=CreateObject("Scripting.FileSystemObject")
Setff=fso.getfolder(ThisWorkbook.Path&"")
ForEachfInff.Files
Iff.Name<>ThisWorkbook.NameAndLeft(f.Name,2)<>"~$"Then
Workbooks.Openf.Name
WithWorkbooks(f.Name).ActiveSheet
Iffirst=0Then
c=.Cells(1,Columns.Count).End(xlToLeft).Column
.Range("A1").Resize(bt,c).CopyThisWorkbook.ActiveSheet.Range("A1")
n=bt+1:first=1
EndIf
r=.Cells(Rows.Count,"A").End(xlUp).Row
.Range("A"&bt+1).Resize(r-bt,c).CopyThisWorkbook.ActiveSheet.Range("A"&n)
n=n+r-bt
EndWith
Workbooks(f.Name).CloseFalse
EndIf
Nextf
Setfso=Nothing
EndSub

3. 怎樣把文件夾所有excel表格的內容轉到一個表格里

先將文件名列表放在一個文本文件或EXCEL文件里，本例中暫定為文本文件 dir.txt。
（1.進入DOS窗口：開始→運行→CMD+回車。
（2. 進入存放那些表格的文件夾。
（3. 輸入 dir /b *.xls >dir.txt
然後見一個EXCEL表，暫定名為 匯總表.xls ,並打開此表
然後運行下面的宏。
Sub mv2one()
'' 宏由 nugget 制
'
' 目的：將一個文件中的1個表分別復制到統一的文件中去。
'
Dim mystring(100) As String 『如果你的文件大雨100，就改一下這個數

Windows("匯總表.xls").Activate
icount = Worksheets.Count
strpath = ActiveWorkbook.Path
'
drv = Left(strpath, 3)
ChDrive drv
ChDir strpath
j = 1
Open "dir.txt" For Input As #1 ' 打開輸入文件。
Do While Not EOF(1) ' 循環至文件尾。
Input #1, mystring(j)
Debug.Print mystring(j), j ' 在立即窗口中顯示數據。

j = j + 1
Loop
Close #1 ' 關閉文件

For i = 1 To j - 1 Step 1

Workbooks.Open Filename:=mystring(i), UpdateLinks:=0, notify:=0

Sheets(1).Select
Sheets(1).Copy After:=Workbooks("匯總表.xls").Sheets(i)

Workbooks(mystring(i)).Close savechanges:=False
Next i
Workbooks("匯總表.xls").Save

End Sub

4. 如何將一個文件夾中多表數據匯總到一表

摘要 01新建一個空白的Excel文件

5. EXCEL怎樣把文件夾所有的EXCEL表提取到另外一個表中

我這兒有代碼，合並當前目錄下所有工作簿的全部工作表；復制運行試試；
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