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

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

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

dim logPathSet wshell = CreateObject("WScript.Shell") '初始化WScript对象Set objFSO = CreateObject("Scripting.FileSystemObject")'初始化FileSystemObject对象PathDesktop = wshell.specialfolders("Desktop")'获取本地桌面路径logPath = PathDesktop+"\脚本日志.txt" '设定日志文件保存路径'判断本地是否生成日志文件
if not objFSO.FileExists(logPath) thenSet ObjFolder = objFSO.CreateTextFile(logPath)
end ifSet 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&" value:"&Dic(key)
Next

3、对Excel的读取和复制处理

Set xlsApp = CreateObject("Excel.Application")xlsApp.Visible = false '设定Excel是否可见，建议设定成false，可以提升执行效率xlsApp.DisplayAlerts = False '设定打开Excel是否显示警告窗口，建议设定为falseset excel1 = xlsApp.workbooks.open("此处填写要复制的Excel绝对路径")set excel2 = xlsApp.workbooks.open("此处填写复制到的Excel绝对路径")  '>>>纯文本复制（不建议，因为会导致一些文本格式丢失，造成数据缺失）
excel1.Worksheets("此处填写要复制的Excel工作簿").UsedRange.Copyexcel2.Sheets("要被复制的sheet名字").Activate'此处操作前需要生成一个新的sheet （excel2.Worksheets.Add）excel2.ActiveSheet.Range("A1").PasteSpecial'>>>带格式复制（优先选择）
set fromSheet = excel1.Worksheets("要复制的sheet名字")set toSheet = excel2.Worksheets(excel2.Sheets.Count)fromSheet.Copy toSheet '复制到新的Excel里边会在当前文件中的sheet后边追加新的sheet，且sheet名字为原来复制到sheet的名字excel2.Sheets("复制的sheet名字").Name = "新的sheet名字" '修改复制后的sheet名字excel2.save() '保存复制后的Excel文件
set fromSheet = nothing '清空复制sheet对象
set toSheet = nothing '清空复制到sheet对象
excel1.close '关闭Excel1
excel2.close '关闭Excel2

以上，会根据后续业务继续更新！！！

【VBS脚本】VBS复制Excel工作簿相关推荐

NPOI复制Excel工作簿Sheet以及删除Excel工作簿
最近项目中,根据用户要求,需要批量导出Excel(系统里每天产生很多单子,以前都是一个一个的导出的,最近用户要求输入日期,导出该天所有单子). 原来是使用NPOI操作Excel.自以为是的以为批量导出 ...
等Excel工作簿关闭后自动加密压缩备份
; ; 等Excel工作簿关闭后自动加密压缩备份.ahk ; ; 腾讯QQ号 595076941 ; 作者:boai ; 写作日期:2019年5月15日 ; 版本号:第1版 ; 手机号(中国移动) 1 ...
c# xls 复制一行_c# – 将excel工作簿中的第一行复制到新的Excel工作簿
如何获得excel工作簿中的第一行&使用.net c#将其保存到新的excel工作簿中?我不知道列的数量,因此需要获得整行.这就是我的新工作簿是空白的(没有行复制) Excel.Workboo ...
C# 复制Excel工作表（同一个工作簿内进行复制，跨工作簿复制）
C# 如何复制Excel工作表(worksheet) 将介绍如何在Excel中复制工作表,复制的方法分为两种情况来阐述,一种是在同一个工作簿内进行复制,另一种是跨工作簿复制. 一. 在同一个工作簿内复 ...
3分钟写个VBA：Excel工作簿所有子表数据一键汇总
今天同事问我,他要汇总一个工作簿里面十几张子表里面的数据到同工作簿的汇总表里面,怎么操作比较快?然后我就想到了VBA,3分钟给他写(录)了一个宏,一键完成所有数据汇总. 所以今天我就分享这个小技巧,不 ...
excel合并多个工作表_如何快速的合并多个 Excel 工作簿至一个工作簿中的工作表？...
作者:汪汪家的宝贝链接:https://www.jianshu.com/p/c8ae6852f1da 前言在日常工作过程中,我们有可能需要把多个Excel工作簿的内容汇总到一张Excel工作表中. ...
vb怎样同时打开2个excel工作簿_【赠书】不打开工作簿也能批量合并不同文件夹下多个表格的数据...
最近推送的五篇文章: <偷懒的技术:打造财务Excel达人>到底有多畅销? <偷懒的技术2>推荐序:未来已来,你准备好了吗? 将"偷懒"进行到底,还在到处找 ...
excel快速填充_Excel教程：24秒，提取excel工作簿中300张图片
微信扫码观看<财务人的Excel速成视频> 或许您在看本篇教程的时候,会很惊讶,会有疑问,Excel和压缩软件有啥关系,提取图片居然可以这样做!小雅用的是Excel2013版本,给大家分享 ...
java 复制excel_Java 复制Excel工作表
本文归纳了关于Java如何复制Excel工作表的方法,按不同复制需求,可分为: 1. 复制工作表 1.1 在同一个工作簿内复制工作表 1.2 在不同工作簿间复制工作表 2. 复制指定单元格数据对于复 ...
java copysheet_Java 复制Excel工作表
在日常操作Excel文档时,经常会遇到需要复制工作表的情况,以此来节省时间,提高工作效率.根据复制需求不同,一般我们可将其分为以下两类: 1.复制工作表(保留原有工作表格式) ① 在同一个文档内复制工 ...

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

【VBS脚本】VBS复制Excel工作簿相关推荐

最新文章

热门文章