WorkBook|Workbooks.Add|SaveAs|Close|Save|
|ActiveWorkBook|ThisWorkBook|Path|

통합문서를 만들고,저장하고,닫기

워크시트를 생성할때는

Worksheets.Add

라고 했듯이,통합문서를 생성하고 싶다면

Workbooks.Add

라고 하면 통합문서가 새로 생성된다
통합문서가 만들어지면 저장을 하여야 할것이다
최초로 저장할때는 어떤 경로에 어떻게 저장할것인가를
지정해주지 않는다면 될까??당연히 안되지!!

Workbooks.Add.SaveAs "경로명\화일명"

으로 하던가

Dim objBook As Workbook
Set objBook = Workbooks.Add
objBook.SaveAs ThisWorkbook.Path & "\sample3.xls"

라고 하면 될것이다
앞페이지에서 통합문서가 있는지 확인하고 열때 열려있지도 않고
경로에 존재하지도 않을때 메시지박스를 띄우도록 했었다
화일이 존재하지 않을때는 생성하여 저장하는 것을 해보도록 하자
시나리오는 아래와 같으니 각자가 코딩을 해보시기 바란다



필요한 경우 프로시져에서 다시 자신의 프로시져를 호출할수 있다
화일을 닫을때 저장을 하고 싶다면

ActiveWorkbook.Close saveChanges:=True

와 같이 매개변수를 True로 전달하면 통합문서내용이 수정되었더라도
저장하겠느냐는 확인 메시지 대화상자가 나타나지 않고 저정되면서 닫힌다
매개변수없이 아래와 같이 명령하면

ActiveWorkbook.Close

만약 통합문서의 내용에 변화가 있었다면
저장하겠느냐는 확인 메시지 대화상자가가 뜨고
그렇지 않은 경우는 그냥 닫힌다
그냥 닫지도 않고 저장만 한다면

ActiveWorkbook.Save


Check File Exist, Make, Save and Open