vb 读取txt内容 输入excel

我将pdf的表格转化为txt格式，想要通过编写宏来录入到excel
每个单元格的内容在txt里面中间隔了一行

换行使用的正则表达式已经编写了一段函数，如下：
Private Function isWbsNo(ByVal strInput As String) As Boolean

Dim rg As New RegExp
Dim ptr As String
ptr = "^\d{1}$|^\d{1}-\d{1,2}$|^\d{1}+-\d{1,2}-\d{1,2}$|^\d{1}+-\d{1,2}-\d{1,2}-\d{1,2}$"
rg.Pattern = ptr
isWbsNo = rg.Test(strInput)

End Function
希望知道怎么编写的大神帮帮忙~这个真的很重要！！！

你要定义对象，再创建对象才能操作excel的。

<pre>用commondialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 <br><br>'添加command控件一个 msflexgrid控件一个 <br>private sub command1_click() <br>on error resume next <br>dim fileadd as string <br>commondialog1.showopen <br>commondialog1.filter = "xls文件(*.xls)|*.xls" '选择你要的文件 <br>fileadd = commondialog1.filename <br>mshflexgrid1.redraw = false '关闭表格重画，加快运行速度 <br>set xlapp = createobject("excel.application") '创建excel对象 <br>set xlbook = xlapp.workbooks.open(fileadd) '打开已经存在的excel工件簿文件 <br>xlapp.visible = true '设置excel对象可见（或不可见） <br>set xlsheet = xlbook.worksheets("sheet1") '设置活动工作表 <br><br>for r = 0 to mshflexgrid1.rows - 1 '行循环 <br>for c = 0 to mshflexgrid1.cols - 1 '列循环 <br>mshflexgrid1.row = r <br>mshflexgrid1.col = c <br>xlbook.worksheets("sheet1").cells(r + 1, c + 1) = mshflexgrid1.text '保存到excel <br>next c <br>next r <br><br><br>mshflexgrid1.redraw = true <br><br>xlapp.displayalerts = false '不进行安全提示 <br>'set xlsheet = nothing <br>'set xlbook = nothing <br>'xlapp.quit <br>'set xlapp = nothing <br>end sub</pre>

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息