返回列表下一主題上一主題發帖

[發問] 批次工作表轉檔，同時重新命名當前sheet

lamb22368

中學生 Rank: 2

帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2019
閱讀權限: 20
性別: 女
註冊時間: 2018-6-12
最後登錄: 2021-4-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-2-6 11:00 | 只看該作者

[發問] 批次工作表轉檔，同時重新命名當前sheet

大家好，在批次工作表另存新檔的同時，
將當前sheet重新命名時無法修改成功，請問是哪裡需要修正？謝謝大家。

批次工作表轉檔.rar (26.59 KB)

Public Sub 批次工作表轉檔()

Application.FileDialog(msoFileDialogFolderPicker).Show
sPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

Application.ScreenUpdating = False
For i = 2 To Sheets.Count
      x = Sheets(i).Name
      Sheets(x).Copy
      ActiveWorkbook.SaveAs sPath & "\" & x & ".xlsx"

      '修改當前另存workbook的sheet名稱為[甲公司]，workbook檔案名仍為原名稱[ABCDE]
      ActiveSheet.Name = "甲公司"
      ActiveWorkbook.Close False '設中斷點查看sheet名有改，在檔案關閉後sheet名稱卻沒改成功
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub