VB读取WORD表单元内问题
非常诡异啊,撒了泡尿回来,之前还能读取的就不行,哪里错了?
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
txtIn.Text = ""
With cdgImput
.DialogTitle = "导出文件路径"
.Filter = "导出文件(*.doc)|*.doc|所有文件(*.*)|*.*"
.ShowOpen
txtIn.Text = .FileName
strFileName = .FileTitle
End With
Set WordApp = CreateObject("Word.Application")
Set WordDoc = Documents.Open(txtIn.Text)
WordApp.Visible = True
WordDoc.Activate
With Selection.Tables(1)'运行到这里错误
MsgBox .Cell(2, 1).Range.Text
End With
集合所要求的成员不存在,可是表明明就在的，刚才还能读,没对表做任何其他操作
是否有其他打开或使用？
也可能系统不稳，重启可能就好了
是不是word开着?
重启过多次，其他WORD也没开着，实在是搞不懂
我测试了，你没有在word文件中选中表导致的，选中就不会提示
问题出在：With Selection.Tables(1)
其实，操作WORD无需引用对象，直接参考以下代码即可：
Dim wd As Object
Set wd = GetObject("d:\xx.doc")
再通过wd.tables(1)操作表。
如需要阅读该回复，请登录或注册CSDN!
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
各位帮忙看看
VB调用Usb7kC.dll
程序是一个桌球坊的用于控制台桌的开关灯
原先用的是PC灯控卡，现在增加了一个USB的控制卡
从33号以后就是USB卡控制的，相应的33桌对应的是USB控制卡的1号线路
......
