|
다른 질문들을 아무리봐도 잘 모르겠네요...
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()); // <--이부분
이부분에서 매개변수가 잘못됐다며 에러가 나버리거든요... ㅜㅜ
도와주세욤 ㅠㅠ
|