如何把多個(gè)文件合并成一個(gè)文件夾？這個(gè)可以按照可以修改excel代碼來(lái)胸壁痛多個(gè)文件。詳細(xì)點(diǎn)步驟：1、剛建一個(gè)文件夾。2、即將合并的表格弄到里面。3、新建任務(wù)一個(gè)表格。4、用excel再打開(kāi)。5、右擊S

如何把多個(gè)文件合并成一個(gè)文件夾？

這個(gè)可以按照可以修改excel代碼來(lái)胸壁痛多個(gè)文件。詳細(xì)點(diǎn)步驟：

1、剛建一個(gè)文件夾。

2、即將合并的表格弄到里面。

3、新建任務(wù)一個(gè)表格。

4、用excel再打開(kāi)。

5、右擊Sheet1。

6、中,選擇欄里點(diǎn)代碼。

7、將下列代碼圖片文件夾到文本框中：Sub單獨(dú)設(shè)置當(dāng)前目錄下所有工作簿的全部工作表()Dim MyPath,MyName,AWbName Dim Wb As workbook,WbNlikeString Dim GAs LongDimNumAs LongDimBOXlikeString False MyPath MyName Dir(MyPath*.xls)AWbNameNum0DoWhileMyNameIfMyNameAWbNameThenSetWb(MyPath MyName)Num Num 1 With Workbooks(1).ActiveSheet.Cells(.Range(B65536).End(xlUp).Row2,1)Left(MyName, Len(MyName)-4)ForG1did(G).Cells(.Range(B65536).End(xlUp).Row1,1)Next WbN WbN Chr(13)False End With End If MyName Dir Loop Range(B1).SelectTrueMsgBox共不合并了Num個(gè)工作薄下的全部工作表。追加：Chr(13)WbN,vbInformation,提示EndSub

8、再點(diǎn)運(yùn)行，即可順利擴(kuò)展。：-Microsoft OfficeExcel

wps如何將多個(gè)表格數(shù)據(jù)合并到一個(gè)表格中？

1、新建項(xiàng)一個(gè)文件夾、將要合并的表格弄到里面、空白文檔一個(gè)表格、用excel然后打開(kāi)、右擊Sheet1

2、中,選擇欄里點(diǎn)代碼(PS：excel有著一項(xiàng)，WPS沒(méi)有)

3、將c選項(xiàng)代碼不能復(fù)制到文本框中：

Sub不合并當(dāng)前目錄下所有工作簿的全部工作表()

DimMyPath,MyName,AWbName

DimWbsuchworkbook,WbNsuchString

DimGAs Long

DimNumAs Long

DimBOXlikeString

False

MyPath

MyNameDir(MyPathampamp*.xls)

AWbName

Num0

DoWhileMyNameltgt

IfMyNameltgtAWbNameThen

SetWb(MyPathampampMyName)

NumNum1

WithWorkbooks(1).ActiveSheet

.Cells(.Range(B65536).End(xlUp).Row2,1)Left(MyName, Len(MyName)-4)

ForG1can

(G).Cells(.Range(B65536).End(xlUp).Row1,1)

Next

WbNWbNampChr(13)amp

False

EndWith

EndIf

MyNameDir

Loop

Range(B1).Select

True

MsgBox共胸壁痛了ampNumamp個(gè)工作薄下的全部工作表。萬(wàn)分感謝：ampChr(13)ampWbN,vbInformation,提示

EndSub

4、直接點(diǎn)擊運(yùn)行、段時(shí)間(它取決于表格的大小和多少)后，擴(kuò)展能夠完成了。