excel - 带有 VBScript 的表格样式

Question

有没有办法用 VBScript 设置表格样式？我在网上找到的所有解决方案都是针对 VBA 的。

例如，我在这里尝试了解决方案 Excel Macro - Select all cells with data and format as table使用以下代码

Set objExcel = CreateObject("Excel.Application")
Dim tbl
Set tbl = objWorkbook.ListObjects.Add(xlSrcRange, objWorkbook.Sheets("101").Range("$A$1:$C$26"), , xlYes)
tbl.TableStyle = "TableStyleLight1"

但我得到这个错误

Microsoft VBScript runtime error: Object doesn't support this property or method: 'objWorkbook.ListObjects'

(如果您在 exceljs 中有解决方案，那就更好了)

Answer 1

我发现了一些你可以使用的东西。来自Using Styles to Dress Up Your Worksheets in Excel 2007 .我所做的是将它从 VBA 转换为 VBScript，这真的不难。

Sub ListStyles()
    Dim objStyle
    Dim objCellRange
    Dim lngCount
    Dim objSheet
    Set objSheet = ThisWorkbook.Worksheets("Config - Styles")
    With objSheet
        lngCount = objSheet.UsedRange.Rows.Count + 1
        For Each objStyle In ThisWorkbook.Styles
            On Error Resume Next
            Set objCellRange = Nothing
            Set objCellRange = Intersect(objSheet.UsedRange, objSheet.Range("A:A")).Find(objStyle.Name, _
            objSheet.Range("A1"), xlValues, xlWhole, , , False)
            If objCellRange Is Nothing Then
                lngCount = lngCount + 1
                .Cells(lngCount, 1).Style = objStyle.Name
                .Cells(lngCount, 1).Value = objStyle.NameLocal
                .Cells(lngCount, 2).Style = objStyle.Name
            End If
        Next
    End With
End Sub

要进行设置，请双击 Sheet1 选项卡并将其重命名为“配置 - 样式”。添加上面的代码，然后运行脚本。你最终得到的是: