2012-12-26 2 views
3

Excel 2003에서 다음 VBA 코드를 작성하여 Excel 시트의 내용을 지 웁니다. 하지만 보여줍니다VBA 런타임 오류 : Excel 시트의 내용을 지우십시오.

런타임 오류 438 : 개체

Application.DisplayAlerts = False 
Application.ScreenUpdating = False 

Set wbk = Workbooks.Open("C:\a.xls") 
wbk.Sheet1.Cells.ClearContents 'Error at this line 
wbk.Save 
wbk.Close 

Application.DisplayAlerts = True 
Application.ScreenUpdating = True 

어느 한 날 경우 알려 주시기 바랍니다 수,이 속성 또는 메서드 여기

내 코드는 지원하지 않습니다 Excel이 보이지 않는 경우 wbk.Sheet1.Cells.ClearContents은 지원되지 않습니다. 보이지 않을 때 엑셀 시트의 내용을 어떻게 지울 수 있습니까?

+3

는'wbk.Sheets ("Sheet1의")를 시도 Cells.ClearContents' –

+0

@SiddharthRout을 :. 좋아! 그것의 일; 당신은 대답으로 추가 할 수 있습니다 ... 고마워요 – logan

+0

그거야 Ok :) 또한 자신의 질문에 대답 할 수 있습니다 :) –

답변

4

나는 다음을 사용하여 지금 해결되었습니다!

wbk.Sheets("Sheet1").Cells.ClearContents 
+0

Btw, 당신은 당신 자신의 대답을 승인 할 수 있어야합니다. –

+0

@ JüriRuut : 예,하지만 16 시간 내 답변을 승인해야합니다. – logan