[已解决]只运行excel中的vba代码，删除word文档中的所有图像和表格

1261181315a

当 excel中运行代码 处理对象为源数据.doc所需时间比运行代码处理对象 为目标数据.doc所用时间长很多（二者 区别主要在于前者文档有图表，后者没有图表）。因而，我考虑的是能否在excel中的vba中直接加一段代码删除掉（或者代码执行时直接跳过）所有的表格和图像，这样通过验证可大大缩短运行时间。首先感谢先前dsmch老师帮忙写的代码。此刻还希望高人们帮忙解决下这个难题。谢谢啦！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-1-22 19:46

执行代码2，打开源数据.doc 并没有结果，改为数组查找

1. Sub Macro1()
   
2. t = Timer
   
3. On Error Resume Next
   
4. Set wd = CreateObject("Word.Application")
   
5. s = 2
   
6. With wd.Documents.Open(ThisWorkbook.Path & "\源数据.doc") '此处将目标数据改为源数据则运行时间很长
   
7.     x = Split(.Range.Text, vbCr)
   
8.     For i = 0 To UBound(x) - 1
   
9.         If x(i) Like "*基站：*" Then
   
10.             s = s + 1
    
11.             Cells(s, 1) = Split(x(i), "：")(0)
    
12.             Cells(s, 2) = Mid(Split(x(i + 1), "E：")(0), 4)
    
13.             Cells(s, 3) = Replace(Split(x(i + 1), "E：")(1), "）", "")
    
14.         End If
    
15.     Next
    
16.     .Close False
    
17. End With
    
18. wd.Quit
    
19. Cells(2, 4) = Timer - t
    
20. End Sub

复制代码

跳转到最佳答案楼层

dsmch

执行代码2，打开源数据.doc 并没有结果，改为数组查找

1. Sub Macro1()
   
2. t = Timer
   
3. On Error Resume Next
   
4. Set wd = CreateObject("Word.Application")
   
5. s = 2
   
6. With wd.Documents.Open(ThisWorkbook.Path & "\源数据.doc") '此处将目标数据改为源数据则运行时间很长
   
7.     x = Split(.Range.Text, vbCr)
   
8.     For i = 0 To UBound(x) - 1
   
9.         If x(i) Like "*基站：*" Then
   
10.             s = s + 1
    
11.             Cells(s, 1) = Split(x(i), "：")(0)
    
12.             Cells(s, 2) = Mid(Split(x(i + 1), "E：")(0), 4)
    
13.             Cells(s, 3) = Replace(Split(x(i + 1), "E：")(1), "）", "")
    
14.         End If
    
15.     Next
    
16.     .Close False
    
17. End With
    
18. wd.Quit
    
19. Cells(2, 4) = Timer - t
    
20. End Sub

复制代码