说白点,就是如何设置excel的下拉列表框。。用javascript如何控制

解决方案 »

  1.   

    改成js即可
    关键是 range.Validation.Add 3, 1, 1, "=$A$1:$A$10"Set oXSL    = CreateObject("Excel.Application")
    Set oBook   = oXSL.Workbooks.open("d:\b.xls")
    Set oSheet  = oBook.Worksheets(1)
    For i = 1 To 10
        oSheet.Cells(i,1) = i
    Next
    Set columnA = oSheet.Columns(1)
    columnA.Hidden = True
    Set range = oSheet.Cells(1, 2)
    range.Validation.Add 3, 1, 1, "=$A$1:$A$10"
    oXSL.Save
    oXSL.Quit
    Set oSheet  = Nothing
    Set oBook   = Nothing
    Set oExcel  = Nothing