excel工作簿合并实现VBA代码

同一文件夹内N个工作簿 ，每个工作簿里N个工作表，最终合并到一个工作表里的代码。假设每个表格结构相同，第一行为标题，第二行为表头，表头内容固定，行数不固定，列固定14，工作表数量不固定，工作簿数量不固定。 Sub Sample()Dim MyWb As WorkbookDim MySht As WorksheetDim MyName As String, MyPath As StringDim MyRow As Long, MySRow As Long, MyShtN As LongDim MyArrMyPath = ThisWorkbook.Path & "\"