제가 샘플로 만들어 놓고, 필요할때마다 필요한 부분만 발췌해서 쓰는 소스입니다.
참조해서 쓰시면 될듯합니다.
툴은 빌더 6.0이고, 실행파일 실행시 D드라이브에 저장하도록 하였습니다.
참, 엑셀은 2007 버젼하고 작년 버젼에서 테스트하였을때 이상없었습니다.
수고하십시요.
새해복 많이 받으세요. ^^;;
Excel OLE 님이 쓰신 글 :
: 답변좀 부탁드립니다 ㅜ_ㅜ
: 부족한부분있으면 채워넣겠습니다.
:
: 다들 2015년 새해 복 많이 받으세요~
: 항상 도움주셔서 감사합니다~
:
: Excel OLE 님이 쓰신 글 :
: : 현재 만들어진 엑셀을 가지고 Save as하고자 하는데
: :
: : Save as 하기전에 상황에 따라 엑셀에 시트를 삭제하고 Save as하고자합니다.
: :
: : 그때 Sheet 삭제를 하는데 잘안되네요.. google을 찾아봐도 시트삭제는 안나오고
: :
: : col,row삭제만 나옵니다. ㅠㅠ
: :
: :
: :
: : Variant excel_app;
: : Variant excel_book, excel_books;
: : Variant excel_sheet;
: : Variant cells;
: : Variant sheets;
: : Variant Data;
: : Variant v0;
: : Variant v1;
: : WideString ExcelData;
: :
: : excel_app = Variant::CreateObject("excel.application");
: : excel_app.OlePropertySet("Visible", (Variant)false);
: : excel_app.OlePropertyGet("Workbooks").OleProcedure("Open", "C:\\DB\\Schedule Table\\Basic Schedule Table.xlsx");
: : excel_books = excel_app.OlePropertyGet("ActiveSheet");
: :
: : v0 = excel_app.OlePropertyGet("Sheets" , WideString(Date)).OleFunction("Delete"); <--------------/*delete가 안됩니다.*/ Sheet Text 삭제는 가능하고 Sheet 내 Cell 삭제도 가능한대 Sheet 삭제만 안됩니다.
: :
: : excel_books.OleProcedure("SaveAs" ,WideString(FileName));
: : excel_sheet = Unassigned;
: : excel_books = Unassigned;
: : excel_app.OleFunction("Quit");
: : excel_app = Unassigned;
: :
: : 도움좀 부탁드립니다! 감사합니다!
: :