OrderItem.innerHTML+ = Trim(ExcelSheet.Cells(x,2).Value)

解决方案 »

  1.   

    啊!
    改一下
    OrderItem.innerHTML =OrderItem.innerHTML&Trim(ExcelSheet.Cells(x,2).Value)哎~~js习惯了,语法搞错……
      

  2.   

    倒!
    不是这样做的
    计算机处理这个while是非常快的
    虽然,的确是从第一个开始显示
    但是由于速度问题
    所以你只能看到最后一个。sub ys(x)
    if Trim(ExcelSheet.Cells(x,y).Value) = "" then 
       clearTimeout
       exit sub
    enf if
        OrderItem.innerHTML = Trim(ExcelSheet.Cells(x,2).Value)
        for y = 1 to count - 1
            if Trim(ExcelSheet.Cells(x,y).Value) <> "" then
               strSQL = strSQL & ExcelSheet.Cells(x,y).Value & ";"
            else
               strSQL = strSQL & ";"
            end if
         next
         x = x + 1
         y = 1
       settimeout("ys(x)",100)
    end sun没测试过。