DECLARE @hr INT;
DECLARE @objExcel INT;
DECLARE @objWorkBooks INT;
DECLARE @objWorkBook INT;
DECLARE @objSheets INT;
DECLARE @objSheet INT;
DECLARE @objRange INT;
Declare @A INT


EXEC @hr = sp_OACreate 'Excel.Application',@objExcel OUTPUT;
EXEC @hr = sp_OASetProperty @objExcel,'Visible','True';
EXEC @hr = sp_OAGetProperty @objExcel,'Workbooks',@objWorkbooks OUTPUT;  
EXEC @hr = sp_OAGetProperty @objWorkbooks,'Add',@objWorkbook OUTPUT;    
EXEC @hr = sp_OAGetProperty @objWorkbook,'Sheets',@objSheets OUTPUT;
EXEC @hr = sp_OAGetProperty @objSheets,'Add',@objSheet OUTPUT;


EXEC @hr = sp_OAMethod @objSheet,'Range("A1:I1").Merge';
EXEC @hr = sp_OASetProperty @objExcel,'Range("A1").HorizontalAlignment',3;
EXEC @hr = sp_OASetProperty @objSheet,'Range("A1").Value','个人简历';
EXEC @hr = sp_OASetProperty @objExcel,'Range("A1").Font.Name','方正姚体';
EXEC @hr = sp_OASetProperty @objSheet,'Rows(1).RowHeight',38;
EXEC @hr = sp_OASetProperty @objExcel,'Range("A1").Font.Size','20';

EXEC @hr = sp_OAMethod @objSheet,'Range("A2:A4").Merge';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A2").Value','基本情况';

EXEC @hr = sp_OAMethod @objSheet,'Range("A5:A7").Merge';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A5").Value','教育背景';

EXEC @hr = sp_OASetProperty @objSheet,'Range("A8").Value','求职意向';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A9").Value','担任职务';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A10").Value','主修课程';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A11").Value','教育经历';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A12").Value','个人能力';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A13").Value','社会实践';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A14").Value','自我评价';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A15").Value','手机';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A16").Value','家庭地址';
EXEC @hr = sp_OASetProperty @objSheet,'Range("A17").Value','通讯地址';

EXEC @hr = sp_OASetProperty @objSheet,'Range("B2").Value','姓名';
EXEC @hr = sp_OASetProperty @objSheet,'Range("B3").Value','名族';
EXEC @hr = sp_OASetProperty @objSheet,'Range("B4").Value','籍贯';
EXEC @hr = sp_OASetProperty @objSheet,'Range("B5").Value','毕业学校';
EXEC @hr = sp_OASetProperty @objSheet,'Range("B6").Value','学历';
EXEC @hr = sp_OASetProperty @objSheet,'Range("B7").Value','外语等级';

EXEC @hr = sp_OASetProperty @objSheet,'Range("D2").Value','性别';
EXEC @hr = sp_OASetProperty @objSheet,'Range("D3").Value','政治面貌';
EXEC @hr = sp_OASetProperty @objSheet,'Range("D6").Value','学制';

EXEC @hr = sp_OASetProperty @objSheet,'Range("F2").Value','出生年月';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F3").Value','身高';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F4").Value','所在地';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F5").Value','专业';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F6").Value','毕业时间';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F15").Value','Email';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F16").Value','家庭电话';
EXEC @hr = sp_OASetProperty @objSheet,'Range("F17").Value','邮编';

EXEC @hr = sp_OASetProperty @objSheet,'Range("H3").Value','体重';


EXEC @hr = sp_OAMethod @objSheet,'Range("C4:E4").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("C5:E5").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G2:I2").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G4:I4").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G5:I5").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G6:I6").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("E7:I7").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B8:I8").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B9:I9").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B10:I10").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B11:I11").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B12:I12").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B13:I13").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B14:I14").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B15:E15").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B16:E16").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("B17:E17").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G15:I15").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G16:I16").Merge';
EXEC @hr = sp_OAMethod @objSheet,'Range("G17:I17").Merge';

EXEC @hr = sp_OASetProperty @objSheet,'Rows("8:14").RowHeight',80;
EXEC @hr = sp_OASetProperty @objSheet,'Range("A1:I17").Borders.LineStyle',1;
EXEC @hr = sp_OAMethod @objWorkbook,'Close(false)';
EXEC @hr = sp_OAMethod @objExcel,'Quit';
EXEC @hr = sp_OADestroy @objWorkbooks;
EXEC @hr = sp_OADestroy @objExcel;

/*
EXEC @hr = sp_OAMethod @objSheet,'Range("A1:E2").Copy';
EXEC @hr = sp_OAMethod @objSheet,'Range("K1").PasteSpecial';
EXEC @hr = sp_OASetProperty @objExcel,'CutCopyMode','False';

EXEC @hr = sp_OAMethod @objSheet,'Range("A2").Insert';
EXEC @hr = sp_OAMethod @objSheet,'Columns("A1").Insert';

EXEC @hr = sp_OAMethod @objSheet,'Range("A1:B10").Select';
EXEC @hr = sp_OASetProperty @objExcel,'Selection.NumberFormatLocal','@';

EXEC @hr = sp_OAMethod @objSheet,'UsedRange',@objRange output;
EXEC @hr = sp_OAGetProperty @objRange,'Rows.Count',@A output
EXEC @hr = sp_OAGetProperty @objRange,'Columns.Count',@A output
EXEC @hr = sp_OAGetProperty @objSheet,'Range("A65536").End(xlUp).Row',@A output
*/