通过VBS调用VBA并执行VBA或者把VBA写成VBS对当前VBS脚本路径下的文件夹内所有文件执行

假定当前文件夹下包含各种需要执行VBA的xls文件，VBS和VBA也在当前文件夹下，除了上述文件以外没有其余任何文件在此文件夹。需求是：执行VBS文件，自动获取当前文件夹下所有xls文件名，并对xls文件调用VBA；或者，修改VBS，将VBA写入VBS，直接对VBS进行调用获取所有xls文件名并处理所有xls。我的问题是：1、这两种方法哪种更容易实现以及如何实现？2、如何处理输出后的文件重名问题？下面附上我的VBA宏代码
Sub 初始化()
'
' 初始化 宏
'

'
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("T7:U7").Select
Range("U7").Activate
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
path_now = ActiveWorkbook.Path
ChDir path_now
ActiveWorkbook.SaveAs Filename:= _
path_now + "\2016-2017-1-name-id.xlsx.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

任何帮助都不胜感激！

直接VBA就能完成，为毛一定要扯上VBS？

任务占坑

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息