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

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

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

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

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

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

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

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

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

子fso()

Dim對象作為對象FSO對象

Dim對象文件夾作為對象

Dim對象文件作為目標文件

作為字符串路徑的Dim sPath

創(chuàng)建FSO對象

設(shè)置objFSO CreateObject()

SPath amp新文件夾路徑

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

錯誤的

申請。顯示警報錯誤

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

遍歷路徑下的所有文件。

對于中的每個對象文件

帶sht

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

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

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

為...退出

如果…就會結(jié)束

然后

以…結(jié)尾

下一個對象文件

真實的

申請。顯示警報真

末端接頭

5.添加一個按鈕來運行VBA代碼。

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

7.結(jié)果如下:

8.在點擊按鈕1之前，再次確認word文件的名稱，如下圖所示:

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

8、再次更改新名稱，測試:

單擊運行代碼:

具體操作請參考以下gif圖:

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

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

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

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