返回列表 上一主題 發帖

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

[發問] 批次工作表轉檔,同時重新命名當前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

ActiveWorkbook.Close False (False是不存檔開閉)
改成 >> ActiveWorkbook.Close 1
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 2# 准提部林


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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題