선경선향아빠's Blog

  Lotus 123 파일 읽는 프로그램 2006년에 작업했던 프로그램 입니다. 지인의 부탁으로 작업한 프로그램인데 소스 정리하다가 나왔네요.  예전에 Lotus 123이라는 오래된 Spreadsheet프로그램이 있었는데 Excel이 나오기 전에는 많이 사용했습니다. 지인의 회사에서 Lotus 123 구동하는 PC 가 고장이 나면서 기존 파일을 읽어 오지 못해서 난처했었죠.  그러다 Lotus 123 파일을 읽어서 Excel 변환하는 프로그램을 만들었습니다.  우연히 Lotus 123을 읽어오는 Delphi Component가 저에게 있어서 그 Component 를 사용해서 읽은 후 Excel 저장합니다. Delphi 7 버전으로 만들었네요. 기능 Lotus 123 파일 읽어오기 (파일에 여러시트가 있을경우 Tab을 생성하면서 열기) Excel저장, 전체저장(전체 탭 Excel파일로 저장) Excel 이 설치된 PC 에서만 동작합니다. 엑셀 저장은 Excel Automation 사용하거든요

Sheet2DB  프로젝트를 진행하다 보면 Excel 데이터를 DB Table로 입력해야 되는 경우가 많이 생깁니다. Excel 데이터를 DB Table 구조에 맞춰서 입력하기가 때로는 막 노동처럼 느껴져서 만들게 되었습니다. 스크린샷(ScreenShot) Excel 선택하는 페이지 Excel 선택 후 DB 접속 정보 입력 DB 접속 정보를 입력한 후 DB연결/테이블 리스트 버튼을 누르면 다음페이지로 넘어 갑니다. MSSQL 용이라서 sp_tables 테이블 정보와 sp_columns 컬럼정보를 가져옵니다. 테이블 리스트에서 사용할 테이블을 선택하고 테이블 컬럼명 버튼을 누르면 테이블 컬럼 정보가 나오고 Excel 컬럼 정보랑 연결/취소 버튼을 이용해서 매칭 시킨 후 다음페이지에서 DB작업 버튼을 클릭하면 DB 에 Insert 됩니다. 테이블 정보와 Excel 컬럼(타이틀) 정보를 활용하여 Insert 구문을 자동으로 만들어서 테이블에 저장됩니다. 처리결과를 확인합니다. 프로그램 정보 Delphi 10.3 커뮤니티 에디션으로 작업 엑셀 읽어 오는 부분은 Excel.Application OLE 를 사용했습니다. 그리드는 기본그리드인 스트링 그리드 현재는 MSSQL 만 됩니다. 오라클 추가한 후 공개할 예정입니다. 그전에 필요하신분은 따로 연락 주세요!!! PS . 2022-04-28 소스 github 에 올렸어요  https://github.com/skshpapa80/Sheet2DB