这篇我们谈谈如何使用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).Value
End Sub