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

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

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

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

2018.12.07 11:51

포세가이 조회 수:1846

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

안녕하세요

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	22658
공지	유용한 관련 사이트	관리자2	2014.03.20	61550
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	105616
2319	파이어몽키(FMX) 안드로이드 6.0 이후 버전 Mac Address 가져오기? [1]	우드너	2018.12.10	394
2318	RIO 에서의 문제 [4]	지병철	2018.12.04	587
2317	IOS Device 컴파일 관련 문의	mskim	2018.12.10	145
2316	신규버전 설치할 때 이전 버전에서 설치된 콤퍼넌트 그대로 사용하는 방법 [2]	델피노	2018.11.23	329
2315	Delphi Seattle vs Tokyo Version 간 FireDac Component 차이 [1]	이우영	2018.12.08	160
2314	10.3 Rio와 DevExpress VCL 18.2 설치 문의드립니다. [1]	딤용	2018.12.10	484
2313	RIO 10.3 폼 Transparency 활성시 검정색 문제	돌팅	2018.12.07	134
2312	window10 에서 xcon30.dll 없어 코드 실행을 진행할 수 없습니다 에러 ... 왜 이런지 모르겠어요. 구글링해도 안나오고. 도와주세요.. 첨부된 에러 메시지 창 참조해주세요. [4]	crkim20000	2018.12.07	579
»	엑셀 저장, 읽기 기능에서 오류 문의 [2]	포세가이	2018.12.07	1846
2310	IdFTP1.List 관련 질문 [2]	김진	2018.12.07	288
2309	[bcc32c Error] : illegal character encoding in string literal 에러 [3]	하루	2018.12.06	607
2308	FireDAC을 사용한 MySQK 8 연결 [1]	VT	2018.12.05	209
2307	델파이 정규식 함수 있는지 문의 드립니다. [1]	아들만셋	2018.12.05	1080
2306	델파이 RIO 버젼 버튼 문자 변경 오류문의 [3]	silkroad99	2018.11.28	168
2305	Android IOS 동영상 촬영...	하얀까마귀	2018.11.30	176
2304	델파이 RIO 안드로이드 백버튼시 종료문제 [1]	silkroad99	2018.11.29	238
2303	디버깅 모드에서 실행과 그냥 실행파일 실행시 동작이 틀린 이유?? [2]	godson2	2016.02.15	2631
2302	xe10.2 사용자 입니다. interface not supported 오류에 대해서?? [1]	쿠핑	2018.11.27	645
2301	델파이 10.3 Rio 버젼 권한 설정문의 [1]	silkroad99	2018.11.28	292
2300	datasnap	devdev	2018.11.27	223

첫 페이지 44 45 46 47 48 49 50 51 52 53 끝 페이지

쓰기

검색

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

태그