C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[70343] 엑셀파일 생성하고 저장하는 방법 좀 알려주세요 ㅜㅜ
궁금이 [] 4041 읽음    2013-11-20 11:52
다른 질문들을 아무리봐도 잘 모르겠네요...

AnsiString  FileName = ExtractFilePath(Application->ExeName) + "Alarm_Log\\"+ DT.FormatString("yyyymmdd") + ".xls";

이런 그날에 해당하는 xls 파일이 없으면 그 엑셀 파일을 생성해서 스트링을 저장하고

그 파일이 있으면 그 파일을 열어서  스트링을 그 파일에 저장하는 방법 좀 알려주세요 ㅜㅜ

현재

Variant excel_app;
Variant excel_book, excel_books;
Variant excel_sheet;
Variant cells;
Variant Data;
WideString ExcelData;

excel_app = Variant::CreateObject("excel.application");
excel_app.OlePropertySet("Visible", (Variant)false);
excel_books = excel_app.OlePropertyGet("Workbooks");           
excel_book = excel_books.OleFunction("Add", 1);
excel_sheet = excel_book.OlePropertyGet("ActiveSheet");

TDateTime DT = Now();
FileName = ExtractFilePath(Application->ExeName) + "Alarm_Excel\\" + DT.FormatString("yyyymmdd") + ".xls";

    if (!FileExists(FileName))
    {
   -----------------------
                }
               else{

                  ExcelData = "알람발생";
                 cells = excel_sheet.OlePropertyGet("Cells",1 , 1); //Cell선택
                 cells.OlePropertySet("Value", WideString(ExcelData));
                }

    excel_book.OleProcedure("Save" ,FileName.c_str()); // <--이부분
    excel_book.OleFunction("Close", (Variant)False);
    excel_sheet = Unassigned;
    excel_book = Unassigned;
    excel_app.OleFunction("Quit");
                 excel_app = Unassigned; 

이렇게 해보고 있는데요
파일이 있나없나 판단해서 없으면 새로 생성하는 부분과
excel_book.OleProcedure("Save" ,FileName.c_str()); // <--이부분
이부분에서 매개변수가 잘못됐다며 에러가 나버리거든요... ㅜㅜ

도와주세욤 ㅠㅠ

+ -

관련 글 리스트
70343 엑셀파일 생성하고 저장하는 방법 좀 알려주세요 ㅜㅜ 궁금이 4041 2013/11/20
70344     Re:엑셀파일 생성하고 저장하는 방법 좀 알려주세요 ㅜㅜ 방태윤 4209 2013/11/20
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.