16,554
社区成员
发帖
与我相关
我的任务
分享vb.net中操作exce中的find函数，里面的参数怎么填？
如下：我的写法
Dim k As String
k = Appworksheet.Range("B:C").Find("A", LookIn:=xlValues, LookAt:=xlWhole).Address
MsgBox(k)
可是软件会报错。查了好久百度，没找到结果。
Dim k As String
k = Appworksheet.Range("B:C").Find("A", LookIn:=xlValues, LookAt:=xlWhole).Address
MsgBox(k)
可是软件会报错。查了好久百度，没找到结果。
...全文
请发表友善的回复…
发表回复
luzhipeng81 2017-09-24
- 打赏
- 举报
可以这么做，在excel录制的宏里面，选中xlvalues，单击鼠标右键，选择“定义”，可以看到xlvalues在excel里面定义的值，直接用这个值替换掉程序里的参数就可以
例如：Cells.Find(What:="12", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
可以写成：
Cells.Find("12", 0，-4123，……).Activate
leon51 2017-09-18
- 打赏
- 举报
应该大概这样吧 .
xlsapp.WorksheetFunction.find（....）
shoppo0505 2017-09-18
- 打赏
- 举报
错误提示是什么?
xlValues, xlWhole是什么鬼？你定义了没有？
