Saveas 이후 셀 내용 삭제

다른 파일 이름으로 저장 한 내 통합 문서의 일부 셀 내용을 삭제하려고합니다. 아래 코드는 원본 통합 문서에서 내용을 삭제하고 저장된 wb에 내용을 유지하는 것입니다. 내가 원하는 바로 그 반대 작업을하고 있습니다!Saveas 이후 셀 내용 삭제

또한, 몇 가지 모듈을 사용 중지하고 저장된 wb에서 몇 장의 사진을 삭제하는 방법에 대한 제안 사항이 있습니까?

미리 감사드립니다.

Sub SaveAsNewCopy() 
Dim Path As String 
Dim FileName1 As String 

Application.DisplayAlerts = False 

FileName1 = Range("D3") 


    ThisWorkbook.SaveCopyAs FileName:="C:\Users\..\..\..\" & FileName1 & "-" & "List" & ".xlsm" 
    MsgBox "File Saved successfully!", , "Save" 

    ThisWorkbook.Sheets("Sheet1").Range("E5:F5").ClearContents 
    ThisWorkbook.Sheets("Sheet1").Range("E9:F9").ClearContents 

    Application.DisplayAlerts = True 

    End Sub

출처

2016-06-22 Swathi

교체 시도'thisworkbook'에는'workbook (filenameOfNewBook)'이 있습니다. – findwindow

통합 문서의 파일 이름이 계속 변경됩니다! 저장해야 할 파일이 여러 개 있습니다. – Swathi

변수 '& FileName1 & "-"& "List"& ".xlsm"'편집 : 나는 올리버의 아키텍처를 더 좋아하지만 그가 뒤를 가지고있다. – findwindow

방금 저장 한 통합 문서를 처리하고 원하는대로 변경 한 다음 다시 저장해야합니다. 이를 수행하는 가장 쉬운 방법은 변수를 할당하는 것입니다. 당신의 선언에서 같은 것을 할 :

Dim wb as Workbook

하여 저장-같은 라인 같은 그 변수에 저장된 통합 문서를 할당하기 전에 :

설정 WB =의 ThisWorkbook.SaveCopyAs의 파일 이름 = "C : \ 사용자 ...... \ "& 파일 이름 1 &"- "&"목록 "&".xlsm "wb.Save 사실 등 등으로 저장을 필요에 따라

이 그럼 당신은 WB 작업 할 수

출처

2016-06-22 21:40:06 Absinthe

Saveas 이후 셀 내용 삭제

답변

관련 문제