vbs : Format a Range of Cells

最新推荐文章于 2025-03-21 10:10:24 发布

转载最新推荐文章于 2025-03-21 10:10:24 发布 · 1.2k 阅读

文章标签：

#vbs #WPS #ET

Windows 专栏收录该内容

15 篇文章

订阅专栏

本文介绍如何使用VBScript脚本语言来控制ET和Excel应用，包括启动应用程序、设置单元格格式等操作。提供了具体示例代码，展示了不同版本WPS中对象创建的区别。

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