ScriptCode

复制代码 代码如下:

SetobjExcel=CreateObject("Excel.Application")

objExcel.Visible=True

objExcel.Workbooks.Add

objExcel.Cells(1,1).Value="Testvalue"

objExcel.Cells(1,1).Font.Bold=TRUE

objExcel.Cells(1,1).Font.Size=24

objExcel.Cells(1,1).Font.ColorIndex=3