我有一個EXCEL檔案, 內有兩個工作表, 每個工作表都使用快捷按鈕執行下列的VBA CODE, 將工作表按指定路徑另存新檔案.
問題(1) 是有些時候執行VBA CODE時, 會顯示另存檔已經存在, 但其實會在指定路徑內, 自動增加了一何"PATH"的FOLDER, 再在FOLDER 內另存名稱是"FILENAME"的工作表. 不知是否兩個工作表共用一個VBA CODE出現問題? 希望賜教!
問題(2) 如果另存新檔案時, 已有相同名稱檔案存在,可否要取消存檔, 改為仍然存檔, 但自行在檔案名稱後加上V1, V2, V3等, 如此類推?- Sub activeSave_2c()
- Application.ScreenUpdating = False
- Dim filename As String, fPath As String
- filename = [S2]: fPath = [S3]: If Dir(fPath, vbDirectory) = "" Then MkDir fPath
- If Dir(fPath & "\" & filename & ".xlsx") <> "" Then
- MsgBox "指定的 " & filename & ".xlsx 已經存在! 沒有執行存檔": Exit Sub
- End If
- ActiveSheet.Copy
- [A1:G100].Value = [A1:G100].Value
- [H:Y].Delete: [A1].Select
- ActiveWorkbook.SaveAs filename:=fPath & "\" & filename & ".xlsx"
- ActiveWorkbook.Close
- MsgBox "已經新增檔案": ThisWorkbook.Activate
- End Sub
複製代碼 |