我在word中想用vba查找某excel文件中sheet1中指定字，如果有则返回指定字，没有则显示“没有”。打不打开excel文件无所谓，请高手们指点
Sub test()
s = "指定字"
Set ep = CreateObject("excel.application")
Set bk = ep.workbooks.Open("d:\book1.xls")
Set t = bk.sheets("sheet1").Cells.Find(s)
If t Is Nothing Then s = "没有"
MsgBox s
Set t = Nothing
Set bk = Nothing
ep.Quit
Set ep = Nothing
End Sub追问
s = "指定字"
Set ep = CreateObject("excel.application")
Set bk = ep.workbooks.Open("d:\book1.xls")
Set t = bk.sheets("sheet1").Cells.Find(s)
If t Is Nothing Then s = "没有"
MsgBox s
Set t = Nothing
Set bk = Nothing
ep.Quit
Set ep = Nothing
End Sub追问
你好，可能是我没有说清楚呢，应该是如果有则返回指定字所在单元格的单元格所有内容，比如说我查找22，在excel中某个单元格内容是“年龄22”，则应该返回“年龄22”，而不是22。不好意思啊，我没有说清楚。如果您能帮我完成的话我会提高到100分，先谢谢你啊，朋友
追答If t Is Nothing Then s = "没有" else s=t.value
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-02-02
不用宏的办法：
在电子表中拷贝需要的数据。
在word中需要的地方粘贴为超级链接。
在电子表中拷贝需要的数据。
在word中需要的地方粘贴为超级链接。
