Board logo

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