不打开工作簿，合并当前文件夹下xlsx格式工作簿的所有工作表

要合并当前文件夹下所有xlsx格式工作簿的所有工作表，你可以使用VBA编程来完成。以下是一个示例代码：

Sub MergeWorksheets()
    Dim FolderPath As String
    Dim FileName As String
    Dim wbMaster As Workbook
    Dim wbTemp As Workbook
    Dim ws As Worksheet
    
    ' 设置文件夹路径
    FolderPath = "C:\YourFolderPath\" ' 替换为你的文件夹路径
    
    ' 创建一个新的工作簿作为合并后的主工作簿
    Set wbMaster = Workbooks.Add
    
    ' 循环遍历文件夹下的所有xlsx文件
    FileName = Dir(FolderPath & "*.xlsx")
    Do While FileName <> ""
        ' 排除主工作簿自身
        If Not FileName = wbMaster.Name Then
            ' 打开一个临时工作簿
            Set wbTemp = Workbooks.Open(FolderPath & FileName)
            
            ' 循环遍历临时工作簿中的所有工作表
            For Each ws In wbTemp.Worksheets
                ' 将每个工作表复制到主工作簿中
                ws.Copy After:=wbMaster.Sheets(wbMaster.Sheets.Count)
            Next ws
            
            ' 关闭临时工作簿，不保存更改
            wbTemp.Close SaveChanges:=False
        End If
        
        ' 继续遍历下一个文件
        FileName = Dir
    Loop
    
    ' 删除主工作簿中默认的Sheet1工作表
    Application.DisplayAlerts = False
    wbMaster.Sheets("Sheet1").Delete
    Application.DisplayAlerts = True
    
    ' 保存合并后的工作簿
    wbMaster.SaveAs FolderPath & "MergedWorkbook.xlsx" ' 替换为你想要保存的文件名和路径
    
    ' 关闭主工作簿
    wbMaster.Close SaveChanges:=False
    
    MsgBox "合并完成！"
End Sub

在这段代码中，你需要将`FolderPath`替换为你的文件夹路径，并根据需要调整保存合并后工作簿的文件名和路径。代码将遍历文件夹下的所有xlsx文件，将每个工作表复制到一个新的主工作簿中，并最终保存为一个合并后的工作簿。

请注意，在运行代码之前，请确保没有打开任何xlsx文件，以免发生冲突。此外，代码中的操作无法撤销，请务必提前备份你的数据。