帮忙写一个VBS读取Excel的内容，改文件名的批处理

如何用vbs批量修改多个Excel表里某个工作簿里的特定单元格内容？~

其实整体这个问题的思路很明了首先就是提取文件路径，然后禁止屏幕刷新等，再是做DO WHILE LOOP循环语句，打开每个文件进行修改最后保存、关闭修改文件代码如下：Sub 提取() Dim myPath, myFile myPath = ThisWorkbook.Path & "\" '给路径 myFile = Dir(myPath & "\*.xls") '提取一个文件名 Application.ScreenUpdating = False '关闭屏幕刷新 Application.DisplayAlerts = False '禁用所有事件 Do While myFile > "" '当文件名不为空循环 Workbooks.Open myPath & myFile '打开目录中的一个文件 ActiveWorkbook.Sheets("3-8喷射砼").Range("F31") = "C30" '激活表：3-8喷射砼，并修改F31单元格数据为：“C30” ActiveWorkbook.Save '保存打开的工作簿 ActiveWorkbook.Close '关闭打开的工作簿 myFile = Dir '再用dir函数提取一个文件名 Loop Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub

已经测试过，通过了的。

望采纳，谢谢！

假设文件在D盘，“测试”文件夹下，在桌面新建一个工作簿，打开vbe窗体，插入模块，将代码复制进去：
Sub 工作表1改名()
Application.DisplayAlerts = False
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False
myPath = "D:\测试\"
myFile = Dir(myPath & "*.xls")
Do While myFile ""
Set AK = Workbooks.Open(myPath & myFile)
a = a + 100
ActiveWorkbook.Sheets(1).Name = a
ActiveWindow.Close (True)
myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

如下两种方法可供选择：bat批量处理和VBA。
　　1、BAT批处理文件
　　A. 获取文件名
　　选定部分或全选所有文件 > Shift+右键 > 复制为路径 > 粘贴到Excel
　　B. 编辑命令符
　　l 替换文件名前的路径（全部替换）
　　l 生成如下字符（空格不可缺少）： REN_原文件名_新文件名
　　可以使用EXCEL公式批量处理：
　　例如如下公式可将文件名前增加序列号1,2,3等。
　　=CONCATENATE("REN","",A1," ",ROW(A1),A1)生成批处理文件
　　C. 批处理
　　l 文件夹内新建txt文件
　　l 复制所有excel中编辑好的字符到txt文件中
　　l 文件扩展名更改为bat，运行。

　　2、VBA法
　　alt+F11,复制如下代码到代码栏，F5运行

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

Sub Rename_()
Dim my_Path, my_Doc As String

With Application.FileDialog(msoFileDialogFolderPicker) '定位文件夹
.Show
.AllowMultiSelect = False
my_Path = .SelectedItems(1)
End With

Dim i As Single
i = 1
my_Doc = Dir(my_Path & "\" & "*") '遍历所有文件
Do While Len(my_Doc) <> 0
Name my_Path & "\" & my_Doc As my_Path & "\" & i & my_Doc '更名：增加序号
i = i + 1
my_Doc = Dir
Loop

my_Doc = Dir(my_Path & "\" & "*")
i = 1
Do While Len(my_Doc) <> 0 '复制到excel
Cells(i, 1) = my_Doc
i = i + 1
my_Doc = Dir
Loop

---

新宁县14723964284： 帮忙写一个VBS读取Excel的内容,改文件名的批处理 - ？
博烁人参： 如下两种方法可供选择:bat批量处理和VBA.1、BAT批处理文件A. 获取文件名选定部分或全选所有文件 > Shift+右键 > 复制为路径 > 粘贴到ExcelB. 编辑命令符l 替换文件名前的路径(全部替换)l 生成如下字符(空格不可缺少): REN_...

新宁县14723964284： VBS如何获取EXCEL表里的数据? - ？
博烁人参： Set oexcel=CreateObject(＂excel.application＂) Set obook=oexcel.Workbooks.Open(＂c:\test\excel.xls＂) Set osheet=obook.Sheets(＂sheet1＂) '显示第一个工作表A1单元格数据msgbox osheet.cells(1,1) Set obook=Nothing Set osheet=Nothing oexcel.Quit

新宁县14723964284： VBS怎么读取EXCEL中工作表的数目 - ？
博烁人参： dim a as worksheet for each a in worksheets a.activate cells.select selection.copy workbooks.add cells.select activesheet.paste activeworkbook.saveas filename:= _ thisworkbook.path & ＂\＂ & a.name & ＂.xls＂, fileformat:=xlnormal, _ password:=...

新宁县14723964284： 如何使用VBS脚本程序读EXCEL文件,有没有具体流程? - ？
博烁人参： 如果是XP系统,可以使用如下代码 VBS控制Excel的一些常见方法: (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: oExcel = CreateObject( ＂Excel.Application＂ ) 1) 添加新工作簿: oExcel.WorkBooks.Add 2) 打开已存在的...

新宁县14723964284： 使用vbs读写excel表格数据元素? - ？
博烁人参： 服务器端假定用asp. 如果asp,如下. <% set objexcel = createobject(＂excel.application＂) set wkbk=objjexcel.workbooks.open(＂你的excel文件路径+文件名＂) set sh=wkbk.sheets(1)'假定你的数据在第1个工作表中. response.write sh.cells(1,1).value '向网页输出第1个单元格的值. '注销所有对象 set sh=nothing wkbk.close set wkbk=nothing objexcel.quit set objexcel=nothing %>

新宁县14723964284： 使用vbs读写excel表格数据元素? - ？
博烁人参： dim xlApp,xlWorkBook,xlSheetdim iRowCount,iLoop,numAddset xlApp = CreateObject(＂Excel.Application＂)xlApp.Visible = falseset xlWorkBook = xlApp.Workbooks.Open(＂c:\data.xls＂)set xlSheet = xlWorkBook.Sheets(＂Sheet1＂)iRowCount ...

新宁县14723964284： VBS脚本,想要读取到windows系统的账号和excel里面的数据 - ？
博烁人参： set xlapp=getobject(,＂excel.application＂)set xlbook=xlapp.workbooks(＂工作簿1＂) set xlsheet=xlbook.sheets(＂sheet1＂)msgbox xlsheet.range(＂a1＂)'''读取数据xlsheet.range(＂a1＂)=10000''''写数据xlbook.save'''未保存过用saveas 路径 这是保存xlbook.close true ''关闭工作簿1xlapp.quit '''退出excel

新宁县14723964284： VBS 环境下如何调用EXCEL内置函数 - ？
博烁人参： 前面加WorksheetFunction即可,例如 WorksheetFunction.VLOOKUP 不过有些是用不了的,你这三个我看了一下都是可以用的.

新宁县14723964284： vbs 打开指定路径EXCEL - ？
博烁人参： Set fso=CreateObject(＂scripting.Filesystemobject＂) dizi=＂D:\123\样品.xls＂ '原文件地址 riqi=CDate(FormatDateTime(Now(),2))-1 '当前日期减一天 mbdz=＂D:\样品记录\＂&riqi&＂.xls＂ '目标地址 fso.CopyFile dizi,mbdz,True '复制文件,如果...

新宁县14723964284： 我想用VB编一个程序,能够提取EXCEL文件,然后对这个文件里面的东西进行排序,求大神帮忙. - ？
博烁人参： 读取文件数据,存入数组;按指定条件对数组排序;把数组元素输入Excel后保存.下面是VB操作Excel示例'工程-部件-引用Microsoft Excel 11.0 Object Library Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel....