vba问题：读取某文件夹内的所有Excel文件后写入某工作簿内的与读取文件名称一致的工作表模板

VB或py 可私聊
1、读取的EXCEL文件内的行数不确定，只有唯一的工作表
2、写入的excel文件有多个工作表，工作表名称与读取的文件名称是一致的
3、读取与写入的表单格式不一致
4、读取的文件格式可能为csv、tsv或xlx
5、需要将读取对应名称的文件写入模板名称一致的那个工作表
6、实现的效果是将，文件：“编号1” 工作表："编号1" 单元格区域：“D2-D7”的内容写入到文件模板:“报告”工作表："编号1" 单元格区域：“G5-G10”（有多列这样的需求，这变量要能改）

vab的话，第一个问题可以用有效行数去获取

Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Range("A65536").End(-4162).Row
ActiveSheet.UsedRange.Rows.Count

第二个问题可以获取所有工作表：

For i = 1 To ActiveWorkbook.Worksheets.Count
   
        ActiveWorkbook.Worksheets(i).Name

其他功能其实都能从网上找到对应的实现代码