Question

Excel 怎么用宏完成打开一个文件夹的所有文件然后再关闭

Answer 1

    On Error GoTo 1
    Dim K1 As Object
    
    Set K1 = CreateObject("Scripting.FileSystemObject")
    Set k2 = K1.GetFolder(ThisWorkbook.Path)
    Set xlApp = CreateObject("Excel.Application")
    
    Dim Xrow As Integer
    Xaces = 3
    For Each f In k2.Files
        If InStr(f.Name, ThisWorkbook.Name) = False Then
            Xrow = 3
            Ca = ThisWorkbook.Path & "\" & f.Name
            Set xlbook = xlApp.Workbooks.Open(Ca)
            xlApp.Visible = False
            ’可插入需要进行操作的代码
            xlbook.Close
        End If
    Next
    
    Exit Sub
1:
    xlbook.Close