VB操作Excel信息录入与查询

为了理解VB具体如何操作Excel，包括创建，打开，写入，读取等基本操作，闲暇之余编写测试，在此留以备用。

I.VB创建Excel表:
'定义Excel操作变量 Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '创建Excel进程，并打开目标Excel<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) xlBook.SaveAs "路径/<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名"

II.VB打开Excel表:
'定义Excel操作变量 Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '打开目标Excel<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open("路径/<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名") Set xlSheet = xlBook.Sheets(1) xlBook.Save

III.VB关闭Excel表:
'定义Excel操作变量 Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '已经打开目标Excel<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open("路径/<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名") Set xlSheet = xlBook.Sheets(1) xlBook.Save '<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>目标Excel<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> xlApp.Quit Set xlBook = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlSheet = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlApp = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a>

IV.VB写入Excel表:
'定义Excel操作变量 Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '打开目标Excel<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>并且写入 Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open(“路径/<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名") Set xlSheet = xlBook.Sheets(1) With xlSheet .Cells(1,1) = "A" .Cells(1,2) = "B" .Cells(1,3) = "C" End With xlBook.Save

V.VB读取Excel表:
'定义Excel操作变量 Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '定义用于保存Excel单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>的字符串 Dim xlString As String '定义整形变量用于保存Excel表的行数与列数 Dim xlNum,xlCol As Integer '打开目标Excel<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>并且读取保存Excel<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a> Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open("路径/<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名") Set xlSheet = xlBook.Sheets(1) '读取Excel表中记录行数 xlNum = xlSheet.UsedRange.Rows.Count '读取Excel表中记录列数 xlCol = xlSheet.UsedRange.Columns.Count '读取Excel表中i行j列单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a> xlString = Trim$(xlSheet.Cells(i,j)) xlBook.Save

VB操作Excel足彩信息录入与查询
创建VB应用程序，文件->新建工程->标准EXE，确认。

应用程序源码
Private Declare Function Se<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owPos& Lib "user32" (ByVal hwnd As Long,ByVal hWndInsertAfter As Long,ByVal X As Long,ByVal Y As Long,ByVal cx As Long,ByVal cy As Long,ByVal wFlags As Long) '定义Excel类 Dim xlApp As New Excel.Application '定义工作簿类 Dim xlBook As Excel.Workbook '定义工作表类 Dim xlSheet As Excel.Worksheet '定义<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 Dim xlFile As String '定义行列<a href="https://www.jb51.cc/tag/shuliang/" target="_blank" class="keywords">数量</a>名 Dim xlNum As Integer Dim xlCol As Integer '定义计数器 Dim i As Integer Dim j As Integer Dim m As Integer Dim n As Integer '定义判断符 Dim IsRepeat As Boolean '定义字符串 Dim strTemp(9999) As String '--------------------------------程序加载------------------------------------------ Private Sub Form_Load() xlFile = App.Path + "/football.xls" '判断是否打开并建立 If Dir(xlFile) <> "" Then Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open(xlFile) Set xlSheet = xlBook.Sheets(1) xlBook.Save '读取记录行数 xlNum = xlSheet.UsedRange.Rows.Count '读取记录列数 xlCol = xlSheet.UsedRange.Columns.Count '读取xlSheet中的行数 lblInfo.Caption = "目标表中共有" + Str(xlNum - 1) + " 条信息" '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>所有数据信息到<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>列表 For i = 0 To xlNum - 2 For j = 0 To xlCol - 1 strTemp(i) = strTemp(i) + Trim$(xlSheet.Cells(i + 2,j + 1)) + "," Next j Next i With lstInfo For n = 0 To xlNum - 2 .AddItem strTemp(n) Next n End With '<a href="https://www.jb51.cc/tag/shengcheng/" target="_blank" class="keywords">生成</a>按日期<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboDate .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>日期候选目录 For i = 2 To xlNum If Trim$(xlSheet.Cells(i,1)) <> "" Then IsRepeat = False '依次与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>进行对比 For j = 1 To i - 1 If Trim$(xlSheet.Cells(i,1)) = Trim$(xlSheet.Cells(j,1)) Then '若与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>重复,则重复判断符置为True IsRepeat = True End If Next j '对比结束若无重复,则<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>该项到候选目录 If IsRepeat = False Then .AddItem xlSheet.Cells(i,1) End If End If Next i End With '<a href="https://www.jb51.cc/tag/shengcheng/" target="_blank" class="keywords">生成</a>按公司<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboCompany .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>公司候选目录 For i = 2 To xlNum If Trim$(xlSheet.Cells(i,2)) <> "" Then IsRepeat = False '依次与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>进行对比 For j = 1 To i - 1 If Trim$(xlSheet.Cells(i,2)) = Trim$(xlSheet.Cells(j,2)) Then '若与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>重复,2) End If End If Next i End With '<a href="https://www.jb51.cc/tag/shengcheng/" target="_blank" class="keywords">生成</a>按主队<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboHome .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>主队候选目录 For i = 2 To xlNum If Trim$(xlSheet.Cells(i,3)) <> "" Then IsRepeat = False '依次与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>进行对比 For j = 1 To i - 1 If Trim$(xlSheet.Cells(i,3)) = Trim$(xlSheet.Cells(j,3)) Then '若与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>重复,3) End If End If Next i End With '<a href="https://www.jb51.cc/tag/shengcheng/" target="_blank" class="keywords">生成</a>按客队<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboGuest .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>主队候选目录 For i = 2 To xlNum If Trim$(xlSheet.Cells(i,6)) <> "" Then IsRepeat = False '依次与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>进行对比 For j = 1 To i - 1 If Trim$(xlSheet.Cells(i,6)) = Trim$(xlSheet.Cells(j,6)) Then '若与同列前面单元格<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>重复,6) End If End If Next i End With Else Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> ("指定文档不存在，新建到应用程序目录。") Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) With xlSheet .Cells(1,1) = "日期" .Cells(1,2) = "公司" .Cells(1,3) = "主队" .Cells(1,4) = "主队得分" .Cells(1,5) = "客队得分" .Cells(1,6) = "客队" .Cells(1,7) = "欧初胜" .Cells(1,8) = "欧初平" .Cells(1,9) = "欧初负" .Cells(1,10) = "欧终胜" .Cells(1,11) = "欧终平" .Cells(1,12) = "欧终负" .Cells(1,13) = "主初胜" .Cells(1,14) = "初和" .Cells(1,15) = "客初胜" .Cells(1,16) = "主终胜" .Cells(1,17) = "终和" .Cells(1,18) = "客终胜" .Cells(1,19) = "盘路" .Cells(2,1) = txtDate.Text .Cells(2,2) = txtCompany.Text .Cells(2,3) = txtHome.Text .Cells(2,4) = txtHome<a href="https://www.jb51.cc/tag/score/" target="_blank" class="keywords">score</a>.Text .Cells(2,5) = txtGuest<a href="https://www.jb51.cc/tag/score/" target="_blank" class="keywords">score</a>.Text .Cells(2,6) = txtguest.Text .Cells(2,7) = txtEroupPreWin.Text .Cells(2,8) = txtEroupPreDraw.Text .Cells(2,9) = txtEroupPreLose.Text .Cells(2,10) = txtEroupFinalWin.Text .Cells(2,11) = txtEroupFinalDraw.Text .Cells(2,12) = txtEroupFinalLose.Text .Cells(2,13) = txtHomePreWin.Text .Cells(2,14) = txtPreDraw.Text .Cells(2,15) = txtGuestPreWin.Text .Cells(2,16) = txtHomeFinalWin.Text .Cells(2,17) = txtFinalDraw.Text .Cells(2,18) = txtGuestFinalWin.Text .Cells(2,19) = txtPanlu.Text End With xlBook.SaveAs xlFile End If '<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>进程,<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>相关操作对象 xlApp.Quit Set xlBook = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlSheet = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlApp = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> End Sub '--------------------------------查看所有---------------------------------------- Private Sub btnShow_Click() xlFile = App.Path + "/football.xls" '判断是否打开并建立 If Dir(xlFile) <> "" Then Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open(xlFile) Set xlSheet = xlBook.Sheets(1) xlBook.Save '读取记录行数 xlNum = xlSheet.UsedRange.Rows.Count '读取记录列数 xlCol = xlSheet.UsedRange.Columns.Count '读取xlSheet中的行数 lblInfo.Caption = "目标表中共有" + Str(xlNum - 1) + " 条信息" '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>所有数据信息到<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>列表 For i = 0 To xlNum - 2 strTemp(i) = "" For j = 0 To xlCol - 1 strTemp(i) = strTemp(i) + Trim$(xlSheet.Cells(i + 2," Next j Next i With lstInfo .Clear For n = 0 To xlNum - 2 .AddItem strTemp(n) Next n End With Else Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> ("指定文档不存在，无法查看所有记录。") End If '<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>进程,<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>相关操作对象 xlApp.Quit Set xlBook = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlSheet = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlApp = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> End Sub '--------------------------------<a href="https://www.jb51.cc/tag/tianjiajilu/" target="_blank" class="keywords">添加记录</a>------------------------------------------ '读取<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>，<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>信息 Private Sub btnAdd_Click() '定义目标<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>和源<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>及路径 xlFile = App.Path + "/football.xls" '判断是否打开并建立 If Dir(xlFile) <> "" Then If txtDate.Text = "" And txtCompany.Text = "" And txtHome.Text = "" And txtHome<a href="https://www.jb51.cc/tag/score/" target="_blank" class="keywords">score</a>.Text = "" And txtGuest<a href="https://www.jb51.cc/tag/score/" target="_blank" class="keywords">score</a>.Text = "" And txtguest.Text = "" And txtEroupPreWin.Text = "" And txtEroupPreDraw.Text = "" And txtEroupPreLose.Text = "" And txtEroupFinalWin.Text = "" And txtEroupFinalDraw.Text = "" And txtEroupFinalLose.Text = "" And txtHomePreWin.Text = "" And txtPreDraw.Text = "" And txtGuestPreWin.Text = "" And txtHomeFinalWin.Text = "" And txtFinalDraw.Text = "" And txtGuestFinalWin.Text = "" And txtPanlu.Text = "" Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> ("<a href="https://www.jb51.cc/tag/tianjiajilu/" target="_blank" class="keywords">添加记录</a>失败，请输入任意有效数据值。") Else '可见开关 xlApp.Visible = True '<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>开关 xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False '打开目标<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>和源<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> Set xlBook = xlApp.Workbooks.Open(xlFile) '打开目标表 Set xlSheet = xlBook.Worksheets(1) '<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>记录<a href="https://www.jb51.cc/tag/shuliang/" target="_blank" class="keywords">数量</a> xlNum = xlSheet.UsedRange.Rows.Count '读取xlSheet中的行数 lblInfo.Caption = "目标表中共有" + Str(xlNum) + " 条信息" 'lblTitle.Caption = comboDate.Text + comboCompany.Text + comboHome.Text + comboGuest.Text '开关激活目标表,便眼观察 'xlSheet.Activate With xlSheet .Cells(xlNum + 1,1) = txtDate.Text .Cells(xlNum + 1,2) = txtCompany.Text .Cells(xlNum + 1,3) = txtHome.Text .Cells(xlNum + 1,4) = txtHome<a href="https://www.jb51.cc/tag/score/" target="_blank" class="keywords">score</a>.Text .Cells(xlNum + 1,5) = txtGuest<a href="https://www.jb51.cc/tag/score/" target="_blank" class="keywords">score</a>.Text .Cells(xlNum + 1,6) = txtguest.Text .Cells(xlNum + 1,7) = txtEroupPreWin.Text .Cells(xlNum + 1,8) = txtEroupPreDraw.Text .Cells(xlNum + 1,9) = txtEroupPreLose.Text .Cells(xlNum + 1,10) = txtEroupFinalWin.Text .Cells(xlNum + 1,11) = txtEroupFinalDraw.Text .Cells(xlNum + 1,12) = txtEroupFinalLose.Text .Cells(xlNum + 1,13) = txtHomePreWin.Text .Cells(xlNum + 1,14) = txtPreDraw.Text .Cells(xlNum + 1,15) = txtGuestPreWin.Text .Cells(xlNum + 1,16) = txtHomeFinalWin.Text .Cells(xlNum + 1,17) = txtFinalDraw.Text .Cells(xlNum + 1,18) = txtGuestFinalWin.Text .Cells(xlNum + 1,19) = txtPanlu.Text End With '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>新数据信息后,实时更新<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>所有数据信息列表 For i = 0 To xlNum - 2 strTemp(i) = "" For j = 0 To xlCol - 1 strTemp(i) = strTemp(i) + Trim$(xlSheet.Cells(i + 2," Next j Next i With lstInfo .Clear For n = 0 To xlNum - 2 .AddItem strTemp(n) Next n End With s<a href="https://www.jb51.cc/tag/Trad/" target="_blank" class="keywords">Trad</a>dTemp = "" For n = 0 To 18 s<a href="https://www.jb51.cc/tag/Trad/" target="_blank" class="keywords">Trad</a>dTemp = s<a href="https://www.jb51.cc/tag/Trad/" target="_blank" class="keywords">Trad</a>dTemp + Trim$(xlSheet.Cells(xlNum + 1,n + 1)) + "," Next n If s<a href="https://www.jb51.cc/tag/Trad/" target="_blank" class="keywords">Trad</a>dTemp <> "," Then With lstInfo .AddItem s<a href="https://www.jb51.cc/tag/Trad/" target="_blank" class="keywords">Trad</a>dTemp End With End If '更新按日期<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboDate .Clear .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>日期候选目录 For i = 2 To xlNum + 1 If Trim$(xlSheet.Cells(i,1) End If End If Next i End With '更新按公司<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboCompany .Clear .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>公司候选目录 For i = 2 To xlNum + 1 If Trim$(xlSheet.Cells(i,2) End If End If Next i End With '更新按主队<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboHome .Clear .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>主队候选目录 For i = 2 To xlNum + 1 If Trim$(xlSheet.Cells(i,3) End If End If Next i End With '更新按客队<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>候选目录 With comboGuest .Clear .AddItem "" '依次<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>主队候选目录 For i = 2 To xlNum + 1 If Trim$(xlSheet.Cells(i,6) End If End If Next i End With xlBook.Save End If End If '<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>进程,<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>相关操作对象 xlApp.Quit Set xlBook = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlSheet = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlApp = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> End Sub '--------------------------------<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>记录------------------------------------------ Private Sub btnSearch_Click() xlFile = App.Path + "/football.xls" Set xlApp = New Excel.Application xlApp.Visible = True xlApp.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playAlerts = False Set xlBook = xlApp.Workbooks.Open(xlFile) Set xlSheet = xlBook.Sheets(1) '读取记录行数 xlNum = xlSheet.UsedRange.Rows.Count '读取记录列数 xlCol = xlSheet.UsedRange.Columns.Count '若无<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,则返回所有数据信息作为<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>值,<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>到数据信息列表 If comboDate.Text = "" And comboCompany.Text = "" And comboHome.Text = "" And comboGuest.Text = "" Then m = 0 For i = 0 To xlNum - 2 strTemp(i) = "" For j = 0 To xlCol - 1 strTemp(i) = strTemp(i) + Trim$(xlSheet.Cells(i + 2," Next j Next i With lstInfo .Clear For n = 0 To xlNum - 2 .AddItem strTemp(n) Next n End With lblSearchInfo.Caption = "目标表中共有" + Str(xlNum - 1) + " 条记录符合<a href="https://www.jb51.cc/tag/sousuo/" target="_blank" class="keywords">搜索</a>条件" '若有<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,则开始进入<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>,返回<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>结果,<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>到数据信息列表 Else m = 0 With lstInfo '清空数据信息列表 .Clear '<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,日期,公司,主队,客队 If comboDate.Text <> "" And comboCompany.Text <> "" And comboHome.Text <> "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,1) And comboCompany.Text = xlSheet.Cells(i,2) And comboHome.Text = xlSheet.Cells(i,3) And comboGuest.Text = xlSheet.Cells(i,6) Then m = m + 1 .AddItem strTemp(i - 2) End If Next i End If '<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,日期 If comboDate.Text <> "" And comboCompany.Text = "" And comboHome.Text = "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,1) Then m = m + 1 .AddItem strTemp(i - 2) End If Next i End If '<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,公司 If comboDate.Text = "" And comboCompany.Text <> "" And comboHome.Text = "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboCompany.Text = xlSheet.Cells(i,2) Then m = m + 1 .AddItem strTemp(i - 2) End If Next i End If '<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,主队 If comboDate.Text = "" And comboCompany.Text = "" And comboHome.Text <> "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboHome.Text = xlSheet.Cells(i,3) Then m = m + 1 .AddItem strTemp(i - 2) End If Next i End If '<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a>条件,客队 If comboDate.Text = "" And comboCompany.Text = "" And comboHome.Text = "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboGuest.Text = xlSheet.Cells(i,公司 If comboDate.Text <> "" And comboCompany.Text <> "" And comboHome.Text = "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,主队 If comboDate.Text <> "" And comboCompany.Text = "" And comboHome.Text <> "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,1) And comboHome.Text = xlSheet.Cells(i,客队 If comboDate.Text <> "" And comboCompany.Text = "" And comboHome.Text = "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,1) And comboGuest.Text = xlSheet.Cells(i,主队 If comboDate.Text = "" And comboCompany.Text <> "" And comboHome.Text <> "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboCompany.Text = xlSheet.Cells(i,客队 If comboDate.Text = "" And comboCompany.Text <> "" And comboHome.Text = "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboCompany.Text = xlSheet.Cells(i,2) And comboGuest.Text = xlSheet.Cells(i,客队 If comboDate.Text = "" And comboCompany.Text = "" And comboHome.Text <> "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboHome.Text = xlSheet.Cells(i,客队 If comboDate.Text = "" And comboCompany.Text <> "" And comboHome.Text <> "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboCompany.Text = xlSheet.Cells(i,客队 If comboDate.Text <> "" And comboCompany.Text = "" And comboHome.Text <> "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,客队 If comboDate.Text <> "" And comboCompany.Text <> "" And comboHome.Text = "" And comboGuest.Text <> "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,主队 If comboDate.Text <> "" And comboCompany.Text <> "" And comboHome.Text <> "" And comboGuest.Text = "" Then For i = 2 To xlNum If comboDate.Text = xlSheet.Cells(i,3) Then m = m + 1 .AddItem strTemp(i - 2) End If Next i End If End With lblSearchInfo.Caption = "目标表中共有" + Str(m) + " 条记录符合<a href="https://www.jb51.cc/tag/sousuo/" target="_blank" class="keywords">搜索</a>条件" End If '<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>进程,<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>相关操作对象 xlApp.Quit Set xlBook = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlSheet = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Set xlApp = <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> End Sub

附表，添加控件，如下：

CommandButton控件
btnShow
btnAdd
btnSearch

ComboBox控件
comboDate
comboCompany
comboHome
comboGuest

Frame控件
frmInfo

ListBox控件
lstInfo

Label控件
lblDate
lblCompany
lblHome
lblHomescore
lblGuestscore
lblguest
lblEroupPreWin
lblEroupPreDraw
lblEroupPreLose
lblEroupFinalWin
lblEroupFinalDraw
lblEroupFinalLose
lblHomePreWin
lblPreDraw
lblGuestPreWin
lblHomeFinalWin
lblFinalDraw
lblGuestFinalWin
lblPanlu
lblInfo
lblSearch
lblSearchInfo
lblSearchDate
lblSearchCompany
lblSearchHome
lblSearchGuest

TextBox控件txtDatetxtCompanytxtHometxtHomescoretxtGuestscoretxtguesttxtEroupPreWintxtEroupPreDrawtxtEroupPreLosetxtEroupFinalWintxtEroupFinalDrawtxtEroupFinalLosetxtHomePreWintxtPreDrawtxtGuestPreWintxtHomeFinalWintxtFinalDrawtxtGuestFinalWintxtPanlu