마크 데이터를 데이터베이스로 전송하고 Excel로 내보내는 방법

유닛 인터페이스 부분은 comobj 유닛을 참조합니다(사용)

절차 TForm1.Button1Click(Sender: TObject)

var excelx,excely: string;

시작

시도

ExcelApp := CreateOleObject('Excel.Application')

WorkBook := ExcelApp.WorkBooks.Open (opendialog.FileName);//opendialog 대화 상자를 사용하여

//excel 파일 경로를 지정합니다.

ExcelApp.Visible := false

ExcelRowCount: = WorkBook.WorkSheets.Value;

excely := excelapp.Cells.Value

if ((excelapp.Cells.Value = '') 및 (ExcelApp.Cells.Value = '')) 그런 다음

//엑셀 파일의 i 번째 행을 지정하고 (상황에 따라) 첫 번째 및 두 번째 행이 비어 있으면 종료됩니다. 파일에 이 두 행을 두는 것이 가장 좋습니다/ /데이터베이스에서 비워둘 수 없는 데이터에 해당합니다

exit

else

with query1 do

시작

닫기;

sql.clear;

sql.add(test(name,address) 값에 삽입(:name,: address));

parambyname ('name').asstring := excelx;//Excel 파일의 첫 번째 열이 테스트 테이블의 이름 필드에 삽입됩니다. parambyname('address').asstring := excely;//excel 테스트 테이블의 주소 필드에 파일의 두 번째 열을 삽입합니다.

end

끝;

마지막으로

WorkBook.Close;

ExcelApp.Quit

ExcelApp := 할당되지 않음;

WorkBook := 할당되지 않음

end

end;