한꼬맹이 님이 쓰신 글 :
: 시빌더 님이 쓰신 글 :
: : 한꼬맹이 님이 쓰신 글 :
: : : 시빌더 님이 쓰신 글 :
: : : : 답변고맙습니다..
: : : : 그코드는 자동생성코드가 맞아요..
: : : : 근데
: : : : ActiveForm이 아닐경우에는 문제가 없는데..
: : : : ActiveForm에만 Excel을 연결만 하면 그코드에서 break 가 걸리거든요?
: : : : 에러메세지를 보니 뭐.. Excel_Tlb와 애매모호한 코드이다..(대충 해석) 이런것 같은데..
: : : : 다른코드는 손덴게 없어요..
: : : : 갑갑하군요..
: : : : 읽어주셔서 대단히 감사합니다..
: : :
: : : 안녕하십니까?
: : :
: : : 한꼬맹이 입니다.
: : :
: : : 엑셀을 불러오는 코드를 저한테 한번 보여주시고 정확한 에러코드도 보여주시면
: : :
: : : 고맙겠네요...
: : :
: : : 지금은 소스를 보지않은 이상 뭐라고 말씀드릴수가 없네요
: : :
: : : 그럼 참고하시길...
: : :
: : :
: :
: : 답변고맙습니다..
: :
: : ***** excel 연결및 query data를 엑셀로...(cpp파일)
: :
: : #include <vcl.h>
: : #pragma hdrstop
: : #include <atl\atlvcl.h>
: : #include "Serv_TLB.h"
: : #include "L1_cliImpl1.h"
: : #include "Excel_TLB.h"
: : #include <UtilCls.h>
: :
: :
: : void __fastcall TL1_cli::BitBtn5Click(TObject *Sender)
: : {
: : Variant xlApp, xlBooks, xlBook, xlSheets, xlSheet,VCell;
: : try
: : {
: : xlApp = CreateOleObject("Excel.Application.9");
: : }
: : catch (Exception &exception)
: : {
: : ShowMessage("Excel이 설치되어 있지 않습니다.");
: : return;
: : }
: :
: : if ( SaveDialog->Execute() == false )
: : return;
: :
: : if ( FileExists(SaveDialog->FileName) )
: : {
: : ShowMessage("파일이 존재함.");
: : return;
: : }
: :
: : xlApp.OlePropertySet("DisplayAlerts", false);
: : xlApp.OlePropertySet("Visible", false);
: : xlBooks = xlApp.OlePropertyGet("Workbooks");
: : xlBooks.OleProcedure("Add");
: : xlBook = xlBooks.OlePropertyGet("Item", 1);
: : xlSheets = xlBook.OlePropertyGet("Worksheets");
: : xlSheet = xlSheets.OlePropertyGet("Item", 1);
: :
: : xlSheet.OlePropertySet("Name", String("자료1") );
: :
: : Integer i;
: :
: : LPum01->First();
: : AnsiString str1,str2;
: :
: : for (i = 1;i<=LPum01->RecordCount;i++){
: :
: : VCell = xlSheet.OlePropertyGet("Cells", i, 1);
: : VCell.OlePropertySet("Value",LPum01->FieldByName("PumCode")->AsString);
: :
: : VCell = xlSheet.OlePropertyGet("Cells", i, 2);
: : VCell.OlePropertySet("Value",LPum01->FieldByName("PumName")->AsString);
: : LPum01->Next();
: :
: : }
: :
: : xlBook.OleProcedure("SaveAs", SaveDialog->FileName);
: : xlBook.OleProcedure("Close");
: : xlApp.OleProcedure("Quit");
: : }
: :
: : 그리고.. 에러가 나는 코드입니다..(자동생성코드입니다.. ActivexForm)
: :
: : STDMETHODIMP TL1_cliImpl::_set_Font(IFontDisp** Value) ****>이부분
: : {
: : try
: : {
: : const DISPID dispid = -512;
: : if (FireOnRequestEdit(dispid) == S_FALSE)
: : return S_FALSE;
: : SetVclCtlProp(m_VclCtl->Font, Value);
: : FireOnChanged(dispid);
: : }
: : catch(Exception &e)
: : {
: : return Error(e.Message.c_str(), IID_IL1_cli);
: : }
: : return S_OK;
: : };
: :
: : ***에러메세지 : E2105 Ambiguity between 'IFontDisp' and 'Excel_tlb::IFontDisp'.
: :
: : 이상입니다..
: : 바쁘실텐데 많은 도움 주셔서 대단히 감사합니다..
: :
:
: 안녕하십니까?
:
: 한꼬맹이 입니다.
:
: 에러내용은 엑티브폼의 IFontDisp 하고 임포트한 엑셀의 'Excel_tlb::IFontDisp'
:
: 하고 이름이 똑같아서 생기는 에러입니다. 그러면 어디껀지 명시해주면 되겠죠...
:
: 만약 엑셀꺼라면 'Excel_tlb::IFontDisp' 이런식으로 표현해주고 엑티브폼꺼면
:
: '::IFontDisp' 앞에다 scope 연산자(::)만 붙혀주면 됩니다.
:
: 그럼 참고하시길....
:
정말 무식한게 죕니다..
에러없이 컴파일되는걸보니 님의 경지가 새삼 부럽습니다..
근데 산넘어 산이군요
님께서 보시기에 위의 excel 관련 코드에 무슨 문제가 있나요?
일반폼에선 excel 화일로 잘 저장이 되거든요?
근데 active폼에선 저장 Dialog 까진 잘되고 저장이름을 입력하고 확인을하면
Access violation at address 01E6E713.... 'xxx.ocx'. Read.... 라는 에러메세지가 뜨고
excel 화일이 만들어 지지 않습니다..
물론 다른 작업은 잘되구요..
바쁘실텐데.. 여러가지로 고맙습니다..
감사~감사감사감사감사감사감사감사감사감사!!!!!!
