|
WideString FileName="c:\\1111.xls";
excel_book.OleProcedure("SaveAs" ,FileName);
saveas 로 함 해보세요,
궁금이 님이 쓰신 글 :
: 다른 질문들을 아무리봐도 잘 모르겠네요...
:
: 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()); // <--이부분
: 이부분에서 매개변수가 잘못됐다며 에러가 나버리거든요... ㅜㅜ
:
: 도와주세욤 ㅠㅠ
:
|