其实整体这个问题的思路很明了首先就是提取文件路径，然后禁止屏幕刷新等，再是做DO WHILE LOOP循环语句，打开每个文件进行修改最后保存、关闭修改文件代码如下：Sub 提取() Dim myPath, myFile myPath = ThisWorkbook.Path & "\" '给路径 myFile = Dir(myPath & "\*.xls") '提...

2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。3、然后，在“模块”中输入如下代码：Option Explicit Sub addwork()Sheets.Add after:=Sheets(Sheets.Count)End Sub 4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。5、随后，关闭VBA编辑器，返回到Excel工作表，然后依...

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

1、BAT批处理文件 A. 获取文件名 选定部分或全选所有文件 > Shift+右键 > 复制为路径 > 粘贴到Excel B. 编辑命令符 l 替换文件名前的路径（全部替换）l 生成如下字符（空格不可缺少）： REN_原文件名_新文件名 可以使用EXCEL公式批量处理：例如如下公式可将文件名前增加序列号1,2,3等。=...

这个问题用批处理难以完成，用vbs吧，将下面的代码复制保存为扩展名是“vbs”的文件，放到与要处理的excel文件同目录下运行即可得到名字为“总表.xls”的文件，这就是结果：'═════代═══码═══开═══始═════ set fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("...

估计只能试试这款了！如下图，选择批替换功能卡，选择题doc类型，添加一个模板文件入列表，启用批替换设置。然后如下图，勾选替换后统一保存，再勾选来自xls中的每一行。注意你的txt文件要先用Excel打开，然后再另存为xls即可。然后将需要替换的标记录入列表中，如下图所示。

看你提供的部分代码是想用VBS的正则表达式，来完成你的要求，但我不清楚你的EXCELL样表的形式是什么样的，你如果希望问题能得到大家的帮助，最好把样表的初始图片和你需要的结果图片一并发上来看看！这样大家回答你的问题效果能好些！（你的问题是需要VBS,还是vba实现呢？）...

vba中录制的宏为 ActiveWorkbook.Names.Add Name:="xSHAIN", RefersTo:="='SHAIN!$B$2:$F$999"ActiveWorkbook.Names("adf").Comment = ""将ActiveWorkbook改为你定义的的excel工作表对象，比如xlsObj 另外，名称最好不要跟sheets表同名吧，感觉同名的话，悬乎。我将你的名称修改为xSHAIN了。

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 ...

注：Range("A1").EntireColumn.Delete 这样是删除A1整列 Range("A1").EntireRow.Delete 这样是删除A1整行 Range("A1").Delete 这是删除A1单元格 A2单元格会移上去 上述命令就好像 你选中A1单元格后，右击选择 -》删除 ，在弹出对话框中有四个选项 ...