14, excel vba 多个表的数据如何获取_认识worksheets对象

上一讲,我们说了下类和对像的一些简单知识, 类可以理解为一个模板,而对像是根据这个模板创造出来的东西,

它有它自己的成员,有它自己的动作

在我们启动excel的时候,excel就自动创建了许多对象, 其中之一就是worksheets, 这个对像可以用来表示我们的工作表

中所有的表格

在工作中,  我们会经常遇到, 我们打开的一个excel文件,不止有一个表,而是很非常多个

如下图,,就有员工和地址两个表,也可以叫两个sheet:

 

由于工作需要,我希望把员工点点didi的地址从另一个表格获取出来,然后写到员工表里, 当然实际工作中,我们可能有

各种各样的需要. 现在就来看看如何获取吧

Public Sub 点点didi14()

 For i = 1 To 2
 
   yuanGongName = Worksheets("员工").Cells(i, 1).Value
   
   For j = 1 To 5
 
   
       If Worksheets("地址").Cells(j, 1).Value = yuanGongName Then
     
           Worksheets("员工").Cells(i, 3).Value = Worksheets("地址").Cells(j, 2).Value
       
     
       End If
     
   Next
 Next
 

End Sub

 

End Sub

 

这里, worksheets("表名"), 就可以引用我们想要的表格了. 然后获得表格对像的引用后, 就可以用表格对像所具有的cells对像,来获取每个单元格的值啦.

然后运行一下, 就可以把地址写入到员工表的第三列了.

 

 

 

 

 

这里还用了两层偱环. 因为我只是举个简单的例子, 实际上的表格肯定不只这一两行数据啦. 

第一层循环是获取员工的名字 

获得员工名字后, 再进入下一层循环,  遍历地址表中第一列的五个单元格 ,因为j最大到5 . 如果遇到和员工的名字相同的单元格

就获取该单元格旁边的地址信息. 

worksheets 还有很多好用的功能,等待你去发现.. 一起加油