近日在工作中常常遇到需要将多个工作薄中的工作表合并到一张工作表里,手动打开每个工作薄复制里面的内容然后粘贴进同一张表里非常麻烦,最近在学习vba,所以自己练习写了一段代码以简化工作。(为了防止自己忘记python,工作中遇到的问题用vba实现了以后,也会全部用python实现一遍,本文也对python实现文件合并的代码做了解释)
vba实现文件合并有两个重要的知识点:1. 使用dir函数读取每个文件的文件名 2.使用工作表函数counta()获取单元格使用区域的最大行数和列数 (注:counta()只能获取非空单元格的数量,所以使用counta()计算时的作为其参数的行或列必须没有空值,这样才能准确计算数据区域的最大行列数)
获取vba单元格使用区域最大行数和列数的方法还有:sheet1.Range(“A65536”).End(x1up). row
sheet1.Range(“IV1”).End(x1toleft). column
但是以上代码我在运行时报错(具体原因未明)
另外,在其他人的分享里也有看到使用sheet1. usedrange.rows.count
sheet1.usedrange.columns.count
来获取已使用的单元格的最大行数和列数,这个获取出来的行列数有可能会比工作表现有数据区域的行列数要大,因为它获取的是使用过的单元格区域最大行列数,如果工作表的数据区域有过删除行操作,那么它返回的还是删除之前的行列数。
下面介绍一下dir()的用法:str=dir("D:data*.*")
str=dir
如上所示,参数是工作簿存储的路径,使用*通配符可以获得D