Q&A
- [re] 델파이 7에서 폼에 있는 버튼 클릭시 엑셀파일 불러오게 하려면 어떻게 합니까
아래 코드와 같이 해야 처리 가능합니다.
<!--CodeS-->
var
XL: Variant;
sStr: String;
begin
try
XL:=CreateOLEObject('Excel.Application'); // Ole object creation
XL.Visible:= False;
XL.WorkBooks.Open(파일명);
except
XL := unAssigned;
Application.MessageBox('Excel파일을 열수 없습니다.' + #13 +
'Excel이 설치되어있는지 확인하세요.', 'Excel프로그램 미설치', mb_OK);
exit;
end;
while XL.Cells[Y, 1].Text <> '' do
begin
sStr := XL.Cells[Y, 1].Text ;
Inc(Y);
end;
XL.Quit;
XL := UnAssigned;
<!--CodeE-->
<!--CodeS-->
var
XL: Variant;
sStr: String;
begin
try
XL:=CreateOLEObject('Excel.Application'); // Ole object creation
XL.Visible:= False;
XL.WorkBooks.Open(파일명);
except
XL := unAssigned;
Application.MessageBox('Excel파일을 열수 없습니다.' + #13 +
'Excel이 설치되어있는지 확인하세요.', 'Excel프로그램 미설치', mb_OK);
exit;
end;
while XL.Cells[Y, 1].Text <> '' do
begin
sStr := XL.Cells[Y, 1].Text ;
Inc(Y);
end;
XL.Quit;
XL := UnAssigned;
<!--CodeE-->
1
COMMENTS
-
정희돈 고수님 감사합니다... 활용해 볼께요 ^.^
(NOTICE) You must be logged in to comment on this post.
-
- 박근준
- •
- 2009.04.02 03:37
- •
- 1 COMMENTS
- /
- 0 LIKES
-
석주현•2009.04.02 18:18음냐 숙제는 직접하시는게 ㅡ_ㅡ;;
-
- 밤이기네
- 2009.04.02 02:04
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 소천
- •
- 2009.04.01 22:51
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2009.04.02 01:37밑에 질문에 답변한 대로 고쳐서 사용하세요.
-
- 소천
- •
- 2009.04.01 20:26
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2009.04.01 21:11DayOfTheWeek이란 함수로 요일을 알 수가 있습니다. 월요일=1, 화요일=2, ... 일요일=7 uses ......
-
소천•2009.04.01 21:52빠른 답변에 깊이 감사드립니다. 근데 DateUtils 를 Uses에 선언만 해주면 될줄 알았는데 그게 아니네...
-
최용일•2009.04.02 01:32DayOfTheWeek --> DayOfWeek DaysPerWeek --> 7 DayWednesday --> 3
-
- 조훈아
- 2009.04.01 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 김갱
- •
- 2009.04.01 08:12
- 2 COMMENTS
- /
- 0 LIKES
-
석주현•2009.04.01 18:40간단하게 아래 같이 하면 되긴 하겠죠.. ^^ <!--CodeS--> procedure TForm1.btn1Click(Sender: T...
-
김갱•2009.04.02 02:24감사합니다.
-
- 윤종열
- 2009.04.01 04:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 이경민
- •
- 2009.04.01 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_Hit•2009.04.01 06:23음.. Timer 의 이벤트를 이용하시면 될텐데요. 구체적인 코드를 물어보시는건가요?
-
-
석주현•2009.04.01 18:44질문을 제대로 하셔야 답변을 받아 보실 것 같네요. 박근준님 이름으로 검색하여도 질문은 하나 인데...
-
-
- 선종욱
- •
- 2009.03.31 08:37
- 3 COMMENTS
- /
- 0 LIKES
-
선종욱•2009.04.01 04:46댓글이 없오 ㅠ.ㅠ
-
최용일•2009.04.02 02:12참고하세요. http://cbuilder.borlandforum.com/impboard/impboard.dll?action=read&db=bcb_tip&no=863
-
선종욱•2009.04.09 22:20최용일님 감사합니다. 왠지 저 게시물 올리신분이 대단해 보인다는;;
-
- 하늘 산
- •
- 2009.03.31 01:12
- 2 COMMENTS
- /
- 0 LIKES
-
후초보•2009.03.31 19:36zeos 로 MySql 연결시 별다른 설정은 하지 않은것 같은데요 단지 libMySql.dll 파일이 같은 폴더에 있어...
-
하늘 산•2009.03.31 23:52감사합니다. 한방에 해결했어요. 제가 system32에 다른 버젼의 dll을 설치하고 깜박 잊고 있었어요. 꾸...
-
- 곽영배
- 2009.03.30 20:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 허진영
- •
- 2009.03.30 12:05
- 2 COMMENTS
- /
- 0 LIKES
-
석주현•2009.03.30 20:06playing = true; 로 해보세요. 컴포넌트 속성에 보시면 있습니다.
-
허진영•2009.04.03 02:37당연히 playing
-
- 밤이기네
- 2009.03.28 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 밤이기네
- 2009.04.02 01:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 박종철
- •
- 2009.03.27 02:56
- 1 COMMENTS
- /
- 0 LIKES
-
박종철•2009.03.27 20:34자답입니다. Active라는 아주 간단한 방법이... OTL
-
- suffering tears
- •
- 2009.03.26 19:25
- 2 COMMENTS
- /
- 0 LIKES
-
소울해커•2009.03.27 00:39Image1.Picture.Bitmap.FreeImage; Image1.Picture.Bitmap.Width := AdvStringGrid1.Width; Image1.Pic...
-
suffering tears•2009.03.27 01:47소울해커님 감사합니다. 하지만, 정상적으로는 복사되지 않더군요. 그래서 다른방법으로 해결했습니다. ...
-
- 사직동 큰인물
- 2009.03.26 10:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 정희돈
- •
- 2009.03.26 20:12
- 1 COMMENTS
- /
- 0 LIKES
-
정희돈•2009.03.26 20:21아래 코드와 같이 해야 처리 가능합니다. <!--CodeS--> var XL: Variant; sStr: String;...
-
- 정희돈
- •
- 2009.03.26 20:14
- 1 COMMENTS
- /
- 0 LIKES
아래 코드와 같이 해야 처리 가능합니다. <!--CodeS--> var XL: Variant; sStr: String; begin try XL:=CreateOLEObject('Excel.Application'); // Ole object creation XL.Visible:= False; XL.WorkBooks.Open(파일명); except XL := unA...-
사직동 큰인물•2009.04.05 04:48정희돈 고수님 감사합니다... 활용해 볼께요 ^.^
