金格office控件在js中对vba的操作

1. 使用js操作vba时，必须在使用前书写webform.WebOffice.Active();后面的vba语句才会生效执行。
2. 调用excel中的宏命令语句 var cells = webform.WebOffice.WebObject.Application.Run("hong"); 如需获取宏命令的返回值，则必须使用如下格式：

   Function hong()
       '圈示无效数据并返回无效单元格
       Dim i As Integer, tem As String
       For i = 1 To Worksheets.Count
           '撤销工作表保护
           Sheets(i).Unprotect ("123")
           
           Dim r As Range, s As String, n As Long
           Sheets(i).CircleInvalid
           On Error Resume Next
           For Each r In Sheets(i).Cells.SpecialCells(xlCellTypeAllValidation)
               If Not r.Validation.Value Then s = s & "," & r.Address: n = n + 1
           Next
           
           If (s <> "") Then
               Set r = Range(Mid(s, 2))
               r = ""
               tem = tem + CStr(r.Address) + "|"
           End If
           'MsgBox tem
           '保护工作表
           Sheets(i).Protect ("123")
       Next i
   
   
       'MsgBox tem
       hong = tem
       
       
   End Function
   

   注：宏命令必须使用Function来声明，获取返回值的关键是hong = tem这一句，即宏名称="返回值"。
3. 为单元格设置背景颜色：webform.WebOffice.WebObject.Application.Sheets(1).Range(“A1”).Interior.ColorIndex=0，0代表无色，3代表红色等等。
4. 获取单元格内容：var val = webform.WebOffice.ActiveDocument.Application.Range("C8").Text;
5. 选中单元格：webform.WebOffice.ActiveDocument.Application.Range("D8").Select;