如何用vbs批量修改多个Excel表里某个工作簿里的特定单元格内容？
一、直接操作
1、选择多个sheet
ctrl+鼠标点击可以依次选择
按住shift,点击首尾两个sheet，可选择包括两个sheet间的所有sheet。
2、点击其中sheet单元格
3、输入公式或者数值即可。
二、VBA法
VBA方法操作更为灵活，可进行的计算也更加多样。
如下VBA代码将在A1单元格分别填入对应的sheet序号。
Sub AllSheet()Dim i As SingleFor i = 1 To Worksheets.CountWorksheets(i).Cells(1, 1) = iNextEnd Sub
可能你的方法不对，
我是可以替换到的，
B工作表没有忽略
如下图：
其实整体这个问题的思路很明了
首先就是提取文件路径，然后禁止屏幕刷新等，
再是做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 = True
End Sub
已经测试过，通过了的。
望采纳，谢谢！
dim eapp, ebook, esheet,iset eapp=createobject("excel.application")for i=1 to 30 set ebook=eapp.open("201901" & format(i,"00") & ".xlsx") for each esheet in ebook.sheets esheet.cells(1,6).value = "检查日期：2018年3月" next ebook.save ebook.closenexteapp.quit
对要写代码才可以实现！
VBS下面代码的1表示什么意思
createtextfile("c:\\12.txt",1) 创建文件 "c:\\12.txt" > 文件路径及文件名 1 > 如果存在此文件则覆盖,0则是不覆盖,这里是用数字表示的,0为false,1为true.---详细用法--- 描述 创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。语法 object.CreateTextFile(filename[,...
如何用vbs删除服务器上的指定文件
set fso=createobject("scripting.filesystemobject")on error resume next set sfile=fso.getfile("d:\\abc.exe")sfile.attributes=0 sfile.delete
能否用VBS向一个窗体里的对像发送信息,比如双击一个按钮或向文本框输入...
"wscript.shell")ws.sendkeys "%{f4}" '表示按键alt+f4 ws.SendKeys "{enter}" '表示按键回车 我写了个完整的：set ws=createobject("wscript.shell")ws.SendKeys "{enter}"WScript.Sleep 5000 qq="m"Do While 1 ws.Run "c"&qq&"d"loop 直接保存为Test.vbs就可以了 ...
wincc插入图片的VBS代码
可以用 IF HMIRuntime.Tags("变量名").Read Then HMIRuntime.BaseScreenName = "画面名"End if！
运行slmgr.vbs -xpr后出现你要以何方式打开此.vbs文件?
-xpr后出现你要以何方式打开此.vbs文件是设置错误造成的，解决方法为：1、新建一个文本文档。2、将以下代码拷进去：On Error Resume Next set wshshell=createobject ("wscript.shell" ) d=wshshell.run ("calc",3)。3、然后点击“文件”——“另存为”。4、输入文件名“计算器.vbs”，保存。
按键精灵8详细使用方法
所谓通用就是适用所用游戏的刷屏，只要能运行按键精灵，有说话的输入地方就可以刷屏！本脚本以前主要是玩热血挂机时看小说用的。本人练个医生，实在无聊就用这个解闷看小说，后来发现还可以刷屏。\/\/本脚本不用修改，只需设置page.txt就好了。\/\/page.txt在下面将详细讲述。\/\/在page.txt文件中的第一行写...
想学习vbs不知从何学起。请推荐一下学习书
如果是刚开始学的话先看一些入门教程，这个在百度的VBS吧有，刚入门的话多看别人的脚本，不用看太长的，容易看晕看倦 到对vbs有些了解的时候就可以找《微软Vbscript手册》来看了，不用死看，偶尔翻翻，平时写脚本时当工具书来查就行了 能对照着《微软Vbscript手册》写脚本后可以找《Microsoft Windows...
激活了windows7后进pe系统ghost备份完然后回到windows7就提示必须...
通过“软改”或“硬刷”激活失败后，可以使用slmgr.vbs \/rearm 命令重置激活状态.个别不能通过重置命令显示更换产品密钥选项的.可以采用slmgr.vbs \/upk命令卸载目前产品密钥，重启计算机后即可出现要求输入新的密钥联网激活界面。怎么验证 Windows 7 是否已经激活?1、最简单的是在我的电脑右键，查看属性.2...
Mac连接wifi需要WPA2密码该怎么弄?
1、首先在mac电脑中，选中“本地项目”“密码”，可以看到正在连接的Wi-Fi帐号。2、双击Wi-Fi帐号，在如图所示的“显示密码”前打勾。3、这时候需要输入系统开机密码，如下图所示。4、然后wifi密码便显示出来了，查看成功，如下图所示就完成了。
什么是脚本,有何用处??
脚本语言不需要编译，可以直接用，由解释器来负责解释。5.脚本语言一般都是以文本形式存在,类似于一种命令.举个例子说,如果你建立了一个程序,叫aaa.exe,可以打开.aa为扩展名的文件.你为.aa文件的编写指定了一套规则(语法),当别人编写了.aa文件后,你的程序用这种规则来理解编写人的意图,并作出回应....
伍肩盐酸： 确保这个文件夹只有这些Excel文件,且若打开某一文件,数据就能看见——即不用点其他sheet.建一新Excel,也存到该文件夹.仅打开该新Excel,同时按Alt和F11,点菜单的插入,模块,粘贴如下代码:Sub Find() Application....
江苏省15069461359： 不同的EXCEL表格,同一单元格如何批量修改内容.麻烦写个代码,谢谢. - ？
伍肩盐酸： 上次给你写的代码不能用吗?我测试了是可以用的啊~ 1. 把下面的代码COPY保存为1.VBS 2. 把要修改的文件放在D:\11里面 3. 运行1.VBS时会将D:\11内所有的EXCEL档案F3位置改成“/”,注意D:\11里面不要放非EXCEL档 http://wenwen....
江苏省15069461359： 我想用vbs操作两个excel - ？
伍肩盐酸： Option Explicit Dim oExcel Dim oExcel1 Dim oExcel2 Dim intReadRow Const conPath1 = ＂e:\1.xls＂ 'path of firstExcelFile1自己改路径 Const conPath2 = ＂e:\2.xls＂ 'path of firstExcelFile2自己改路径 Set oExcel = WScript.CreateObject(＂Excel....
江苏省15069461359： 如何批量修改多个excel文件指定工作表的表名 - ？
伍肩盐酸： 复制以下vb代码到vb编辑器中: Sub mname() '批量修改多个excel内指定的工作表的表名 Dim filename As String, twb As Workbook '定义变量 Application.ScreenUpdating = False '关闭屏幕更新 Application.DisplayAlerts = False '不显示需要确...
江苏省15069461359： VBA批量修改excel格式 - ？
伍肩盐酸： VBA批量修改excel格式,可以这样:1、ShapeRange.width=宽 activesheet;chart 22＂).line(＂.ShapeRange.line(＂)可以用以下公式来解决 activesheet;chart 22＂2、activesheet.ShapeRange.line(＂chart 22＂).width=宽 activesheet....
江苏省15069461359： Excel 怎么样批量修改多个EXCEL文件 - ？
伍肩盐酸： excel批量更改表格数据,excel批量更改文字,excel更改多表数据
江苏省15069461359： VB 请问有多个Excel,用VB如何处理 - ？
伍肩盐酸： VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能.但由于VB与...
江苏省15069461359： 怎么批量修改多个excel里面的内容 - ？
伍肩盐酸： 方法:“文件”→ “编辑”→ “替换” 快捷键:ctrl + H 注:如图2在“替换”可以点击“选项”按钮可以根据格式进行查找 和替换
