在word中VBA打开excel文件查找记录为何不能从下往上查找？

茹菓 · 发表于 2021-7-25 15:52

请问一个困扰我蛮久的问题：在word中VBA打开excel文件查找记录为何不能从下往上查找？试过了查找语句在excel文件中使用是可以正常从下往上查找的，但是在word中使用就失效了。怎样才能实现word中引用excel的查找能从下往上找呢？还有Rng这个变量为什么不能定义为rang对象？这在excel是正常的，在word中引用就出错。谢谢。

蓝桥玄霜 · 发表于 2021-7-25 16:26

Set Rng = mysheet.[a:a].Find(a1, , , 1)

pc087 · 发表于 2021-7-25 17:53

把xlwhole改1，xlPrevious改2，因为你没有添加Excel引用，Word.Application里没有xlwhole和xlPrevious的枚举变量，程序运行当然出错啦

pc087 · 发表于 2021-7-25 17:56

其次不能Dim Rng As Range,WordVBA也有Range对象的，Dim Rng As Range在word这么定义就不是ExcelVBA里的Range了

茹菓 · 发表于 2021-7-25 19:52

蓝桥玄霜发表于 2021-7-25 16:26
Set Rng = mysheet.[a:a].Find(a1, , , 1)

谢谢版主关注，不过照版主修改还是没解决问题，而且容易卡住，有时文档1-2分钟没响应。按word表中预设的邓XX按从下往上查找，最近的一次记录的日期应该是2021/7/10，但找到的结果总是2021/5/4。

茹菓 · 发表于 2021-7-25 19:56

pc087 发表于 2021-7-25 17:56
其次不能Dim Rng As Range,WordVBA也有Range对象的，Dim Rng As Range在word这么定义就不是ExcelVBA里的Ran ...

谢谢。exceal和word的rang对象的确是不一样。

zldccmx · 发表于 2021-7-25 21:22

试试

Private Sub CommandButton1_Click()
Dim Rng, Tb As Table, Arr, F As Boolean
Set Tb = ThisDocument.Tables(1)
a1 = Tb.Cell(1, 2).Range.Text
a1 = Left(a1, Len(a1) - 2)
Set Rng = GetObject(ThisDocument.Path & "\工作簿1.xlsx")
Arr = Rng.worksheets("Sheet1").usedrange
F = False
For i = 1 To UBound(Arr)
If Arr(i, 1) = a1 Then
F = True
Exit For
End If
Next
If F Then
Tb.Cell(1, 4).Range.Text = Arr(i, 3) '性别
Tb.Cell(1, 6).Range.Text = Arr(i, 4) & Arr(i, 5) '年龄+单位
Tb.Cell(1, 8).Range.Text = Arr(i, 6) 'ABO
Tb.Cell(1, 10).Range.Text = Arr(i, 7) 'RH
Tb.Cell(2, 2).Range.Text = Format(Arr(i, 2), "yyyy年m月d日") '日期
Else
MsgBox "excel表格中没找到这个人的信息，请先在excel文件里输入再重新导入。"
End If
Set Rng = Nothing
End Sub

复制代码

茹菓 · 发表于 2021-7-25 22:13

zldccmx 发表于 2021-7-25 21:22
试试

真的很厉害，VBA另外一种解决方式。得到的记录和原来一样。
把循环改成这样就完全符合我的要求了，得到的就是最下面的符合要求的记录了：
For i = UBound(Arr) To 1 Step -1
      If Arr(i, 1) = a1 Then
         F = True
         Exit For
      End If
Next

		自动登录	找回密码
密码			免费注册

[求助] 在word中VBA打开excel文件查找记录为何不能从下往上查找？

评分

最新热点 /1