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