【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.Dictionary") '初始化字典结构

Dic.Add key, value '添加键值对key-value到字典中

Dic.Item(columnCValue) '获取键值对key对应的value值，同时也可以改变该key对应的value值

for each key in Dic '遍历对应的字典
    msgBox "key:"&key&"