专家坐堂-请问一下在excel中搜索如何做,一直报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问一下在excel中搜索如何做,一直报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154010)

--  作者：tcmhl
--  发布时间：2020/9/1 8:50:00
--  请问一下在excel中搜索如何做,一直报错

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim bs As String
Dim n As Integer
Dim i As Integer
Dim R As String
Dim App As New MSExcel.Application
App.Visible = False
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

n = Tables("数据管理").Rows.Count
For i = 0 To n-1
bs = "[" & Tables("数据管理").Rows(i)("唯一标识") & "]"
R = Ws.UsedRange.Find(What:= bs).Row
messagebox.show(R)
Next

Wb.Close
App.Quit
messagebox.show("导入成功!","提示")
End If

--  作者：有点蓝
--  发布时间：2020/9/1 8:55:00
--
提示什么错误？

--  作者：tcmhl
--  发布时间：2020/9/1 9:41:00
--

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：菜单,导入坐标,Click
详细错误信息：
未将对象引用设置到对象的实例。

--  作者：有点蓝
--  发布时间：2020/9/1 9:46:00
--

试试
……
For i = 0 To n-1
bs = "[" & Tables("数据管理").Rows(i)("唯一标识") & "]"
dim rr = Ws.UsedRange.Find(What:= bs)
if rr isnot nothing
messagebox.show(rr.Address)
R = rr.Row
end if
Next

[此贴子已经被作者于2020/9/1 9:45:56编辑过]

--  作者：tcmhl
--  发布时间：2020/9/1 9:57:00
--
好了谢谢！