[已解决]WORD与EXCEL交互使用。VBA法，l来来试试手啊!!!

1261181315a

   现使用字典等功能（Application.Max(d.keys)）查得到了最大值77，但是现在我想取得左端的数值3。我思路是通过字典功能（Application.Max(d.keys)）得到最大值77的位置，然后利用某个函数把77所在的地址（位置）表达出来，由于77与3所处的位置有一定的联系，最后将77与3写入EXCEL中。

最佳答案

月排行榜 / 总排行榜

dsmch

2015-5-24 06:56

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim i&, j%, k%, zf$, d
   
4. Set wd = CreateObject("Word.Application")
   
5. Set d = CreateObject("scripting.dictionary")
   
6. s = 2
   
7. With wd.Documents.Open(ThisWorkbook.Path & "\位置.doc")
   
8.     For i = 1 To .Tables(1).Rows.Count
   
9.         zf = Application.Clean(.Tables(1).Cell(i, 5).Range)
   
10.         For j = 2 To 3
    
11.             x = Val(Application.Clean(.Tables(1).Cell(i, j).Range))
    
12.             d(x) = i
    
13.         Next
    
14.     Next
    
15.     Cells(s, 2) = Application.Max(d.keys)
    
16.     n = d(Application.Max(d.keys))
    
17.     If n Mod 2 = 0 Then n = n - 1
    
18.     Cells(s, 3) = Application.Clean(.Tables(1).Cell(n, 1).Range)
    
19.     d.RemoveAll
    
20.     .Close False
    
21. End With
    
22. wd.Quit
    
23. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim i&, j%, k%, zf$, d
   
4. Set wd = CreateObject("Word.Application")
   
5. Set d = CreateObject("scripting.dictionary")
   
6. s = 2
   
7. With wd.Documents.Open(ThisWorkbook.Path & "\位置.doc")
   
8.     For i = 1 To .Tables(1).Rows.Count
   
9.         zf = Application.Clean(.Tables(1).Cell(i, 5).Range)
   
10.         For j = 2 To 3
    
11.             x = Val(Application.Clean(.Tables(1).Cell(i, j).Range))
    
12.             d(x) = i
    
13.         Next
    
14.     Next
    
15.     Cells(s, 2) = Application.Max(d.keys)
    
16.     n = d(Application.Max(d.keys))
    
17.     If n Mod 2 = 0 Then n = n - 1
    
18.     Cells(s, 3) = Application.Clean(.Tables(1).Cell(n, 1).Range)
    
19.     d.RemoveAll
    
20.     .Close False
    
21. End With
    
22. wd.Quit
    
23. End Sub

复制代码

dsmch

………………

zpy2

赞一个