標題: [發問] 批次工作表轉檔，同時重新命名當前sheet [打印本頁]

---

作者: lamb22368    時間: 2020-2-6 11:00     標題: 批次工作表轉檔，同時重新命名當前sheet

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

[attach]31685[/attach]

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

---

作者: 准提部林    時間: 2020-2-7 13:42

ActiveWorkbook.Close False (False是不存檔開閉)
改成 >> ActiveWorkbook.Close 1

---

作者: lamb22368    時間: 2020-2-10 10:42

回復 2# 准提部林


    謝謝版主指點，我懂了，也多了一個可以google的方向，金兜蝦~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)