VBA之dir函数综合使用
1.dir函数的有判断一个文件是否存在的功能,也可以使用通配符模糊匹配
返回的是该文件的文件名
Sub test()
Dim i As Integer
For i = 1 To 5
If Dir(“d:\data” & Range(“a” & i) & ".xls*) = “” Then
Range(“b” & i) = “无此文件”
Else
Range(“b” & i) = “有文件”
End If
Next
End Sub
2.如果一个文件夹下有重名文件,dir函数会如何判断呢
Sub test2()
Range(“a1”) = Dir(“d:\data\苏州.xls*”) '第一个dir返回.xls的文件
Range(“a2”) = Dir '第二个dir返回.xlsx文件
Range(“a3”) = Dir '由于没有满足条件的,第三个dir返回空
'Range(“a4”) = Dir '第四个dir返回错误
End Sub
3.用dir拿到文件夹下所有的文件名
Sub test3()
Dim str As String
str = Dir(“d:\data*.xls*”)
For i = 1 To 100
Range(“a” & i) = str
If str = "" Then '如果str为空了,说明下一个要报错了,退出循环
Exit For
End If
str = Dir '把第二个dir的值赋给str
Next
End Sub
4.打开一个路径下的所有文件,然后关闭掉
代码如下:
Sub test4()
Dim str As String
Dim wb As Workbook
str = Dir(“d:\data*.xls*”)
For i = 1 To 100
Set wb = Workbooks.Open("d:\data\" & str) '把打开的文件用set赋值给wb
' 中间可以用来写功能
wb.Close '关闭打开的文件
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub
5.跨文件复制数据,把其他文件的第一张表,复制到指定文件的第一张表里
代码如下:
Sub 文件合并()
Dim str As String
Dim wb As Workbook
str = Dir(“d:\data*.xls*”)
For i = 1 To 100
Set wb = Workbooks.Open(“d:\data” & str)
wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'跨文件复制时,注意这里的sheets(sheets.count) 要加thisworkbook,不然就是指当前打开的wb
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)
'给表取名,这里用到了split,因为文件名是**.xlsx格式,所以用split按照 "." 来分割
wb.Close
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub
6.跨文件复制数据,把其他文件的所有表,复制到指定文件里,并且按照原文件的 “表名+文件名” 来命名
代码如下:
Sub 文件合并()
Dim str As String
Dim wb As Workbook
Dim sht As Worksheet
str = Dir(“d:\data*.xls*”)
For i = 1 To 100
Set wb = Workbooks.Open(“d:\data” & str)
For Each sht In wb.Sheets
sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'跨文件复制时,注意这里的sheets(sheets.count) 要加thisworkbook,不然就是指当前打开的wb
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
'给表取名,这里用到了split,因为文件名是**.xlsx格式,所以用split按照 "." 来分割
Next
wb.Close
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub