实现将word中题目转换到excel表格中 VBA代码

来源:互联网 时间:2016-01-03

学姐给我们一次机会,将word中的选择题题干、及选项A、B、C、D分别放到成excel表格中的几列中。673个题,俩人每人300多个,当时我看了就晕了,一个题需要复制五次,分别粘贴到五个单元格,那得弄到什么时候啊!这时候看到青峰的复制方法很好,先将题目选中足够多的条数,在复制粘贴到excel表格中,这样它们仍然会是一道题占一个表格,而且题目会完全显现出来,题目长的还会自动多行显示,感觉这方法还不错。

后来许德鹏来想了一个办法,用vb自己编写代码先将每道题目转换成一行,让后在转换成excel表格,这样比较省事,我用自己的办法花了2个小时将自己的那部分弄完了,德鹏编写的代码也能实现将一道题用一行来显示了,只是操作的过程中还有些需要改动的地方。越发的发现没有我们做不到的,只有想不到的。vb是足够强大的,只要你想到了让它实现什么功能,它都能实现。

顺便看一下自己编写的"将txt文本中每道题的题目、选项转黄成一行显示"的代码吧!窗体中添加一个命令按钮!

Private Sub cmdChange_Click()

Dim str1 As String

Dim str2 As String

Open "e:\ww.txt" For Input As #1 '打开e盘中的ww.txt文件(源文件),读取其中数据

Open "e:\x.txt" For Output As #2 '打开e盘中的x.txt文件(目标文件),目标文件会自动建立,并向其中写入数据

Dim topic As Integer '定义topic代表题目

For topic = 1 To 10

Line Input #1, str1 '整行读入ww.txt文件中的数据

Line Input #1, str2 '整行读入ww.txt文件中的数据

Print #2, str1 & str2 '向目标文件中写入读入的数据

Next topic

End Sub

应该感谢师姐给我们提供这次机会,增加了我们的信心。做任何事情都应该从中获得收获!

相关阅读:
Top