Excel을 Open해서
현재Sheet의 내용을 Sheet Name이 곧 Table명 입니다..
예를 들어
A칼럼은 Insert 안하고....B 칼럼에서 G칼럼까지..
Row가 만약 10개 있다면....
10개 Record을 Table에 Insert할려면 어떻게해야하는지..(속도까지감안해서)
(참고로 델파이4 사용)
먼저 CreateOleObject로 Excel 을 실행시킨 다음,
원하시는 엑셀파일을 부르고 이 불러진 화일을
Table컴포넌트를 이용해서 Insert 하시면 될거 같네요.
예를 들면 아래처럼..
for i := 0 to v.cells.count do
begin
table.Insert;
table.fields[0].asString := v.cells[i+1, 1];
table.fields[1].asString := v.Cells[i+1, 2];
table.fields[2].asString := v.Cells[i+1, 3];
table.post;
end;
Excel을 Open해서 현재Sheet의 내용을 Sheet Name이 곧 Table명 입니다.. 예를 들어 A칼럼은 Insert 안하고....B 칼럼에서 G칼럼까지.. Row가 만약 10개 있다면.... 10개 Record을 Table에 Insert할려면 어떻게해야하는지..(속도까지감안...
구창민
•
2002.12.19 00:46
안녕하세요~ 구창민입니다.
아래 내용은 일전에 볼랜드 뉴스그룹에서 소개된적이 있는 내용인데,,
먼...
열심히
•
2002.12.19 00:45
지금 만들어보던중 궁금한게 생겼는데요...
님이 지금 원하시는 작업이 델파이에서 버턴만 한번 누르면
...
아래 내용은 일전에 볼랜드 뉴스그룹에서 소개된적이 있는 내용인데,,
먼저 CreateOleObject로 Excel 을 실행시킨 다음,
원하시는 엑셀파일을 부르고 이 불러진 화일을
Table컴포넌트를 이용해서 Insert 하시면 될거 같네요.
예를 들면 아래처럼..
for i := 0 to v.cells.count do
begin
table.Insert;
table.fields[0].asString := v.cells[i+1, 1];
table.fields[1].asString := v.Cells[i+1, 2];
table.fields[2].asString := v.Cells[i+1, 3];
table.post;
end;
참고로 하시기 바랍니다.
그럼~ 항상 즐거운 프로그래밍 하시길~~