不想懂VBA的话那就用VBS,把代码用记事本存为 *.vbs 后双击运行框架代码如下,把VBA代码填写进去就行。 dim fs, fd, bkset fs = CreateObject("Scripting.FileSystemObject")set fd = fs.GetFolder(Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\")))ReportBook_Initfor each bk In fd.Files
If UCase(fs.GetExtensionName(bk))="XLS" Then ReportBook_Add ...