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
[21278] Re:엑셀 파일을 열어서 Grid 로 불러 들이고 싶습니다.
방태윤 [nabty] 2374 읽음    2002-09-06 16:00
선택한 파일을 바로여는건 ShellExecute 로 검색해 보십시요..
그리고 (엑셀) 검색어로 찾아보시면 더 자료가 나올겁니다.
아래는 엑셀을 스트링그리드로 불러오는겁니다.

#include "utilcls.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Variant ex=Variant::CreateObject("Excel.Application");
  ex.OlePropertyGet("WorkBooks").OleProcedure("Open","c:\\리스트1.xls");
  Variant awb=ex.OlePropertyGet("ActiveWorkBook");
  Variant sh=awb.OlePropertyGet("ActiveSheet");//엑티브sheet
//  Variant sh=awb.OlePropertyGet("Sheets").OlePropertyGet("item",1);//sheet1
//  Variant sh=awb.OlePropertyGet("Sheets").OlePropertyGet("item",2);//sheet2

  int row=sh.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count"); //row갯수
  int col=sh.OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");//col갯수

  StringGrid1->RowCount=row+1;
  StringGrid1->ColCount=col+1;

  for(int j=0;j<row;j++){
    for(int i=0;i<col;i++){
      StringGrid1->Cells[i+1][j+1]=sh.OlePropertyGet("Cells",j+1,i+1).OlePropertyGet("Value");
    }
  }

  awb.OleProcedure("Close");
  ex.OleProcedure("Quit");

  awb=Unassigned;
  ex=Unassigned;
}

최연수 님이 쓰신 글 :
: 안녕하십니까..이틀전에 볼랜드 C++ 6.0을 깐 초보입니다.
: OpenDialog를 하여 Dialog는 띄웠는데요.선택한 파일(엑셀)을 바로 열수는 없나요.
: 그리고 열려진 엑셀 파일을 Grid로 바로 저장 할 수 는 없나요..
:
: 너무 질문이 황당합니까?
:
: 사실은 이게 쉬운건지 어려운건지도 잘 모르겠습니다.
:
: 아시는 분은 아주 작은 것이라도 좋으니 답변 부탁드립니다.

최연수 님이 쓰신 글 :
: 안녕하십니까..이틀전에 볼랜드 C++ 6.0을 깐 초보입니다.
: OpenDialog를 하여 Dialog는 띄웠는데요.선택한 파일(엑셀)을 바로 열수는 없나요.
: 그리고 열려진 엑셀 파일을 Grid로 바로 저장 할 수 는 없나요..
:
: 너무 질문이 황당합니까?
:
: 사실은 이게 쉬운건지 어려운건지도 잘 모르겠습니다.
:
: 아시는 분은 아주 작은 것이라도 좋으니 답변 부탁드립니다.

+ -

관련 글 리스트
21274 엑셀 파일을 열어서 Grid 로 불러 들이고 싶습니다. 최연수 756 2002/09/06
21278     Re:엑셀 파일을 열어서 Grid 로 불러 들이고 싶습니다. 방태윤 2374 2002/09/06
21284         Re:Re:엑셀 파일을 열어서 Grid 로 불러 들이고 싶습니다. 최연수 947 2002/09/06
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.