使用vbs汇集excel工作表

使用vbs汇集excel工作表（汇集的第一个表），使用GetObject(,"Excel.Application")，需要在汇总的excel中建立快捷方式（ctrl+k）到本vbs上，打开后第一次运行可能出现错误，再次运行就没有问题了，给需要的朋友借鉴，自己借鉴网上的资源自己改写的。