owc

 设置第一行数据列为绿色
 .Range(.Cells(1,1), .Cells(1, iCols)).Interior.Color = "#008b8b"
修改栏位时，该栏位颜色变化
Sub SP0_SheetChange(Sh, SpreadSheetEventInfo)
   Dim objRngCell
   Dim objRng
   Dim varRowNum
   Dim i
   Dim j
    
     For j = 1 To Form1.SP0.Selection.Columns.Count Step 1
      Set objRng = Form1.SP0.Selection.Columns(j)
       For i = 1 To objRng.Rows.Count Step 1
        Set objRngCell = objRng.Rows(i)
         objRngCell.Interior.ColorIndex = 3
       Next
     Next
   End Sub

function window.onload()
  {
      SPHTML="<%=str_spreadsheet_para%>";
            Form1.SP0.DataType = "HTMLData";
            Form1.SP0.HTMLData =SPHTML;
           
            if(SPHTML !="")
            {
                FormatSheet(Form1.SP0,2,1,1);
            }  
  }  

<script language="vbscript">
     Function FormatSheet(SpreadSheet1,FREEZEPANESLocation,REPORT_HEIGHT,REPORT_WIDTH)
 
    If REPORT_HEIGHT<> "" and REPORT_WIDTH <>"" Then 
     SpreadSheet1.Width = REPORT_WIDTH
     SpreadSheet1.Height= REPORT_HEIGHT
    End If
  
    Dim iCols
    Dim RowCnt
    Dim i
    dim j
    
    With SpreadSheet1
     iCols = .ActiveSheet.UsedRange.Columns.Count
     RowCnt= .ActiveSheet.UsedRange.Rows.Count
        .Columns.AutoFit() '自动调整列宽
        .Range(.Cells(1,1), .Cells(1, iCols)).Interior.Color = "#000000"  
       
         For j = 1 To iCols step 1 
                            Spreadsheet1.Columns(j).HorizontalAlignment =Spreadsheet1.Constants.xlHAlignLeft                          
                     Next     

'==============================================================================================================
  allRow= .ActiveSheet.Rows.Count
  
  Set ssConstants = Spreadsheet1.Constants
  
             For i = 1 To RowCnt step 1
                   For j = 1 To iCols step 1
                 .ActiveSheet.Range(.Cells(i,j)).Borders.Weight = ssConstants.owcLineWeightMedium'加上边框
             Next
       Next  
                     Spreadsheet1.Columns(1).ColumnWidth = 7
      Spreadsheet1.Columns(2).ColumnWidth = 15
      Spreadsheet1.Columns(5).NumberFormat="yyyy-m-d"
      Spreadsheet1.Columns(6).NumberFormat="@"
      
      
          
'------------------------------------------------------------------------锁定行VS列-----------------------------    
       Spreadsheet1.ActiveSheet.Cells.Locked = False
    Spreadsheet1.ActiveSheet.Protection.Enabled = True
    Spreadsheet1.Rows(1).Locked = True 
    
  End With 
  END FUNCTION
  
                       
'---------------------------------------------------------------------------------------------------------------
   Sub vbsUploadXls(hnd)    
    Dim objDom
    Dim objDomDs
    Dim objDomTbl
    Dim objDomField
    Dim objDomPI
    Dim i
    dim j
    Dim row
    Dim col
    Dim item
    Dim isEmptyLine
    
    Set objDom = CreateObject("Microsoft.XMLDOM")
    objDom.preserveWhiteSpace = True
    Set objDomPI = objDom.createProcessingInstruction("xml", "version='1.0' standalone='yes'")

    Set objDomDs = objDom.createElement("CommitGap")
    Call objDom.appendChild(objDomDs)
   
    row = Form1.SP0.ActiveSheet.UsedRange.Rows.Count
    col = Form1.SP0.ActiveSheet.UsedRange.Columns.Count
  
    
    if (row > 1) Then
    For i = 2 To row step 1 
    
     isEmptyLine = true
     for j = 1 to col step 1
      if Form1.SP0.Cells(i,j).Value <> "" then
       isEmptyLine = false
      end if
     Next
     if isEmptyLine = false then
     
     
      Set objDomTbl = objDom.createElement("DetailInfor")
       for j = 1 to col step 1
           Set objDomField = objDom.createElement("_" & CStr(Form1.SP0.Cells(1,j).Value))
           objDomField.Text = CStr(Form1.SP0.Cells(i*1,j).Value)
       Call objDomTbl.appendChild(objDomField)
       
          Next
      Call objDomDs.appendChild(objDomTbl)
     end if
    Next
    End IF 
      
    hnd.value = Replace(Replace(objDom.XML, "<", "{["), ">", "]}")
   Set objDom = Nothing
   
   End Sub
   
   Function getRow(row,col)
   Dim RowCnt
   Dim iCols
   With Form1.SP0
   iCols = .ActiveSheet.UsedRange.Columns.Count
   RowCnt= .ActiveSheet.UsedRange.Rows.Count
   row.value= Cstr(RowCnt)
         col.value= Cstr(iCols)

   End With
  
  END FUNCTION 
  </script>