- 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
- 弹出窗口 "将第" & useb1 & "张表中的前" & sjls & "列的内容按" & scls & "栏输出到第" & useb2 & "张表"
- 注释: MessageBox "数据列数:" & sjls & " 分栏数:" & scls
- 调用 Office.OpenXls(form1.InputBox1.Text)
- 注释:hsyl原数据的行数 lsyl原数据的列数
- 注释:hssc输出数据的行数 lssc输出数据的列数
- 注释:如果原数据有标题行,且要输出标题行
- 如果 form1.CheckBox2.value = 1 并且 form1.CheckBox1.value = 1 则
- 令 btcf = 1
- 令 lssc = 1
- 循环当 btcf <= scls 时
- 令 bt = 1
- 循环当 bt <= sjls 时
- 令 usetex = Office.ReadXls(useb1,1,bt)
- 调用 Office.WriteXls(useb2,1,lssc,usetex)
- 令 lssc = lssc + 1
- 令 bt = bt + 1
- 循环结束
- 令 btcf = btcf + 1
- 循环结束
- 条件结束
- 如果 form1.CheckBox2.value = 1 并且 form1.CheckBox1.value = 1 则
- 令 hssc = 2
- 令 HSYL = 2
- 否则如果 form1.CheckBox2.value = 1 并且 form1.CheckBox1.value = 0 则
- 令 hssc = 1
- 令 HSYL = 1
- 否则如果 form1.CheckBox2.value = 0 并且 form1.CheckBox1.value = 1 则
- 令 hssc = 1
- 令 HSYL = 2
- (语句无法识别,可能有错误): Else form1.CheckBox2.value = 0 and form1.CheckBox1.value = 0
- 令 hssc = 1
- 令 HSYL = 1
- 条件结束
- 令 lssc = 0
- 循环当 HSYL <= 50 时
- 令 LSYL = 1
- 循环当 LSYL <= sjls 时
- 令 usetex = Office.ReadXls(useb1,HSYL,LSYL)
- 如果 lssc = sjls * scls 则
- 令 hssc = hssc + 1
- 令 lssc = 1
- 否则
- 令 lssc = lssc + 1
- 条件结束
- 调用 Office.WriteXls(useb2,hssc,lssc,usetex)
- 令 LSYL = LSYL + 1
- 循环结束
- 令 HSYL = HSYL + 1
- 循环结束
- Office.CloseXls()
- 弹出窗口 "恭喜,数据生成完毕!"
- (语句无法识别,可能有错误): End Event