使用VBA从海量Excel文件中模糊获取数据并生成新表（附实例）

这篇我们谈谈如何使用VBA打开另一个excel文件，并读取数据。

那在此之前，我们测试一下，从当前excel文件读取数据的简单VBA代码。现在有一个九九乘法表的数据，如下图。

如果我们有两个乘数，需要从九九乘法表里面查找到正确的结果，我们来试试看。

Dim num1 As Integer, num2 As Integer
定义两个变量，用来存放整数，也就是我们的乘数

num1 = 8
给变量赋值

MsgBox “从九九乘法表中查得，” & num1 & “*” & num2 & “的值是：” & Cells(num1 + 1, num2 + 1).Value
把结果通过对话框展示出来， Cells函数是根据行号和列号获取单元格。

我们点击绿色三角型，运行一下，看看结果如何。

Bingo! 结果正确无误。你看从当前excel中读取某一单元格中的数据简单吧。

在继续讲之前，把九九乘法表的文件，命名为“九九乘法表.xlsm”。这里注意下，为什么要选择的后缀名是“xlsm”呢？因为默认的“xlsx”是不保存VBA脚本的。

接下来，我们看看如何从另一个Excel中读取数据。现在新建一个Excel，我这里命名为“跨Excel.xlsm”,打开“Visual Basic”窗口，写上如下代码，如图所示：

可以看到，后面的4行代码，和九九乘法表的很像。唯一的区别就是多了一个xlSheet.

MsgBox “从九九乘法表中查得，” & num1 & “*” & num2 & “的值是：” & xlSheet. Cells(num1 + 1, num2 + 1).Value
这里的xlSheet.指定了具体的工作表，而不是使用当前工作表。

前面写的几行又是什么意思呢？

Dim xlApp As Excel.Application
定义Excel应用程序变量，用于打开一个新excel文件

Dim xlBook As Excel.Workbook
定义Excel工作簿

Dim xlSheet As Excel.Worksheet
定义Excel工作表

Set xlApp = New Excel.Application
实例化对象

Set xlBook = xlApp.Workbooks.Open(anotherFileName)
打开指定路径的excel文件

Set xlSheet = xlBook.Worksheets(1)
获取第一个工作表，即Sheet1

我们运行看看效果：

和之前一样，所以说我们获取成功了。

下面是完整vba代码：

Sub getDataAcrossFile()    Dim xlApp As Excel.Application    Dim xlBook As Excel.Workbook    Dim xlSheet As Excel.Worksheet    Dim anotherFileName As String    anotherFileName = "E:\CSDN博客\VBA跨Excel读取数据\九九乘法表.xlsm"    Set xlApp = New Excel.Application    Set xlBook = xlApp.Workbooks.Open(anotherFileName)    Set xlSheet = xlBook.Worksheets(1)    Dim num1 As Integer, num2 As Integer    '两个乘数    num1 = 8    num2 = 9    '显示结果    MsgBox "从九九乘法表中查得，" & num1 & "*" & num2 & "的值是：" & xlSheet.Cells(num1 + 1, num2 + 1).ValueEnd Sub