|
소스파일은 다음과 같습니다.
{
Variant excel_app;
Variant excel_book, excel_books;
Variant excel_sheet;
Variant cells;
Variant Data;
WideString ExcelData;
AnsiString asFileName = Path;
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");
// read Data
for(int i = 3; i < 10; i++)
{
for(int j = 1; j <= 9; j++)
{
ExcelData = StringGrid2->Cells[j-1][i-2];
cells = excel_sheet.OlePropertyGet("Cells",i-2 , j); //Cell선택
cells.OlePropertySet("Value", WideString(ExcelData));
}
}
excel_books.OleProcedure("SaveAs" ,asFileName.c_str()); // <--이부분
excel_books.OleFunction("Close", (Variant)False);
excel_sheet = Unassigned;
excel_book = Unassigned;
excel_app.OleFunction("Quit");
excel_app = Unassigned;
}
그런데
excel_books.OleProcedure("SaveAs" ,asFileName.c_str()); // <--이부분
이부분에서 에러가 나는데 이유를 모르겠습니다. ㅠ.ㅠ
|