|
저도 여기서 엑셀 파일 처리에 대해서 도움 받은게 있어서요..
아래 소스 이용해서 공부해 보세요..^^
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Variant xlApp, xlBooks;
xlApp = Variant::CreateObject("Excel.Application");
xlBooks = xlApp.OlePropertyGet("Workbooks");
WideString aString = "c:\\test.xls";
xlBooks.OleProcedure("Open", aString);
Variant xlBook = xlBooks.OlePropertyGet("Item", 1);
Variant xlSheets = xlBook.OlePropertyGet("Worksheets");
Variant xlSheet = xlSheets.OlePropertyGet("Item", 1); // 1번 Sheet 가져오기
Variant VCell;
AnsiString val1,val3;
int row_cnt = xlSheet.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count"); //row갯수
Memo1->Lines->Add(row_cnt);
for(int row = 1; row < row_cnt; row++) {
VCell = xlSheet.OlePropertyGet("Cells", row, 1);
val1 = VCell.OlePropertyGet("Value");
VCell = xlSheet.OlePropertyGet("Cells", row, 3);
val3 = VCell.OlePropertyGet("Value");
Memo1->Lines->Add("A: " + val1 + " , C: " + val3);
}
xlBooks.OleProcedure("Close");
xlApp.OleProcedure("Quit");
}
somez72 님이 쓰신 글 :
: 안녕하세요.
:
: 엑셀화일을 Open하여 ( c:\test.xls" ) ,
: Sheet1에 있는 첫번째 칼럼과 세번째 칼럼의 값을 ,처음부터 화일 끝까지 읽으려 합니다.
: 어떤 componet를 사용해야 하는지요?
:
: 아래와 같은 concept 인데... 어떤 콤포넌트와 함수를 써야 하는지 알수 없습니다.?
: 기본적으로 참조할수 있는 example code 주시면 감사하겠습니다.
:
:
: 예)
: int row = 0;
: fp = Open ( "c:\\test.xls" );
: while ( !fp ( eof ) )
: {
: firstColumeValue = get_First_colum( row );
: thirdColueValue = get_Thrid_colum (row );
:
: row ++;
:
: }
:
:
:
:
: 수고하세요.
|