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")