vbs : Format a Range of Cells

Excel 国产化为 ET 

先测试一下 test.vbs

On Error Resume Next
' try to connect to et or excel
Set 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 If
Else
	WScript.Echo "Excel.Application"
End If

On 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 Cells

Set objE = CreateObject("ET.Application")

objE.Visible = True
objE.Workbooks.Add

objE.Cells(1, 1).Value = "Name"
objE.Cells(1, 1).Font.Bold = TRUE
objE.Cells(1, 1).Interior.ColorIndex = 30
objE.Cells(1, 1).Font.ColorIndex = 2
objE.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 = 14

Set objRange = objE.Range("A2","A5")
objRange.Interior.ColorIndex = 36
objRange.Style = "Percent"

Set objRange = objE.ActiveCell.EntireColumn
objRange.AutoFit()

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