如何用vb提取excel表格中的数据如何用vb提取excel表格中的数据和文字...

发布网友发布时间：2024-08-19 01:00

共1个回答

热心网友时间：2024-08-23 05:46

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，
然后打开Excel文件读数据
Dim scxls As Excel.Application
Dim scbook As Excel.Workbook
Dim scsheet As Excel.Worksheet
‘Set scxls = CreateObject(\"excel.application\")
‘Set scbook = scxls.Workbooks.Add
Set scbook = scxls.Workbooks.open(\"c:\\1.xls\")
Set scsheet = scbook.Worksheets(1)
‘scsheet.Cells(1, 2) = \"1111\" ’写入数据
a=scsheet.Cells(1, 2) '读取数据
Set scbook= Nothing
Set scxls = Nothing
‘scxls.Visible = True’显示Excle
数据较多，且有规律可循时，请使用循环语句
用vb提取excel表格中的数据方法：
1、在汇总表中的A列，将多个工作表的表名依次排列。
2、在B1单元格输入以下公式，然后向右向下填充公式=OFFSET(INDIRECT($A1&"!A1"),,COLUMN(A1)-1)&""
公式表示：以A1单元格的内容作为表名引用，通过OFFSET函数将表名引用的A1单元格作为基准单元格，每向右移动一列，基准单元格向右偏移一列。从而得到A列表名工作表的所有首行数据。如果数据为空，就返回空值。