vba 获取指定word内容（在不打开word的情况下）

cjg2010

在excel编写vba  获取d：\1.doc 内容   将第一个表格table（1） 整体复制到 剪切板clipboard 下，方便后续使用  （在不打开word的情况下）{:091:}

hwc2ycy

1. Sub test()
   
2.     Dim objWord As Object
   
3.     Set objWord = CreateObject("C:\Users\bb\Desktop\doc1.docx")
   
4.     With objWord
   
5.         .tables(1).Range.Copy
   
6.         Range("a3").Activate
   
7.         ActiveSheet.Paste
   
8.         .Close False
   
9.     End With
   
10.     Set objWord = Nothing
    
11.     MsgBox "ok"
    
12. End Sub

复制代码

hwc2ycy

文档路径换成你的。

cjg2010

hwc2ycy 发表于 2013-10-8 23:11

运行到“ .tables(1).Range.Copy” 的时候报错了~~

这是为什么呢?

hwc2ycy

你把你用的代码和WORD文档打包上来我看看。
我用2010测试的，没问题。

cjg2010

hwc2ycy 发表于 2013-10-9 16:16
你把你用的代码和WORD文档打包上来我看看。
我用2010测试的，没问题。

上传了  我用的是office2003   多谢  麻烦您了！！{:021:}

hwc2ycy

cjg2010 发表于 2013-10-9 20:54
上传了  我用的是office2003   多谢  麻烦您了！！

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim objWord As Object
   
4. 
   
5.     On Error Resume Next
   
6.    
   
7.     Set objWord = CreateObject("d:\1.doc")
   
8.     If Err.Number = 0 Then
   
9.         Debug.Print "DOC 对象 创建完成"
   
10.     Else
    
11.         Debug.Print "Doc 对象 错误"
    
12.         Exit Sub
    
13.     End If
    
14. 
    
15.     With objWord
    
16.         Debug.Print "DOC中表格的数量:" & .Tables.Count
    
17.         .Tables(1).Range.Copy
    
18.         
    
19.         If Err.Number = 0 Then
    
20.             Debug.Print "表格复制完成"
    
21.         Else
    
22.             Debug.Print "表格访问失败"
    
23.             .Close False
    
24.             Exit Sub
    
25.         End If
    
26. 
    
27.         Range("a3").Activate
    
28.         ActiveSheet.Paste
    
29.         .Close False
    
30.     End With
    
31.    
    
32.     Set objWord = Nothing
    
33.     MsgBox "ok"
    
34. End Sub
    

复制代码

你运行完后，把立即窗口截图传上来看看。

cjg2010

hwc2ycy 发表于 2013-10-9 21:22
你运行完后，把立即窗口截图传上来看看。

单步运行了 其中2个IF分支是这样运行的

cjg2010

hwc2ycy 发表于 2013-10-9 21:22
你运行完后，把立即窗口截图传上来看看。

hwc2ycy

Debug.Print "DOC中表格的数量:" & .Tables.Count
这步的没有反应了。