자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

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

2018.12.07 11:51

포세가이 조회 수:1728

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

안녕하세요

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;
}

 

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 2

• icj

  2018.12.07 13:30

  볼랜드 포럼에 가보시면 참고하실만한 문서가 있습니다.

   

  아래는 참고만 하세요.

   

  사소한 실행  순서의 차이로 프로세스가 남아 있는 경우가 있더군요.

   

  시작

          AnsiString filename = "c:\\20181205.xlsx";

   

          // Excel's Application Object
          Variant xlApp = Variant::CreateObject("Excel.Application");
          xlApp.OlePropertySet("DisplayAlerts", false);
          xlApp.OlePropertySet("Visible", false);
          Variant xlBooks = xlApp.OlePropertyGet("Workbooks");
          xlBooks.OleProcedure("Open", filename.c_str());
          Variant xlBook = xlBooks.OlePropertyGet("Item", 1);
          Variant xlSheets = xlBook.OlePropertyGet("Worksheets");

   

  종료

          xlBook.OleProcedure("Save");
          xlBooks.OleProcedure("Close");
          xlApp.OleProcedure("Quit");

          xlSheet  = Unassigned;
          xlSheets = Unassigned;
          xlBook   = Unassigned;
          xlBooks  = Unassigned;
          xlApp    = Unassigned;
   

  댓글

• 포세가이

  2018.12.07 14:06

  적용해 보았지만 효과가 없네요 ㅠㅠ

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	15785
공지	유용한 관련 사이트	관리자2	2014.03.20	54602
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	98027
3199	XE Default Font 변경 문의 합니다. [1]	memc	2012.05.14	9365
3198	DB Query 문의 드립니다. [1]	memc	2012.05.16	2
3197	Bitmap ->JPG 전환 및 doubleBuffered 설정 방법 문의 [1]	bongheon	2012.05.16	11818
3196	델파이xe2 아이콘 128 사이즈 등록 가능한가요?	프리스켄	2012.05.16	10027
3195	SimpleDataSet 오류 [3]	양현숙	2012.05.18	9580
3194	ApplyUpdates(-1) 궁금합니다.	준이킴	2012.05.18	9482
3193	델파이 6.0에서 XE2로 업그레이드 할 경우, 실행파일의 크기에 변동이 있나요?	관리자	2012.05.22	10034
3192	[DelphiXE2] Template Library [5]	정준	2012.05.23	8622
3191	[delphi7] 테이블 암호화 이후 BDE Ttable 사용 프로그램 재 컴파일 건 [1]	강차	2012.05.23	10408
3190	Mac App Store 등록 관련 애플에서 답장이 왔네요. [2]	c2design	2012.05.25	9423
3189	파이어몽키에서 제스춰 사용....?? [1]	Happycube	2012.05.25	8797
3188	파이어몽키에서 기존에 작성된 VCL이나 DLL을 사용할 수 있을까요? [3]	Happycube	2012.05.26	9765
3187	델파이 컨트롤(edit, memo)에서 한영전환 [4]	superman	2012.05.30	15250
3186	서버 tcp/ip 연결에 관한 문의 드립니다 [4]	환준러브맘	2012.05.31	10077
3185	Frame 질문좀요 [1]	축구	2012.06.01	8896
3184	날짜변환 문의 드립니다. [1]	memc	2012.06.01	9990
3183	delphi xe에 있는 인디컴포넌트 이용시 에러에 대한 문의 [1]	superman	2012.06.10	9948
3182	델파이 xe 인디 TcpClient 컴포에서 TcpServer로 jpg파일 전송시 문제 [1]	superman	2012.06.13	15525
3181	다른 프로그램과 연동 방법 문의 합니다. [1]	memc	2012.06.14	12186
3180	Firemonkey 사용에 대해서 한글 처리는 왜 이렇게 문제가 많을까요?	sumily	2012.06.15	10477

첫 페이지 1 2 3 4 5 6 7 8 9 10 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그