vbs : Format a Range of Cells

来源：互联网发布：Linux持续ping命令编辑：程序博客网时间：2024/06/09 04:43

Excel 国产化为 ET

先测试一下 test.vbs

On Error Resume Next' try to connect to et or excelSet ExcelApp = GetObject(, "Excel.Application")If ExcelApp Is Nothing Then    Set ExcelApp = GetObject(, "KET.Application")    If ExcelApp Is Nothing Then        Set ExcelApp = GetObject(, "ET.Application")        If ExcelApp Is Nothing Then            MsgBox "Run Excel or Kingsoft ET first.", vbInformation, "Information"            WScript.Quit        Else        WScript.Echo "ET.Application"        End If    Else    WScript.Echo "KET.Application"    End IfElseWScript.Echo "Excel.Application"End IfOn Error Goto 0

WPS 2012 用 Set objE = CreateObject("ET.Application")

WPS 2013 用 Set objE = CreateObject("KET.Application")

国产软件真是多变啊！

例子来自 www.vbsedit.com

FormataRange.vbs 代码如下

' Format a Range of CellsSet objE = CreateObject("ET.Application")objE.Visible = TrueobjE.Workbooks.AddobjE.Cells(1, 1).Value = "Name"objE.Cells(1, 1).Font.Bold = TRUEobjE.Cells(1, 1).Interior.ColorIndex = 30objE.Cells(1, 1).Font.ColorIndex = 2objE.Cells(2, 1).Value = "1.0"objE.Cells(3, 1).Value = "0.2"objE.Cells(4, 1).Value = "0.03"objE.Cells(5, 1).Value = "0.004"Set objRange = objE.Range("A1","A5")objRange.Font.Size = 14Set objRange = objE.Range("A2","A5")objRange.Interior.ColorIndex = 36objRange.Style = "Percent"Set objRange = objE.ActiveCell.EntireColumnobjRange.AutoFit()

objE.ActiveWorkbook.SaveAs("D:\test1.xls")

0 0