일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
- MFC
- 인스톨
- 초보
- dll
- Delphi
- 예제
- Visual Studio 2005
- winsock
- SDK
- 기초
- VB.NET
- MySQL
- 시리얼 통신
- Firebird
- xml
- 문자열
- WIN32 SDK
- 파라미터
- Visual Basic
- vb
- 설치
- 소니
- SQL
- 델파이
- 데이터베이스
- 파이어버드
- c#
- PostgreSQL
- 입문
- 셋업
- Today
- Total
목록엑셀 (3)
프로그래밍 노트
클립보드의 데이터를 StringGrid에 붙이기 엑셀에서 데이터를 카피해서 StringGrid에 붙이기 클립보드의 데이터를 쓰기위해서는 uses절에 Clipbrd 를 추가해야 된다. procedure TfrmCable.PasteToGrid(sgrdPaste: TStringGrid; iCol, iRow: integer); const cTab = #9; cCR = #13; cLF = #10; var iCols : integer; iRows : integer; i : integer; sClip : string; sSubs : string; begin // Col,Row 이 음수 일때는 0으로 if iCol < 0 then iCol := 0; if iRow < 0 then iRow := 0; sClip := C..
델파이에서 엑셀 파일에 선그리기 procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; Const xlNone = -4142; xlDiagonalDown = 5; xlDiagonalUp = 6; xlEdgeLeft = 7; xlEdgeTop = 8; xlEdgeBottom = 9; xlEdgeRight = 10; xlContinuous = 1; xlThin = 2; xlThick = 4; xlAutomatic = -4105; begin Excel := CreateOleObject('Excel.Application'); Excel.V..
델파이에서 엑셀로 데이터 출력하는 간단한 예제 맨 위의 uses에는 "ComObj"를 추가 해야된다. procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; begin Excel := CreateOleObject('Excel.Application'); Excel.Visible := True; // 워크북 추가 Excel.WorkBooks.Add; WorkBook := Excel.ActiveWorkBook; // 워크시트 추가 Workbook.sheets.add; try // 작업할 워크시트 선택 WorkSheet := WorkBoo..