자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

C++ Builder 엑셀 저장, 읽기 기능에서 오류 문의

2018.12.07 11:51

포세가이 조회 수:1943

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

안녕하세요

10.1 도쿄버전 c++빌더 사용중입니다.

아래와 같이 특정 폴더에 있는 엑셀 파일을 열어서 수정하고 저장하는 기능을 구현중인데

"피호출자를 호출하지 못하였습니다."라는 오류 메시지가 뜨네요

그리고 작업관리자에 엑셀일 실행이 되고있어 일일일 수작업으로 지워줘야하구요

설정에 문제가 없는지 확인 부탁드립니다.

 


char dBuf[100];
int excel_col;
Variant excel_app;
Variant excel_book, excel_books;
Variant excel_sheet;
Variant excel_window;
Variant cells;
Variant Data;
Variant interior;
Variant column;
WideString ExcelData;
AnsiString asFileName;
Variant value;

 

String DefaultOpenPath={"C:\\ICS Default Set\\ICS Default Set.xlsx"};


void __fastcall TMainForm::Button_DefaultSaveClick(TObject *Sender)
{
  AnsiString TestStr, StrPoint;
  WideString Temp, SaveStr;
  char sTemp=0;


  Temp=DefaultOpenPath;

  excel_app=Variant::CreateObject("excel.application");                      //Excel 프로그램 실행
  excel_app.OlePropertySet("Visible", (Variant)false);                        //Excel 프로그램 Visible설정
  excel_app.OlePropertyGet("WorkBooks").OleProcedure("Open",Temp);
  excel_book=excel_app.OlePropertyGet("ActiveWorkbook");                     //현재 Active된 WorkBook 선택
  excel_sheet=excel_book.OlePropertyGet("ActiveSheet");                      // WorkBook에서 Acitve된 Sheet선택
  excel_app.OlePropertySet("DisplayAlerts", false);                                   //파일 저장 묻기 메시지 off
 

 

  TestStr=(Ru_MainForm->ComboBox_HighTemp->ItemIndex+80);
  strcpy(dBuf, TestStr.c_str());
  cells = excel_sheet.OlePropertyGet("Cells",TempHighPoint[0], TempHighPoint[1]);
  cells.OlePropertySet("Value", WideString(dBuf));

 

  if(Ru_MainForm->CheckBox_Fa1->Checked==false)    TestStr="OFF";
  else              TestStr="ON";
  strcpy(dBuf, TestStr.c_str());
  cells = excel_sheet.OlePropertyGet("Cells",Fa1_SetupPoint[0], Fa1_SetupPoint[1]);
  cells.OlePropertySet("Value", WideString(dBuf));

 

  if(Ru_MainForm->CheckBox_Fa5->Checked==false)    TestStr="OFF";
  else              TestStr="ON";
  strcpy(dBuf, TestStr.c_str());
  cells = excel_sheet.OlePropertyGet("Cells",Fa5_SetupPoint[0], Fa5_SetupPoint[1]);
  cells.OlePropertySet("Value", WideString(dBuf));


  strcpy(dBuf, TestStr.c_str());
  cells = excel_sheet.OlePropertyGet("Cells",AutoShutdownPoint[0], AutoShutdownPoint[1]);
  cells.OlePropertySet("Value", WideString(dBuf));

 

  TestStr=(Ru_MainForm->ComboBox_ConDlInputUpper->ItemIndex+31)*-1;
  strcpy(dBuf, TestStr.c_str());
  cells = excel_sheet.OlePropertyGet("Cells",DlInputUpperPoint[0], DlInputUpperPoint[1]);
  cells.OlePropertySet("Value", WideString(dBuf));

 

  TestStr=(Ru_MainForm->ComboBox_ConDlInputLower->ItemIndex+50)*-1;
  strcpy(dBuf, TestStr.c_str());
  cells = excel_sheet.OlePropertyGet("Cells",DlInputLowerPoint[0], DlInputLowerPoint[1]);
  cells.OlePropertySet("Value", WideString(dBuf));

 

  SaveStr=DefaultOpenPath;
  excel_book.OleProcedure("SaveAs",SaveStr);
  excel_book.OleFunction("Close", (Variant)False);
  excel_sheet = Unassigned;
  excel_book = Unassigned;
  excel_app.OleFunction("Quit");
  excel_app = Unassigned;
}

 

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 33993
공지 유용한 관련 사이트 관리자2 2014.03.20 73539
2312 신규버전 설치할 때 이전 버전에서 설치된 콤퍼넌트 그대로 사용하는 방법 [2] 델피노 2018.11.23 393
2311 Delphi Seattle vs Tokyo Version 간 FireDac Component 차이 [1] 이우영 2018.12.08 250
2310 10.3 Rio와 DevExpress VCL 18.2 설치 문의드립니다. [1] 딤용 2018.12.10 546
2309 RIO 10.3 폼 Transparency 활성시 검정색 문제 돌팅 2018.12.07 213
2308 window10 에서 xcon30.dll 없어 코드 실행을 진행할 수 없습니다 에러 ... 왜 이런지 모르겠어요. 구글링해도 안나오고. 도와주세요.. 첨부된 에러 메시지 창 참조해주세요. [4] file crkim20000 2018.12.07 647
» 엑셀 저장, 읽기 기능에서 오류 문의 [2] 포세가이 2018.12.07 1943
2306 IdFTP1.List 관련 질문 [2] 김진 2018.12.07 352
2305 [bcc32c Error] : illegal character encoding in string literal 에러 [3] 하루 2018.12.06 669
2304 FireDAC을 사용한 MySQK 8 연결 [1] VT 2018.12.05 284
2303 델파이 정규식 함수 있는지 문의 드립니다. [1] 아들만셋 2018.12.05 1151
2302 델파이 RIO 버젼 버튼 문자 변경 오류문의 [3] silkroad99 2018.11.28 263
2301 Android IOS 동영상 촬영... 하얀까마귀 2018.11.30 277
2300 델파이 RIO 안드로이드 백버튼시 종료문제 [1] silkroad99 2018.11.29 316
2299 디버깅 모드에서 실행과 그냥 실행파일 실행시 동작이 틀린 이유?? [2] godson2 2016.02.15 2781
2298 xe10.2 사용자 입니다. interface not supported 오류에 대해서?? [1] 쿠핑 2018.11.27 733
2297 델파이 10.3 Rio 버젼 권한 설정문의 [1] silkroad99 2018.11.28 363
2296 datasnap devdev 2018.11.27 289
2295 [10.3 리오 출시 세미나] 10.2 도쿄 라이센스(서브스크립션)로 사용중인데, 10.3 라이센스를 별도로 취득하는 행위를 해야하나요? 험프리 2018.11.26 247
2294 [10.3 리오 출시 세미나] 매니지드 레코드 기능만 보류된 거 아닌가요? 험프리 2018.11.26 167
2293 [10.3 리오 출시 세미나] 10.2.X 에서 CMake 사용할 수 있게 되었다는데, 사용법에 대한 Tip 없나요? 험프리 2018.11.26 305
쓰기
태그