C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[66244] Re:엑셀 VBA 와 데이타 주고 받는 방법
빌더 [] 1254 읽음    2012-02-12 18:39
슈퍼코딱지 님이 쓰신 글 :
: 프로그램을 하다 보면 다른 프로그램과 데이타를 주고 받는 상황이 필요 하더라구요
:
: 볼랜드 C++ 빌더6.0 사용하는데요. 이 프로그램 내의 데이타(특정 변수들..) 를 엑셀의 VBA 에 보내고
:
: 또는 반대로 받을 수 있는 방법이 무엇일까요
:
: 파일쓰기를 해서 주고 받을 수 있지만 이런거 말구요...
:
: 볼랜드 에서 엑셀 시트를 읽는 방법이 있지만 이것은 파일이 저장이 된 상태의 값만을 읽게 되더라구요
:
: 좋은 방법이 있나요?





COM (Component Object Model) Interface를 바인딩 해서...
C++로 직접 다이렉트로 엑셀과 인터페이스를 취하는 방법 입니다.



HRESULT hres;
CLSID clsid;
CLSIDFromProgID(L"Excel.Application", &clsid);
IDispatch *excelApp;
 
hres = CoCreateInstance(clsid, 0, CLSCTX_LOCAL_SERVER, IID_IDispatch, reinterpret_cast(&excelApp));
 
DISPID dispidVisible;
OLECHAR *propertyName = "Visible";
hres = excelApp->GetIDsOfNames(IID_NULL, &propertyName, 1, LOCALE_SYSTEM_DEFAULT, &dispidVisible);
 
unsigned returnArg;
VARIANT varTrue;
DISPID rgDispidNamedArgs[1] = DISPID_PROPERTYPUT;
DISPPARAMS params = { &varTrue, rgDispidNamedArgs, 1, 1 };
 
varTrue.vt = VT_BOOL;
varTrue.boolVal = 0xFFFF;
 
hres = excelApp->Invoke(dispidVisible, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYPUT, params, 0, 0, &returnArg);

........
........
 
excelApp->Release();

........



프로그램에서 필요한 기능들은 래퍼클래스를 구현해서 확장해 주면 됩니다.

+ -

관련 글 리스트
66243 엑셀 VBA 와 데이타 주고 받는 방법 슈퍼코딱지 1062 2012/02/12
66244     Re:엑셀 VBA 와 데이타 주고 받는 방법 빌더 1254 2012/02/12
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.