[VBS/VBA] 엑셀 PDF 저장 시 [인쇄할 내용이 없습니다] 오류 메시지 방지

[VBS/VBA] 엑셀 PDF 저장 시 [인쇄할 내용이 없습니다] 오류 메시지 방지

VBS 또는 VBA 로 엑셀 PDF 저장 시 “인쇄할 내용이 없습니다” 오류 메시지가 alert 형태로 뜨는 경우가 있다.

실제로 워크시트가 비어있을 때(아무 값도 입력되어 있지 않은 워크시트일 때) 위 오류메시지가 발생했다.

해당 오류 메시지가 뜨는 것을 방지하기 위해 비어있는 시트인지 체크하는 코드를 계속 찾았는데 여러가지로 문제가 많았다.

그러다가 최고의 코드를 생각해냈다.

시트에 아무 값도 입력되어 있지 않다면 값을 입력하면 되는거다.

아래와 같이 해결했다.

‘[인쇄할 내용이 없습니다] 오류 메시지 방지
If ActiveSheet.Cells(1, 1).Value = “” Then
    ActiveSheet.Cells(1, 1).Value = ” “
End If