VBA-使用DIR函数多文件合并

Sub test()
Dim sht As Worksheet
sht = Sheets.Add  ‘这里会报错的
Set sht = Sheets.Add ‘将对象赋值给变量 需要加上set
sht.Name = "4月"
End Sub

Sub test()
Dim sht As Worksheet
Dim i As Integer
For i = 2 To 5
    Set sht = Sheets.Add
    sht.Name = Sheet1.Range("a" & i)
Next
End Sub

Sub test()
Dim i As Integer
For i = 1 To 5
    If Dir("a:\data\" & Sheet1.Range("a" & i) & ".xls*") = "" Then     #支持通配符
        Sheet1.Range("b" & i) = "无此文件"
    Else
        Sheet1.Range("b" & i) = "有文件"
    End If

Next
End Sub

Sub ss()
Range("a1") = Dir("d:\data\苏州.xls*") #返回苏州     Dir("d:\data\*.*")遍历所有文件
Range("a1") = Dir　　#返回苏州
Range("a1") = Dir　　#返回空
Range("a1") = Dir　　#报错
End Sub

Sub test1()
Dim str As String
str = Dir("d:\data\*.xls*")
For i = 1 To 100
    Range("a" & i) = str
    str = Dir
    If str = "" Then
        Exit For
    End If
Next
End Sub

Sub test1()
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.Close
    str = Dir
    If str = "" Then
        Exit For
    End If
Next
End Sub