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