Q&A

  • 엑셀파일의 내용을 DB에 넣기
엑셀 파일 시트 2개에 걸쳐 테이블에 넣어야 할 내용이 있습니다.
1.표a1
  |c1,c2,c3,c4,c5,c6
-----------------------
r1 | s1,s2,s3,s4,s5,s6
r2 | s1,s2,s3,s4,s5,s6
r3 | s1,s2,s3,s4,s5,s6
r4 | s1,s2,s3,s4,s5,s6
r5 | s1,s2,s3,s4,s5,s6

2.표a2
  |c1,c2,c3,c4,c5,c6
-----------------------
r1 | s1,s2,s3,s4,s5,s6
r2 | s1,s2,s3,s4,s5,s6
r3 | s1,s2,s3,s4,s5,s6
r4 | s1,s2,s3,s4,s5,s6
r5 | s1,s2,s3,s4,s5,s6

C와 r은 각각 코드 테이블에서 가져와 매치시켜 기본키,구분값,c,r,s를 다른 테이블에 넣어야 합니다

엑셀 파일의 셀을 인식해 값을 구하고자 할때 어떤 함수를 써야 하는지 알고 싶습니다.


uses comobj;
는 맨 앞에 썼구요

V := CreateOleObject('Excel.Application');
V.Visible := True;                // 엑셀 프로그램이 보이게 한다.
V.workbooks.Add(e_report.text);   // 특정화일을 open한다.

V.sheets(1).select;                // 이 문장에서 멤버가 없다는 메시지가 나옵니다.
For I := 1 to 10 do
       begin
         For J := 1 to 10 do
         Begin
         ls_val:= vartostr(ExcelSheet.Cells[I,J]);  //여기서도 에러
         end;
       end;
0  COMMENTS