Q&A

  • Excel OLE 사용시 Excel 변수 타입 사용방법에 관해..
아래와 같이 OLE을 열고
아이템에 Excel 상수 XLEDGETOP를 쓰려고 했는데 계속 그 상수를
찾을 수 없다고 나와 문서를 찾아보니 import type library를 하라고 하는데
import 창에서 type까지 excel로 찾고 Generate Component Wrapper 옵션을 설정한후 install 버튼을 눌렀는데 Imports 디렉토리의 Excel_TLB.pas의 변수가 선언이 안되어 있다면서 컴파일이 안되네요...
더 어떻게 해야할까요 ?
절차를 알려주시면 감사하겠습니다.

XL := CreateOLEObject('Excel.Application');
XLBook := XL.WorkBooks.Add;
XLBook.WorkSheets[Title].Range['A1','K1'].Borders.Item[XLEDGETOP].LineStyle := xlDouble;
1  COMMENTS
  • Profile
    양익호 2003.03.29 03:09

    님의 멜을 받고 답변을 드립니다.
    저는 어디서 구해는지 정확히 기억나지는 않지만 "xlConst.pas"를 uses하여 사용을 했었읍니다.


    uses xlconst.pas;
    .
    .
    .
    .
    XL := CreateOLEObject('Excel.Application');
    XLBook := XL.WorkBooks.Add;
    XLBook.WorkSheets[Title].Range['A1','K1'].Borders.Item[XLEDGETOP].LineStyle := xlDouble;
    .
    .
    .
    이렇게 사용을 했었구요.

      Sheets.Range[Sheets.Cells[5,1],Sheets.Cells[5,HorizontalXStrGrid.ColCount]].Font.Bold := True;    // 진하게
      Sheets.Range[Sheets.Cells[5,1],Sheets.Cells[5,HorizontalXStrGrid.ColCount]].Interior.Color := RGB(254,252,165);
      Sheets.Range[Sheets.Cells[5,1],Sheets.Cells[5,HorizontalXStrGrid.ColCount]].HorizontalAlignment := xlCenter;
      Sheets.Range[Sheets.Cells[5,1],Sheets.Cells[5,HorizontalXStrGrid.ColCount]].VerticalAlignment := xlCenter;
    에서  "xlCenter"은 xlConst에 정의된 const입니다.

    xlConst에는
    SheetType,WBATemplate,Pattern,BordersIndex,LineStyle,ChartType,
    Various Constants의 7가지를 분류하여 상수값을 정의한 pas입니다.

    필요하시면 보내드리도록 하죠.
    그럼 즐거운 하루되세요