VB查询excel内容

2025-12-06 07:28:47

推荐回答（1个）

回答1：

比较简单，给你点关键代码
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
dim i as Integer

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL不可见

Set xlBook = xlApp.Workbooks.Open(工作表路径) '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表

if val(xlApp.Cells(1, 2))=1 then text1= xlApp.Cells(1, 1) ‘B1值=1 ,则TEXT=A1