UC知道VB查找EXCEL表格的问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 14:53:48
我是用以下的方式已经可以读出对应数据
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(App.Path & "\Date.xls") xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Cells(1, 1)
比如我想在A列上查找某个数据 找到后返回这个数据所在行数
请问如何编写呢?
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(App.Path & "\Date.xls") xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Cells(1, 1)
比如我想在A列上查找某个数据 找到后返回这个数据所在行数
请问如何编写呢?
例如你把你的Date.xls 文件的A24单元格值为“abc”，然后在VB中代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\Date.xls")
xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Range("A1:A1000").Find("abc").Row '搜索范围：A1:A1000,查找内容："abc"
End Sub
================
那么会返回24.