代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
VBS
】
vbs 合并多个excel文件
作者:
/ 发布于
2010/12/30
/
1426
vbs 合并多个excel文件的脚本
<div>Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = "c:\test" '要读取的源文件目录 desExcel= "c:\result1.xls" '最后生成的汇总excel Set ExcelApp = CreateObject("Excel.Application") Set destbook = ExcelApp.Workbooks.Add '创建空文件 Set objFSO = CreateObject("Scripting.FileSystemObject")'建立filesystemobject Set objFolder = objFSO.GetFolder(objStartFolder)'获取文件夹 Set colFiles = objFolder.Files '获得源目录下所有文件 intRow=1 '行数 For Each objFile in colFiles '依次处理文件夹中的文件 If UCase(Right(Trim(objFile.Name), 3)) ="XLS" Then '只处理xls文件 Set srcbook = ExcelApp.Workbooks.Open(objStartFolder + "\" + objFile.Name) '打开xls文件 'srcbook.Worksheets(1).Copy destbook.Worksheets(1) srcbook.activate intCol = 1 '列数 Do Until ExcelApp.Cells(1,intCol).Value = "" tempdata=ExcelApp.Cells(1, intCol).Value destbook.activate ExcelApp.Cells(intRow, intCol).Value=tempdata srcbook.activate intCol = intCol + 1 Loop srcbook.Close '关闭已经打开的xls文件 End If intRow=intRow+1 Next destBook.SaveAs desExcel,xlWorkbookNormal destBook.close xlSaveChanges ExcelApp.quit 在存放文件的目录之外打开一个空的Excel文档 运行下面分宏:(注意文件目录) Sub cfl() Dim fs, f, f1, fc, s, x Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("e:\test\") '存放文件的目录 Set fc = f.Files For Each f1 In fc If Right(f1.Name, 3) = "xls" Then x = x + 1 Workbooks.Open (f1.Path) For i = 1 To 255 Workbooks(1).Sheets(1).Cells(x, i).Value = _ Workbooks(2).Sheets(1).Cells(1, i).Value Next Workbooks(2).Close savechanges:=False End If Next End Sub </div> <div></div>
试试其它关键字
同语言下
.
使用脚本将域账号添加到客户机的本地管理员组
.
删除服务器上文件
.
主动ping服务器是否宕机
.
自动 服务器检查 的vbs脚本
.
VBS脚本发送邮件,密送多人,带附件,可更换账号密码
.
根据文件路径复制文件
.
VBA操作数据库
.
双击获取公网IP到剪贴板
.
定时运行ie浏览执行网址不显示浏览器窗口
.
批处理生成日历
可能有用的
.
使用脚本将域账号添加到客户机的本地管理员组
.
删除服务器上文件
.
主动ping服务器是否宕机
.
自动 服务器检查 的vbs脚本
.
VBS脚本发送邮件,密送多人,带附件,可更换账号密码
.
根据文件路径复制文件
.
VBA操作数据库
.
双击获取公网IP到剪贴板
.
定时运行ie浏览执行网址不显示浏览器窗口
.
批处理生成日历
贡献的其它代码
Label
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3