워크북 닫기 시 Excel VBA에서 클립보드 프롬프트 사용 안 함

워크북 닫기 시 Excel VBA에서 클립보드 프롬프트 사용 안 함

Excel 워크북이 있습니다. VBA 코드를 사용하여 다른 워크북을 열고 일부 데이터를 원본에 복사한 다음 두 번째 워크북을 닫습니다.

두 번째 워크북을 닫을 때(사용)Application.Close), 다음과 같은 메시지가 나타납니다.

클립보드를 저장하시겠습니까?

VBA에 이 프롬프트를 무시하는 명령이 있습니까?

두 가지 옵션을 제공할 수 있습니다.

1. 직접 복사

당신의 설명에 따르면 당신은 다음과 같은 일을 하고 있는 것 같습니다.

Set wb2 = Application.Workbooks.Open("YourFile.xls")
wb2.Sheets("YourSheet").[<YourRange>].Copy
ThisWorkbook.Sheets("SomeSheet").Paste
wb2.close

이 경우 클립보드를 통해 복사할 필요가 없습니다.이 메서드는 원본에서 대상으로 직접 복사합니다.클립보드에 데이터 없음 = 프롬프트 없음

Set wb2 = Application.Workbooks.Open("YourFile.xls")
wb2.Sheets("YourSheet").[<YourRange>].Copy ThisWorkbook.Sheets("SomeSheet").Cells(<YourCell")
wb2.close

2. 확인 팝업 표시 안 함

다음을 설정하여 모든 알림 팝업을 방지할 수 있습니다.

Application.DisplayAlerts = False

---

[편집]

3. 값만 복사하려면: 복사/붙여넣기를 전혀 사용하지 않음

Dim rSrc As Range
Dim rDst As Range
Set rSrc = wb2.Sheets("YourSheet").Range("YourRange")
Set rDst = ThisWorkbook.Sheets("SomeSheet").Cells("YourCell").Resize(rSrc.Rows.Count, rSrc.Columns.Count)
rDst = rSrc.Value

솔루션을 하나 더 추가하면 다음 명령으로 클립보드를 취소할 수 있습니다.

Application.CutCopyMode = False

저는 과거에 이 문제에 부딪힌 적이 있습니다. 종료 시점에 클립보드가 실제로 필요하지 않은 경우에는 저와 동일한 간단한 솔루션을 사용할 수 있습니다.클립보드를 지우기만 하면 됩니다.:)

ActiveCell.Copy

변경 내용을 저장하고 싶지 않고 매크로를 사용하여 Excel 파일을 저장하는 동안 저장 프롬프트를 표시하지 않으려는 경우 이 코드가 도움이 될 수 있습니다.

Sub Auto_Close()

     ThisWorkbook.Saved = True

End Sub

왜냐하면.Saved속성이 다음으로TrueExcel은 워크북이 이미 저장된 것처럼 응답하고 마지막 저장 이후 변경 사항이 발생하지 않으므로 저장 프롬프트는 표시되지 않습니다.

간단한 방법이 있습니다.클립보드에 대량의 데이터가 있을 때만 경고가 표시됩니다.워크북을 닫기 전에 임의의 셀을 복사하기만 하면 더 이상 나타나지 않습니다!

닫기 전에 클립보드를 지우십시오.

Application.CutCopyMode=False
ActiveWindow.Close

제안된 솔루션은 행을 바꿀 경우 편집할 수 있습니다.

Set rDst = ThisWorkbook.Sheets("SomeSheet").Cells("YourCell").Resize(rSrc.Rows.Count, rSrc.Columns.Count)

와 함께

Set rDst = ThisWorkbook.Sheets("SomeSheet").Range("YourRange").Resize(rSrc.Rows.Count, rSrc.Columns.Count)

언급URL : https://stackoverflow.com/questions/5163265/disable-clipboard-prompt-in-excel-vba-on-workbook-close