将Excel数据分多栏输出

将Excel数据分多栏输出

运行环境：分辨率：1024x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.00.9460

@myztrhzxgx    2011/10/14

Event Form1.Button1.Click  
    //  sjls需要输出的数据列数   scls输入栏数  
    sjls = form1.ComboBox1.ListIndex + 1  
    scls = form1.ComboBox2.ListIndex + 2  
    useb1=form1.ComboBox3.ListIndex + 1  
    useb2=form1.ComboBox4.ListIndex + 1  
    MessageBox "将第"&useb1&"张表中的前"&sjls&"列的内容按"&scls&"栏输出到第"&useb2&"张表"  
//    MessageBox "数据列数：" & sjls & "   分栏数：" & scls  
    Call Plugin.Office.OpenXls(form1.InputBox1.Text)  
    //hsyl原数据的行数   lsyl原数据的列数  
    //hssc输出数据的行数 lssc输出数据的列数    
    //如果原数据有标题行，且要输出标题行  
    If form1.CheckBox2.value = 1 and form1.CheckBox1.value = 1 Then   
        btcf = 1  
        lssc = 1  
        While btcf <= scls  
            bt = 1  
            while bt<=sjls   
                usetex = Plugin.Office.ReadXls(useb1, 1, bt)  
                Call Plugin.Office.WriteXls(useb2, 1, lssc, usetex)  
                lssc=lssc+1  
                bt = bt + 1  
            Wend   
            btcf=btcf+1  
        Wend  
    End If  
    If form1.CheckBox2.value = 1 and form1.CheckBox1.value = 1 Then   
         hssc = 2  
         HSYL = 2  
    ElseIf form1.CheckBox2.value = 1 and form1.CheckBox1.value = 0 Then  
         hssc = 1  
         HSYL = 1  
    ElseIf form1.CheckBox2.value = 0 and form1.CheckBox1.value = 1 Then  
         hssc = 1  
         HSYL = 2  
    Else form1.CheckBox2.value = 0 and form1.CheckBox1.value = 0   
         hssc = 1  
         HSYL = 1  
    End If  
    lssc = 0  
    while HSYL<=50  
        LSYL = 1  
        While LSYL <= sjls  
            usetex = Plugin.Office.ReadXls(useb1, HSYL, LSYL)  
            if lssc = sjls * scls  
                hssc = hssc + 1  
                lssc = 1  
            Else   
                lssc=lssc+1  
            End If  
            Call Plugin.Office.WriteXls(useb2, hssc, lssc, usetex )  
            LSYL = LSYL + 1  
        Wend  
        HSYL = HSYL + 1  
    Wend  
    Plugin.Office.CloseXls   
    MessageBox "恭喜，数据生成完毕！"  
End Event