|
포럼을 뒤적이며 엑셀을 여는 방법은 찾았는데, 파일을 여는 단계에서 에러가 납니다.
아래의 코드에서 보면 "2. Excel File Open"에서 Error가 발생하는데, 이유를 못찾겠습니다.
코딩 중 'WideString'이 활성화되지 않은 것 같은데 그것 때문인지.. 에러 메시지는 파일로 첨부하였습니다.
그리고 Excel을 읽어 내용을 ListBox에 뿌리려는데, 그건 어떻게 하면 될지..
고심을 하여도 더 이상 진전이 없기에 여러분들께 도움을 청합니다.
많은 조언 부탁드립니다..ㅡㅜ
//1. Excel Open
ExcelApplication1->Connect();
ExcelApplication1->Set_Visible(0,false); //true이면 Excel이 Open
//2. Excel File Open
ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Open(WideString("D:\Borland5\1. Excel\TestProject1.xls"))); //에러발생지점
//3. Excel File Worksheet select
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item((TVariant) 1));
.........
//4. Excel Terminate
ExcelWorksheet1->Disconnect();
ExcelWorkbook1->Disconnect();
ExcelApplication1->Disconnect();
ExcelApplication1->Quit();
|