Q&A
- SaveDialog 에서 저장이 안돼요~
table을 open 해서 DBgrid에 불러오고
DBgrid에 조회된 데이타들을 엑셀화일로 저장하는 과정에서
SaveDialog를 사용했습니다.
대화상자가 나오고 화일명을 넣고 저장했는데
initialDir에 지정한 디렉토리에 저장한 화일명이 안생기고
c:windowsRecent에 바로가기 화일만 생성됩니다.
왜 지정한 디렉토리에 화일이 생성되지 않는걸까요.
도와주세요~.
procedure TForm1.ColorButton3Click(Sender: TObject);
var
i, j : integer;
begin
try
ExcelApplication1.Connect;
except
MessageDlg('Excel과 연결되지 않습니다.', mtError, [mbOK], 0);
Abort;
end;
ExcelApplication1.workBooks.Add(xlWBATWorksheet, 0);
Table1.first;
for i := 1 to Table1.RecordCount do
begin
for j := 1 to DBGrid1.FieldCount do
begin
ExcelApplication1.Cells.Item[i,j] := Table1.Fields[j-1].AsString;
end;
Table1.Next;
end;
SaveDialog1.Execute;
end;
DBgrid에 조회된 데이타들을 엑셀화일로 저장하는 과정에서
SaveDialog를 사용했습니다.
대화상자가 나오고 화일명을 넣고 저장했는데
initialDir에 지정한 디렉토리에 저장한 화일명이 안생기고
c:windowsRecent에 바로가기 화일만 생성됩니다.
왜 지정한 디렉토리에 화일이 생성되지 않는걸까요.
도와주세요~.
procedure TForm1.ColorButton3Click(Sender: TObject);
var
i, j : integer;
begin
try
ExcelApplication1.Connect;
except
MessageDlg('Excel과 연결되지 않습니다.', mtError, [mbOK], 0);
Abort;
end;
ExcelApplication1.workBooks.Add(xlWBATWorksheet, 0);
Table1.first;
for i := 1 to Table1.RecordCount do
begin
for j := 1 to DBGrid1.FieldCount do
begin
ExcelApplication1.Cells.Item[i,j] := Table1.Fields[j-1].AsString;
end;
Table1.Next;
end;
SaveDialog1.Execute;
end;
2
COMMENTS
-
-
안녕하세요 하얀까마귀 입니다.
if SaveDialog1.Execute then <-- 요넘이 확인을 눌렀을때 입니다.
begin
SaveDialog1.FileName <-- 요넘이 파일명이죠..
{
저장은 마음데로요.. 다이알로그박스에서는 그냥 파일명만 가져오거든요
실제저장은 각각하셔야 합니다.
}
end;
kylix wrote:
> > SaveDialog1.Execute; 이곳이 저장하는 곳인가요?
>
> 흠~~ 파일에 따른 저장 방법이 수천수만가지인데 어떻게 SaveDialog1.Execute 하나로
>
> 저장을 하겠습니까? TSaveDialog객체는 단지 대화상자를 띄워서 세이브할 파일의 이름을
>
> 정해주는 것뿐입니다. Execute를 실행해서 파일의 이름을 정하고 저장은 직접하셔야 합니다.
>
> 제크 wrote:
> > table을 open 해서 DBgrid에 불러오고
> > DBgrid에 조회된 데이타들을 엑셀화일로 저장하는 과정에서
> > SaveDialog를 사용했습니다.
> > 대화상자가 나오고 화일명을 넣고 저장했는데
> > initialDir에 지정한 디렉토리에 저장한 화일명이 안생기고
> > c:windowsRecent에 바로가기 화일만 생성됩니다.
> > 왜 지정한 디렉토리에 화일이 생성되지 않는걸까요.
> > 도와주세요~.
> >
> >
> > procedure TForm1.ColorButton3Click(Sender: TObject);
> > var
> > i, j : integer;
> > begin
> > try
> > ExcelApplication1.Connect;
> > except
> > MessageDlg('Excel과 연결되지 않습니다.', mtError, [mbOK], 0);
> > Abort;
> > end;
> >
> > ExcelApplication1.workBooks.Add(xlWBATWorksheet, 0);
> > Table1.first;
> > for i := 1 to Table1.RecordCount do
> > begin
> > for j := 1 to DBGrid1.FieldCount do
> > begin
> > ExcelApplication1.Cells.Item[i,j] := Table1.Fields[j-1].AsString;
> > end;
> > Table1.Next;
> > end;
> > SaveDialog1.Execute;
> > end;
> >
(NOTICE) You must be logged in to comment on this post.
-
- 델초보
- •
- 2001.02.28 18:50
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2001.02.28 18:55델초보 wrote: > 메모컴포넌트의 text를 오라클 long Type 컬럼에 Insert하려는데 > 자꾸만 라인이 삽입...
-
- 보라미
- •
- 2001.02.28 18:46
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•2001.02.28 23:42혹시나 SubType='mtHtml' 이 SubType='text/html' 로 하면 안될까요???. 아닌가??? -_- 보라미 wro...
-
- 초보
- •
- 2001.02.28 18:20
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2001.02.28 18:31where rownum 안녕하세요 > 언젠가 봤는데 쿼리를 오픈해서 위로부터 원하는 만큼 .... > > with Quer...
-
- 사발우성
- •
- 2001.02.28 08:17
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.28 14:21IndexOf메소드를 사용하시죠... Copy보다는 이게 낫습니다.... if ListBox2.Items.IndexOf(어떤아이템) ...
-
사발우성•2001.02.28 18:04kylix wrote: > IndexOf메소드를 사용하시죠... Copy보다는 이게 낫습니다.... > > if ListBox2.Items....
-
- 질문자
- 2001.02.28 08:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피언77
- •
- 2001.02.28 07:11
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2001.02.28 11:08안녕하세요 하얀까마귀 입니다. 무슨 루틴인지 일부인것 같네요.. 아마도 jpeg.Assign(Image1.Pic...
-
- 처버처버
- •
- 2001.02.28 07:13
- 2 COMMENTS
- /
- 0 LIKES
-
방기남•2001.02.28 09:03var BTN: Array of TButton; procedure TForm1.FormCreate(Sender: TObject); begin SetLength(B...
-
kylix•2001.02.28 12:31근데요... 그렇게 배열을 선언해가지구 잡아주시면 FindComponent를 쓸필요가 없지 않을까요... 배열의 ...
-
- 홍문택
- 2001.02.28 07:00
- 0 COMMENTS
- /
- 0 LIKES
-
- ㅜㅜ
- 2001.02.28 06:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 김춘성
- 2001.02.28 05:36
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 제크
- •
- 2001.02.28 05:12
- 2 COMMENTS
- /
- 0 LIKES
table을 open 해서 DBgrid에 불러오고 DBgrid에 조회된 데이타들을 엑셀화일로 저장하는 과정에서 SaveDialog를 사용했습니다. 대화상자가 나오고 화일명을 넣고 저장했는데 initialDir에 지정한 디렉토리에 저장한 화일명이 안생기고 c:w...-
kylix•2001.02.28 07:12> SaveDialog1.Execute; 이곳이 저장하는 곳인가요? 흠~~ 파일에 따른 저장 방법이 수천수만가지인데 ...
-
하얀까마귀•2001.02.28 11:14안녕하세요 하얀까마귀 입니다. if SaveDialog1.Execute then SaveDialog1.Execute; 이곳이 저장하는...
-
- 고광현
- •
- 2001.02.28 05:03
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.02.28 05:28고광현 wrote: > 안녕하세요... > 한영키제어에 관한 질문입니다. > 델파이 2.0에서 자동으로 한글입력...
-
- 델파초짜..
- •
- 2001.02.28 04:33
- 2 COMMENTS
- /
- 0 LIKES
-
참고만•2001.02.28 06:59//아래코드가 다 입니껴? //동적 생성된 소켓에 서버로 연결은 하셨사옵니까? > G_ClientSocket[Num]...
-
jung hyun jin•2001.02.28 06:44델파초짜.. wrote: > 클라이언트소켓를 동적 생성하였는데요.. > 이벤트가 일어나질 않네요.. > > 좀...
-
- coco
- 2001.02.28 03:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 장민우
- 2001.02.28 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형식
- •
- 2001.02.28 02:59
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.02.28 03:09배열에 클래스(객체)를 넣을때.. 배열도 같은 class type 이어야 합니다. 배열에 넣으면..배열 = 클래스 ...
-
- joajoa
- •
- 2001.03.04 01:01
- 1 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.03.04 01:01joajoa wrote: > > 타이틀이 나타나질 않습니다. > 왜 일까여? > 아주 예전에 이런 버그가 있었는데 ...
-
- 델피언
- •
- 2001.02.28 02:47
- 2 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.02.28 06:48델피언 wrote: > 안녕하세여~ > > 델파이3을 5로 업그레이드했더니만.. > 퀵레포트가 어떤건 정상으로...
-
델피언•2001.02.28 19:09답변 감사합니다. 꾸벅~ 나름대로 차이를 비교했더니 페이지헤더에 다이렉트로 작성된 레포트폼은 다 안...
-
- 김춘성
- •
- 2001.02.28 02:39
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.02.28 03:04델파이 씨디에 인스톨 쉴드 같이 있어여. 김춘성 wrote: > > 안녕하세요... > 인스톨쉴드는 어디서 ...
흠~~ 파일에 따른 저장 방법이 수천수만가지인데 어떻게 SaveDialog1.Execute 하나로
저장을 하겠습니까? TSaveDialog객체는 단지 대화상자를 띄워서 세이브할 파일의 이름을
정해주는 것뿐입니다. Execute를 실행해서 파일의 이름을 정하고 저장은 직접하셔야 합니다.
제크 wrote:
> table을 open 해서 DBgrid에 불러오고
> DBgrid에 조회된 데이타들을 엑셀화일로 저장하는 과정에서
> SaveDialog를 사용했습니다.
> 대화상자가 나오고 화일명을 넣고 저장했는데
> initialDir에 지정한 디렉토리에 저장한 화일명이 안생기고
> c:windowsRecent에 바로가기 화일만 생성됩니다.
> 왜 지정한 디렉토리에 화일이 생성되지 않는걸까요.
> 도와주세요~.
>
>
> procedure TForm1.ColorButton3Click(Sender: TObject);
> var
> i, j : integer;
> begin
> try
> ExcelApplication1.Connect;
> except
> MessageDlg('Excel과 연결되지 않습니다.', mtError, [mbOK], 0);
> Abort;
> end;
>
> ExcelApplication1.workBooks.Add(xlWBATWorksheet, 0);
> Table1.first;
> for i := 1 to Table1.RecordCount do
> begin
> for j := 1 to DBGrid1.FieldCount do
> begin
> ExcelApplication1.Cells.Item[i,j] := Table1.Fields[j-1].AsString;
> end;
> Table1.Next;
> end;
> SaveDialog1.Execute;
> end;
>