【VBS脚本】VBS复制Excel工作簿

近期因为业务的需要，需要做一个批处理复制Excel工作簿到一个汇总Excel里边，由于客户的环境不具备应用其他编程语言如Python等高效开发语言且希望操作越简单越好，因此就采用window原生的语言-VBS，本人也是初学者，望大神们指摘。

1、任何开发都要涉及后期运维，所以程序的执行情况要有据可循，因此第一步生成日志文件

dim logPath

Set wshell = CreateObject("WScript.Shell") '初始化WScript对象

Set objFSO = CreateObject("Scripting.FileSystemObject")'初始化FileSystemObject对象

PathDesktop = wshell.specialfolders("Desktop")'获取本地桌面路径

logPath = PathDesktop+"\脚本日志.txt" '设定日志文件保存路径

'判断本地是否生成日志文件
if not objFSO.FileExists(logPath) then
   Set ObjFolder = objFSO.CreateTextFile(logPath)
end if

Set objFile = objFSO.OpenTextFile(logPath,8)'打开文件，并设定方式为追加（8）

objFile.WriteLine "开始进行作业处理" '根据程序执行情况写入log内容

2、开发过程中出现一些数据结构的应用，因此稍微再写一下

Set Dic = CreateObject("Scripting.Dictio