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

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

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

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

2018.12.07 11:51

포세가이 조회 수:1748

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

안녕하세요

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	17243
공지	유용한 관련 사이트	관리자2	2014.03.20	56129
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	99562
579	RX Lib와 RealGrid 컴포넌트를 XE7에서 사용하는 방법 [2]	Humphery	2014.11.17	1730
578	Android SDK platform-tools 26.0.2 설치오류 [3]	Jackim	2017.10.29	1739
577	학생입니다! 스마트폰 키보드관련 질문입니다!	윤우민	2014.10.06	1747
»	엑셀 저장, 읽기 기능에서 오류 문의 [2]	포세가이	2018.12.07	1748
575	png파일 오류 부분 [2]	couping	2014.06.19	1750
574	모바일 이미지사이즈 속도 문의 [1]	김하나	2014.03.19	1755
573	소켓 컴포넌트(TServerSocket, TClientSocket) 설치 후 컴파일 시 "Unable to open include file 'Web.Win.Sockets.hpp'" 오류가 발생합니다. [4]	데브기어	2017.03.15	1755
572	2tear로만 개발하다가 모바일 프로그램개발때문에 멀티티어 공부를 하고 있습니다. [1]	어려워	2014.06.23	1755
571	외부 자바파일 연동중에	근우아빠	2014.10.23	1758
570	groupbox 및 checkbox 등의 font color 변경 안되는 사항 [2]	goinma	2018.05.03	1765
569	Label 색을 변경을 하였는데, 컴파일해서 실행하면 검은색으로 표시됩니다. [6]	하루	2018.04.01	1766
568	DataSnap Client에서 DataSetClient.ProviderName 속성창에 내용을 입력후 Active 시 오류 [1]	heeyec	2014.11.09	1769
567	TChart 콤포넌트를 uses만 하면 실행시 error납니다.	차리	2014.05.13	1769
566	datasnap에서 ClientDataSet의 CommandText 와 DataRequest() 의 차이가 뭔가요?	어려워	2014.07.28	1778
565	안드로이드 Runtime.getRuntime().exec 커멘드처럼 할려면 어떻게 해야하나요? [1]	소란코더	2017.12.04	1780
564	radphp xe2 에서 인쇄을 하는 방법 문의 합니다?	자이소	2014.05.10	1781
563	xe6 안드로이드앱 개발관련 문의 xe7 새로운 기능 질문사항 [1]	데브닷개발	2014.11.05	1784
562	style 다운로드를 어디서해야하나요? [1]	정헌이	2014.06.11	1793
561	프로세스는 실행중인데 애플리케이션이 안뜨는경우 [1]	jksun	2014.06.19	1796
560	[Kinvey] BaaS 강좌 실습 과정에서 에러가 발생합니다.	소중한꿈	2014.09.20	1796

첫 페이지 131 132 133 134 135 136 137 138 139 140 끝 페이지

쓰기

검색

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

태그