귀한 자료 공유해주셔서 감사합니다.
이길남.HoPe 님이 쓰신 글 :
: 제가 샘플로 만들어 놓고, 필요할때마다 필요한 부분만 발췌해서 쓰는 소스입니다.
: 참조해서 쓰시면 될듯합니다.
:
: 툴은 빌더 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;
: : :
: : : 도움좀 부탁드립니다! 감사합니다!
: : :