在当前<em>excel</em>文件中运行宏，使它打开另一个<em>excel&l

    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
            ’可插入需要e68a84e799bee5baa6361进行操作的代码
            xlbook.Close
        End If
    Next
    
    Exit Sub
1:
    xlbook.Close

有这么几个问题：
1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文7a686964616fe58685e5aeb9334件夹。
——注意引号和&的配合。
2 打开文件夹语句不对。那个open是打开指定文件的语句
3 对象创建后注意关闭（清理后再离场）
测试后的完整代码为：

Sub 创建文件夹()
Dim fname '定义变量
fname = ActiveSheet.Range("a1") '指定表格内容
MkDir ("E:\" & fname) ' '创建文件夹
'Workbooks.Open ("E:\" & fname) '打开文件夹
Set Fs = CreateObject("Scripting.FileSystemObject") '复制指定文件到指定文件夹
Fs.copyfile "d:\scan\aa.xlsx", "e:\" & fname & "\aa.xlsx", True '
Set Fs = Nothing
End Sub
sub dakai()
mypath="文件路zhidao径"
Workbooks.Open mypath
~
~
你需回要的其他代答码
~
~
end sub

在EXCEL中的vba编辑器百中输入以下代码，将需度要打开的文件夹问路径答填写完整。

Sub 打开文件回夹答()
Dim p As String
    p = "C:\Users\" '这里填写完整你需要打开文件夹的路径
    Shell "EXPLORER.EXE " & p, vbNormalFocus '打开文件夹
End Sub