개발자 Q&A - 엑셀 저장, 읽기 기능에서 오류 문의

Home

새로운 글

새로운 덧글

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

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

전체

Delphi
C++ Builder
RadPHP
Firemonkey
Interbase
도서

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

2018.12.07 11:51

포세가이 조회 수:1709

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

안녕하세요

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 15760
공지 유용한 관련 사이트 관리자2 2014.03.20 54577
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97974

3019 [질문] 엑셀파일 저장시 pdf화일로 저장 가능할까요? [1] delphi 2020.07.16 898
3018 코딩창에서 여러줄을 한꺼번에 들여쓰기 기능이 있는지 ? [2] 라빌레나 2020.07.16 3942
3017 DoubleBuffered 속성을 True 로 설정하고 Picture.Bitmap 를 참조한 상태에서 TImage 에서 Bitmap 이외의 파일을 로드할 경우 이미지가 정상적으로 표시되지 않습니다. [1] DarkRyu 2020.07.10 510
3016 FastReport관련 질문있습니다. [2] 루키 2020.07.08 405
3015 APP STORE IOS....앱 아이콘을 Xcode의 자산 카탈로그에 추가해야합니다 문제 [1] 성후아빠 2020.07.07 252
3014 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 3 [9] 관리자 2016.05.02 442
3013 TStackPanel 사용시 문의 사항 입니다. [1] sihwan 2020.07.03 179
3012 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 8 - Exercise 4 관리자 2016.05.02 299
3011 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 22 - Exercise 1 관리자 2020.07.03 185
3010 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 4 [1] 관리자 2016.05.02 655
3009 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 1 [1] 관리자 2016.05.02 430
3008 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 2 관리자 2020.07.03 135
3007 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 3 [1] 관리자 2016.05.02 205
3006 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 5 [1] 관리자 2016.05.10 172
3005 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 1 [1] 관리자 2016.05.27 143
3004 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 2 [1] 관리자 2016.05.27 151
3003 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 3 [1] 관리자 2016.05.27 109
3002 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 4 [1] 관리자 2016.05.27 167
3001 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 21 - Exercise 1 [1] 관리자 2016.05.27 141
3000 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 21 - Exercise 2 [1] 관리자 2016.05.27 145

첫 페이지 9 10 11 12 13 14 15 16 17 18 끝 페이지

쓰기

태그