用VB查询excel表格数据

答案:3 悬赏:40

解决时间 2021-03-21 00:28

提问者网友：南佳人～
2021-03-20 10:13

我在D盘有个Excel表格，里面有车子底盘号，型号，停放位置以及颜色的分类，现在我需要用VB的text1文本框输入底盘号，用命令按钮查询出它的其余属性并显示在text2里面，请问应该怎么编程呢？详细点行嘛？

最佳答案

二级知识专家网友：颜值超标
2021-03-20 10:30

public sub test()
dim dipan as string
dim shet as worksheet
dim f as worksheetfunction
set f=worksheetfunction
set shet=sheets("底盘表格名") '假设这个是你信息存的表格名字
dipan = text1.value
'比如底盘号在A列
if f.countif(shet.range("a:a",dipan)=0 then msgbox("无相应信息"):exit sub '确认底盘存在
rw = shet.range("a:A").find(dipan,lookat:=xlvalues,lookin:=xlwhole).row
'rw 就是底盘信息所在的行，你在按你需要的列取出相应的信息
msgbox(dipan & "在第 " & rw & " 行")

end sub

全部回答

1楼网友：狙击你的心
2021-03-20 13:09

可以调用excel数据表的find方法，也可以自己编一段程序找到底盘号所在行。然后，根据数据表结构，取同行的不同列的数据，显示出来就行了。

2楼网友：安稳不如野
2021-03-20 11:57

private sub command1_click() dim exapp as new excel.application dim exb as excel.workbook dim exsh as excel.worksheet dim ahha as integer dim rz() as string

ahha = 0

exapp.workbooks.open app.path & "\" & "停车券及咖啡申领" & ".xls" 'excel路径 set exb = exapp.workbooks(1) set exsh = exb.worksheets("免费咖啡申领")

for i = 1 to exsh.usedrange.rows.count for j = asc("b") to asc("b") if exsh.range(chr(j) & i) = text2.text) > 0 then usercard(0).caption = exsh.range(chr(j) & i).value msgbox "已领取！'"

ahha = 5

end if next j next i

if ahha = 0 then exsh.range("b" & exsh.usedrange.rows.count + 1) = text2.text

exapp.workbooks.close exapp.quit set exapp = nothing end sub

增加了一if语句，就可以写入没有的了。

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！