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

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

2018.12.07 11:51

포세가이 조회 수:1747

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

안녕하세요

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 17189
공지 유용한 관련 사이트 관리자2 2014.03.20 56067
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99502
124 VCL 컴포넌트를 FMX용으로 바꾸고 싶습니다. [6] 쿠리 2018.09.12 453
123 C++Builder 최신업데이트(30831)불구 Kinvey 푸시 토큰을 받지 못합니다. 개성산전 2018.10.01 174
122 빌더 오늘 갑자기 이상한 곳으로 링크되고 실행하기 어려울 정도로 나타납니다. [1] file 개성산전 2018.10.12 207
121 연결프로그램 설정 방법 문의 [2] 손보라 2018.11.01 831
120 OpenCV, VC++에서는 잘 동작하는데,C++ Builder에서 빌드가 안되는 문제가 있네요. [1] WayneKim 2018.11.05 500
119 마우스 클릭폼 맨 앞으로 기능 [2] 포세가이 2018.11.08 570
118 CameraComponent 문의 [5] icj 2018.11.13 337
117 Intent 함수를 이용한 사진 불러오기 및 (파일)경로 취득 빌게이츠 2018.11.20 265
116 MediaPlayey를 이용한 실시간 카메라 영상 스트리밍 관련 문의 [3] icj 2018.11.20 308
115 FCM 백그라운드 서비스 문의 [1] icj 2018.11.21 223
114 [10.3 리오 출시 세미나] 10.2.X 에서 CMake 사용할 수 있게 되었다는데, 사용법에 대한 Tip 없나요? 험프리 2018.11.26 177
113 RIO StreamingMedia_Cpp 예제 컴파일 오류 문의 [4] file icj 2018.11.30 318
112 [bcc32c Error] : illegal character encoding in string literal 에러 [3] 하루 2018.12.06 549
» 엑셀 저장, 읽기 기능에서 오류 문의 [2] 포세가이 2018.12.07 1747
110 IOS Device 컴파일 관련 문의 mskim 2018.12.10 98
109 Rio 에서 PAServer 연결이 안됩니다. sihwan 2018.12.11 126
108 10.3 Rio 버젼에서 Code Insight 기능 오류현상 [1] sihwan 2018.12.14 393
107 10.3 RIO 안드로이드 플랫폼 컴파일 시 string.h에서 "functions that differ only..." 오류가 발생해 컴파일되지 않습니다. [5] file 험프리 2018.12.17 190
106 RADStudio 10.3 EMS Server 프로덕션 환경 [2] 개성산전 2019.01.09 241
105 C++ Builder에서 FCM 사용 어떻게 하나요? [4] 개성산전 2019.01.11 389
쓰기
태그