我在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中需要的地方粘贴为超级链接。