delphi操作excell文件实现学生均衡分班

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,System.Win.ComObj; type TForm1 = class(TForm) Button1: TButton; Label19: TLabel; Label20: TLabel; Label21: TLabel; Edit6: TEdit; Edit7: TEdit; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: Variant; FSheet: Variant; sheetno:Integer; rowno:integer; sheetname1,edit1text:string; gezhi,shijian,riqi:Integer; kaishibanji,banji,banjishu,jieguolineno:Integer; banjistr:string; fangan:Integer; begin//0 ExcelApp:= GetActiveOleObject('Excel.Application'); ExcelApp.visible:=true; FSheet :=ExcelApp.ActiveWorkbook.Activesheet; kaishibanji:=StrToInt(Edit4.text); //第个人分配到的班级数 banji:=StrToInt(Edit2.text); //第个人分配到的班级数 banjishu:=StrToInt(Edit1.text) ; //总的班级数 jieguolineno:=StrToInt(Edit3.text) ; //结果放在第几列 fangan:=1; //方案开关 for rowno := StrToInt(Edit6.Text) to StrToInt(Edit7.Text) do begin Sleep(1000) ; FSheet.Cells[rowno,jieguolineno].Value :=banji; banjistr:=IntToStr(banji); FSheet.Cells[rowno,jieguolineno+1].Value :=Edit5.Text+'('+banjistr+')班'; case fangan of 1:begin //方案1如果班级小于最后一个班级，班级数加1，如果班级等于最大班级，班级不变，方案变成2号方案 if banji<kaishibanji+banjishu-1 then="" banji:="banji+1" else="" if="" banji="kaishibanji+banjishu-1" fangan:="2;" end;="" 2:begin="" 方案2如果班级大于开始班级，班级数减1，如果班级等于最小班级，班级不变，方案变成1号方案="">kaishibanji then banji:=banji-1 else if banji=kaishibanji then fangan:=1; end; end; end; end; procedure TForm1.FormShow(Sender: TObject); begin Form1.FormStyle:=fsStayOnTop; form1.Left:=1420; form1.top:=600; end; object Form1: TForm1 Left = 0 Top = 0 Caption = #22343#34913#20998#29677 ClientHeight = 671 ClientWidth = 960 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] OnShow = FormShow TextHeight = 15 object Label19: TLabel Left = 35 Top = 144 Width = 50 Height = 24 Caption = #20174#31532 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label20: TLabel Left = 169 Top = 144 Width = 50 Height = 24 Caption = #21040#31532 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 283 Top = 144 Width = 25 Height = 24 Caption = #34892 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 8 Top = 208 Width = 225 Height = 24 Caption = #31532#19968#20010#21516#23398#30340#29677#32423#21495 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 228 Top = 83 Width = 100 Height = 24 Caption = #29677#32423#24635#25968 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 8 Top = 264 Width = 250 Height = 24 Caption = #20998#29677#32467#26524#20445#23384#22312#31532#20960#21015 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 8 Top = 83 Width = 100 Height = 24 Caption = #24320#22987#29677#32423 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 8 Top = 27 Width = 75 Height = 24 Caption = #24180#32423#65306 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False end object Button1: TButton Left = 18 Top = 326 Width = 290 Height = 67 Caption = #24320#22987#20998#29677 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button1Click end object Edit6: TEdit Left = 103 Top = 141 Width = 60 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508#36755#20837#27861 ParentFont = False TabOrder = 1 Text = '3' end object Edit7: TEdit Left = 228 Top = 141 Width = 49 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508#36755#20837#27861 ParentFont = False TabOrder = 2 Text = '13' end object Edit1: TEdit Left = 346 Top = 80 Width = 91 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 Text = '5' end object Edit2: TEdit Left = 251 Top = 205 Width = 102 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 end object Edit3: TEdit Left = 264 Top = 261 Width = 101 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object Edit4: TEdit Left = 124 Top = 80 Width = 63 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 6 Text = '1' end object Edit5: TEdit Left = 124 Top = 24 Width = 63 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #26032#23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 7 Text = #19968 end end