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

来源：互联网发布：海马玩安卓模拟器 mac 编辑：程序博客网时间：2024/04/29 09:44

使用js操作vba时，必须在使用前书写webform.WebOffice.Active();后面的vba语句才会生效执行。

调用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这一句，即宏名称="返回值"。

为单元格设置背景颜色：webform.WebOffice.WebObject.Application.Sheets(1).Range(“A1”).Interior.ColorIndex=0，0代表无色，3代表红色等等。
获取单元格内容：var val = webform.WebOffice.ActiveDocument.Application.Range("C8").Text;
选中单元格：webform.WebOffice.ActiveDocument.Application.Range("D8").Select;

0 0