dim exapp as excel.application;
dim exbook as excel.workbook ;
dim exsheet as excel.worksheet;
dim exrange as excel.range;

    exapp.visible=true;
  exbook=exapp.workbooks.add;
    exsheet=exbook.sheets(n);
  exsheet.cells(row,col)=5;
    exsheet.range(cells,cells).font ;
  exsheet.range(cells,cells).font.colorindex=3;
  exsheet.range(cells,cells).Borders.LineStyle=1;
  exsheet.range(cells,cells).EntireColumn.AutoFit;
  exsheet.range(cells,cells).merge ;
  exsheet.range(cells,cells).HorizontalAlignment=3;
  exSheet.PageSetup.Orientation = 2;

    exsheet.saveas("文件名");
  
  exsheet=nothing;
  exbook.close;
  exbook=nothing;
  exapp.quit;
  exapp=nothing;