Q&A

  • 기존 EXCEL 문서 불러와서 편집후 저장하기
ExcelV:= GetActiveOLEObject('Excel.Application')

위와 같이 하면 엑셀 빈 문서 하나가 뜨는데, 기존의 test.xls 라는 파일을 띄울려면 어땋게 해야 합니까?
2  COMMENTS
  • Profile
    임진묵 2003.04.19 00:00
    win98 사용자 인데요.. start 란 도스 프로그램이 있습니다.
    사용법은 start 라고 치면 나와요.. ㅡ.ㅡ

    WINEXEC('start c:IP목록.xls', sw_showNormal);


  • Profile
    김영대 2003.04.18 22:52
    // 안녕하세요  김영대(http://www.howto.pe.kr) 입니다  

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ComObj;

    type
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Excel: Variant;
      WBk, WS, SheetName: OleVariant;
    begin
      try
        // 이미 실행된 Excel 을 찾아본다
        Excel := GetActiveOleObject('Excel.Application');
      except
        // 없다면 새로 Excel을 실행시킨다
        Excel := CreateOleObject('Excel.Application');
      end;
      Excel.Visible := True;

      // xls 파일을 연다
      WBk := Excel.WorkBooks.Open('C:test.xls');

      // xls 파일에서 보고자 하는 sheet 를 선택한다
      WS := WBk.Worksheets.Item['Sheet2'];

      WS.Activate;
    end;

    end.