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!
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
