Q&A
- 엑셀파일 열어서 저장할때 물어보는 박스 안나오게..
<!--CodeS-->
MyExcel := CreateOLEObject('Excel.Application');
MyExcel.Workbooks.Open[StrPas(Path) + '\book.xls'];
procedure TForm1.Button1Click(Sender: TObject);
begin
MyExcel.worksheets['Sheet1'].Cells.Item[4, 2].value :=Edit1.Text;
MyExcel.worksheets['Sheet1'].Cells.Item[4, 3].value :=Edit2.Text;
end;
MyExcel.quit;
<!--CodeE-->
간단한 구조는 위 코드와 같습니다.
우선 문제는, 저렇게 해서 엑셀파일 일부를 수정한 후에 MyExcel.quit 하게되면 엑셀에서 '저장하시겠습니까?'라고 물어보네요;
MyExcel.workbooks.close(TRUE);라고 했더니 매개변수가 잘못됐다고 나오구요
알아서 저장하고 끝내게 하려면 어떻게 해야 하나요?
그리고, Button1이 눌렸을때 현재 읽고있는 workbook을 끝내지 않고 변경된 Row를 바로 저장하고싶은데 그건 어떻게 해야 하나요?
MyExcel := CreateOLEObject('Excel.Application');
MyExcel.Workbooks.Open[StrPas(Path) + '\book.xls'];
procedure TForm1.Button1Click(Sender: TObject);
begin
MyExcel.worksheets['Sheet1'].Cells.Item[4, 2].value :=Edit1.Text;
MyExcel.worksheets['Sheet1'].Cells.Item[4, 3].value :=Edit2.Text;
end;
MyExcel.quit;
<!--CodeE-->
간단한 구조는 위 코드와 같습니다.
우선 문제는, 저렇게 해서 엑셀파일 일부를 수정한 후에 MyExcel.quit 하게되면 엑셀에서 '저장하시겠습니까?'라고 물어보네요;
MyExcel.workbooks.close(TRUE);라고 했더니 매개변수가 잘못됐다고 나오구요
알아서 저장하고 끝내게 하려면 어떻게 해야 하나요?
그리고, Button1이 눌렸을때 현재 읽고있는 workbook을 끝내지 않고 변경된 Row를 바로 저장하고싶은데 그건 어떻게 해야 하나요?
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 박동녘
- •
- 2006.02.27 05:53
- 1 COMMENTS
- /
- 0 LIKES
-
최도선•2006.02.28 01:14A라는 곳에서 NAK를 받으면 A로 재전송하는지 전혀 다른 B라는 곳으로 재 전송하는지 모르겠습니다. A에서...
-
- 윤보람
- •
- 2006.02.27 00:43
- 1 COMMENTS
- /
- 0 LIKES
<!--CodeS--> MyExcel := CreateOLEObject('Excel.Application'); MyExcel.Workbooks.Open[StrPas(Path) + '\book.xls']; procedure TForm1.Button1Click(Sender: TObject); begin MyExcel.worksheets['Sheet1'].Cells.Item[4, 2].value :...-
최도선•2006.02.28 02:11<!--CodeS--> MyExcel := CreateOLEObject('Excel.Application'); MyworkBook := MyExcel.Workbook...
-
- 상상력
- 2006.02.25 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 강중규
- 2006.02.25 23:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이동욱
- 2006.02.25 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 마이리더
- •
- 2006.02.25 19:24
- 1 COMMENTS
- /
- 0 LIKES
-
최도선•2006.02.27 21:10고수는 아니지만, <!--CodeS--> jumin_asc.code := format('%02.02d',[Ord(s[1])]) &...
-
- 박준영
- 2006.02.25 04:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 이동안
- 2006.02.25 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤수아
- •
- 2006.02.25 01:33
- 1 COMMENTS
- /
- 0 LIKES
-
장덕곤•2006.04.11 01:55미리보기시 페이지를 작게 표시 해야될경우그럴겁니다. 페이지에있는 + 버튼을 누르시면 확대...
-
- 신철우
- 2006.02.24 04:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 방기남
- 2006.02.24 00:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이성빈
- •
- 2006.02.23 23:22
- 1 COMMENTS
- /
- 0 LIKES
-
KalliSta•2006.02.24 00:15님께서 얼마전 질문하신 내용에 답글이 있습니다. 참고하세요.
-
- 언제나초보
- •
- 2006.02.23 22:33
- •
- 1 COMMENTS
- /
- 0 LIKES
-
착한천사•2006.03.04 20:36일단, 에러가 떨어졌으니, Application 단에서는 에러를 판별하기 어렵겠습니다. 오라클 에러 메세지(aler...
-
- 박성준
- •
- 2006.02.23 20:56
- 1 COMMENTS
- /
- 0 LIKES
-
김현학•2006.02.25 18:49알려 주는 겁니다. TABLE 콤프을 올려 놓고, IDE에서 DATABASE NAME인가에 BDE에서 설정한 이름을 넣어...
-
- 강훈진
- 2006.02.23 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성준
- •
- 2006.02.23 03:16
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2006.02.24 03:32안녕하세요. 최용일입니다. 함수호출규약의 하나입니다. 함수를 호출할때 파라매터를 어떻게 함수로 ...
-
- 이상인
- •
- 2006.02.23 03:10
- 1 COMMENTS
- /
- 0 LIKES
-
초이•2006.02.24 00:18VB에서 $H?? 이런식으로 표현되는 것은 Hex 코드 표현방식인걸로 알고 있습니다.. 델파이에서는 HexCode를...
-
-
최용일•2006.02.24 03:37안녕하세요. 최용일입니다. 델파이도움말에 자세히 나와 있습니다. $MINENUMSIZE는 열거형에 대한 최...
-
-
-
최도선•2006.02.24 22:13저는 잘되는 데요 9번째 줄에 cmd/c => cmd /c 로 스페이스를 줘야합니다. 01>var ...
-
-
- 홍성호
- 2006.02.23 01:52
- 0 COMMENTS
- /
- 0 LIKES
MyExcel := CreateOLEObject('Excel.Application');
MyworkBook := MyExcel.Workbooks.Open(StrPas(Path) + '\book.xls');
<!--CodeE-->
"저장하겠습니까"와 같은 Alert를 안보이게 하려면,
<!--CodeS-->
MyExcel.DisplayAlerts := false;
<!--CodeE-->
Workbook을 닫으려면,
<!--CodeS-->
MyWorkBook.Close(true); // 저장하고 닫힙니다.
<!--CodeE-->
WorkBook를 바로 저장하려면,
<!--CodeS-->
MyWorkBook.SaveAs(StrPas(Path) + '\book.xls');
<!--CodeE-->
즐거운 하루되세요 ^^;