如何在將excel中的名字批量重命名到word中？文件的批量重命名可以通過VBA解決。1.首先，創(chuàng)建三個(gè)新的word文件，并將它們放在一個(gè)文件夾中，只有需要更改名稱的word文件。如下圖所示:2.在此

如何在將excel中的名字批量重命名到word中？

文件的批量重命名可以通過VBA解決。

1.首先，創(chuàng)建三個(gè)新的word文件，并將它們放在一個(gè)文件夾中，只有需要更改名稱的word文件。如下圖所示:

2.在此文件夾的同一路徑下，創(chuàng)建一個(gè)新的Excel文件來更改word文件的名稱。

3.打開Excel文件，將word文件的名稱與新名稱一一對(duì)應(yīng)。表格如下圖所示:

所有文件名都沒有后綴。docx。

4.打開VBE窗口，右鍵創(chuàng)建新模塊，輸入VBA代碼。如下圖所示:

圖片碼在上面，文字碼在下面。主體可以將文本代碼復(fù)制到VBE的模塊中。

子fso()

Dim對(duì)象作為對(duì)象FSO對(duì)象

Dim對(duì)象文件夾作為對(duì)象

Dim對(duì)象文件作為目標(biāo)文件

作為字符串路徑的Dim sPath

創(chuàng)建FSO對(duì)象

設(shè)置objFSO CreateObject()

SPath amp新文件夾路徑

設(shè)置對(duì)象文件夾(sPath)

錯(cuò)誤的

申請(qǐng)。顯示警報(bào)錯(cuò)誤

設(shè)置sht工作簿(操作文件。xlsm)。紙張(紙張1)

遍歷路徑下的所有文件。

對(duì)于中的每個(gè)對(duì)象文件

帶sht

對(duì)于i 2來說。單元格(，1)。結(jié)束(xlUp)。排

如果InStr(，。Cells(i，1)) gt 0然后

。電池(1，2)安培。docx重命名

為...退出

如果…就會(huì)結(jié)束

然后

以…結(jié)尾

下一個(gè)對(duì)象文件

真實(shí)的

申請(qǐng)。顯示警報(bào)真

末端接頭

5.添加一個(gè)按鈕來運(yùn)行VBA代碼。

6.指定宏名，然后單擊確定。

7.結(jié)果如下:

8.在點(diǎn)擊按鈕1之前，再次確認(rèn)word文件的名稱，如下圖所示:

單擊[按鈕1]，word文件名將更改為:

8、再次更改新名稱，測(cè)試:

單擊運(yùn)行代碼:

具體操作請(qǐng)參考以下gif圖:

以上是VBA操作文件的代碼，僅供參考！

歡迎關(guān)注套路Exc

Excel中怎么批量修改sheet的名字？改成統(tǒng)一的格式如sheet1，2，3即可？

對(duì)I 1到sheets (I)使用VBA:子流()。名片夾I下一個(gè)I結(jié)束sub。