꾸쉬뿌쉬 5월 30일에 포스트됨 공유하기 5월 30일에 포스트됨 Rad studio 10.1 Berilin 에서 엑셀파일을 사용하는 프로그램을 작성하여 사용하고 있었습니다.(엑셀 접근, 오픈하여 엑셀data 읽고, 쓰기가 모두 가능했습니다) 그러나 윈도우자동업데이트 되면서부터 엑셀접근자체가 되지 않고 있습니다. 처음 윈도우업데이트가 되었을때 자동으로 오피스365가 설치가 되어서 구독형이 문제일까 싶어서 현재는 오피스365를 제거하고 엑셀2013을 재설치하였습니다. (엑셀 자체사용은 문제가 없습니다. ) 엑셀파일전에 엑셀connec를 할때부터 오류가 나고 있는 상황입니다.윈도우 보안의 문제인지, 엑셀보안의 문제인지 이유를 모르겠습니다. 어떤부분을 확인해야 할지 도와주세요.. 아래와 같이 엑셀을 connct하여 파일을 open하여 처리하였고, 아래와 같은 순서로 메세지가 발생합니다. "2-2) connect 완료" 메세지까지 가지 못하는 상황입니다. 1-1) file open try -> 2-1) Initialize start -> 엑셀파일 오류 발생~ void __fastcall TexMod::Initialize() { binit = true; ShowMessage("2-1) Initialize start"); ExcelApplication1->Connect(); ShowMessage("2-2) connect 완료"); ~~~ } //--------------------------------------------------------------------------- bool __fastcall TexMod::Open(UnicodeString path, int sheet) { bool bOpen = false; UnicodeString str; try { ShowMessage("1-1) file open try"); Initialize(); ExcelApplication1->Workbooks->Open(StringToOleStr(path), TVariant(0))->ProtectWindows; ExcelWorkbook1->ConnectTo(ExcelApplication1->ActiveWorkbook); if(ExcelWorkbook1->Charts->get_Count() > 0)ExcelWorkbook1->Charts->Delete(); if(sheet > 0)ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Sheets->get_Item( TVariant(sheet))); } catch (...) { ShowMessage("엑셀파일 오류 발생\r\n파일경로 : " + path); return false; } return true; } 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
질문
꾸쉬뿌쉬
Rad studio 10.1 Berilin 에서 엑셀파일을 사용하는 프로그램을 작성하여 사용하고 있었습니다.(엑셀 접근, 오픈하여 엑셀data 읽고, 쓰기가 모두 가능했습니다)
그러나 윈도우자동업데이트 되면서부터 엑셀접근자체가 되지 않고 있습니다. 처음 윈도우업데이트가 되었을때 자동으로 오피스365가 설치가 되어서 구독형이 문제일까 싶어서
현재는 오피스365를 제거하고 엑셀2013을 재설치하였습니다. (엑셀 자체사용은 문제가 없습니다. )
엑셀파일전에 엑셀connec를 할때부터 오류가 나고 있는 상황입니다.윈도우 보안의 문제인지, 엑셀보안의 문제인지 이유를 모르겠습니다.
어떤부분을 확인해야 할지 도와주세요..
아래와 같이 엑셀을 connct하여 파일을 open하여 처리하였고, 아래와 같은 순서로 메세지가 발생합니다. "2-2) connect 완료" 메세지까지 가지 못하는 상황입니다.
1-1) file open try -> 2-1) Initialize start -> 엑셀파일 오류 발생~
void __fastcall TexMod::Initialize()
{
binit = true;
ShowMessage("2-1) Initialize start");
ExcelApplication1->Connect();
ShowMessage("2-2) connect 완료");
~~~
}
//---------------------------------------------------------------------------
bool __fastcall TexMod::Open(UnicodeString path, int sheet)
{
bool bOpen = false;
UnicodeString str;
try {
ShowMessage("1-1) file open try");
Initialize();
ExcelApplication1->Workbooks->Open(StringToOleStr(path), TVariant(0))->ProtectWindows;
ExcelWorkbook1->ConnectTo(ExcelApplication1->ActiveWorkbook);
if(ExcelWorkbook1->Charts->get_Count() > 0)ExcelWorkbook1->Charts->Delete();
if(sheet > 0)ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Sheets->get_Item( TVariant(sheet)));
} catch (...) {
ShowMessage("엑셀파일 오류 발생\r\n파일경로 : " + path);
return false;
}
return true;
}
이 댓글 링크
다른 사이트에 공유하기
0 answers to this question
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.