一个文件夹内有多个相同的excel表格，如何批量修改统一单元格内容，而且修改的内容...

秋枫

kk8712 发表于 2017-4-10 11:12
谢谢！！谢谢！！谢谢！！谢谢！！

将附件中的文件考到你的文件夹中。如下图所示。双击 批处理.vbs 运行

此程序找到 修改数据.xlsx  ，读取其中的配对关系。
然后依次根据这个表格找开相应的文件写入 B2 单元格。

批处理.zip (2.72 KB, 下载次数: 356)

2017-4-10 12:37 上传

点击文件名下载附件

kk8712

秋枫 发表于 2017-4-10 12:39
将附件中的文件考到你的文件夹中。如下图所示。双击 批处理.vbs 运行

此程序找到 修改数据.xlsx  ，读 ...

亲测可用，感激不尽！。另外想知道到底怎么编的，以便运用到其他表格里，恳请大神能指导一下。

kk8712

秋枫 发表于 2017-4-10 12:39
将附件中的文件考到你的文件夹中。如下图所示。双击 批处理.vbs 运行

此程序找到 修改数据.xlsx  ，读 ...

就是，可能别的表格，修改的不是工程名称，也可能是 型号、日期。这时候改哪一段编码能实现。谢谢。

秋枫

kk8712 发表于 2017-4-10 14:16
亲测可用，感激不尽！。另外想知道到底怎么编的，以便运用到其他表格里，恳请大神能指导一下。

vbs是纯文本文件。所以，你可以直接用notepad.exe(记事本)打开，直接根据需要修改。
里面大部分代码我都写了注释。如不知道如何修改，可以贴上论坛，自有高手出马。

秋枫

kk8712 发表于 2017-4-10 14:16
亲测可用，感激不尽！。另外想知道到底怎么编的，以便运用到其他表格里，恳请大神能指导一下。

选中这个vbs脚本，右键，选编辑就可以直接修改。

vbs和语法，就是vba的简化版了。可以脱离excel直接运行。所以对wps表格也有效。

kk8712

秋枫 发表于 2017-4-10 14:20
vbs是纯文本文件。所以，你可以直接用notepad.exe(记事本)打开，直接根据需要修改。
里面大部分代码我都 ...

非常感激。我是一个excel VBA小白，等忙完这一阵，一定要利用业余时间学习一下VBA。再次感谢。

kk8712

秋枫 发表于 2017-4-10 12:39
将附件中的文件考到你的文件夹中。如下图所示。双击 批处理.vbs 运行

此程序找到 修改数据.xlsx  ，读 ...

你好，秋枫，谢谢上次帮我解决了批量修改的问题。能否在上次那个VBA程序的基础上，再帮我改动一下，以期能满足我现在的这个需要。

kk8712

秋枫 发表于 2017-4-10 12:39
将附件中的文件考到你的文件夹中。如下图所示。双击 批处理.vbs 运行

此程序找到 修改数据.xlsx  ，读 ...

你好，秋枫，谢谢上次帮我解决了批量修改的问题。能否在上次那个VBA程序的基础上，再帮我改动一下，以期能满足我现在的这个需要。

这次的批量改动需求同第一次大致一样，只是第一次是批量修改多个表格内的相同位置的单独一个单元格。这次是批量修改多个相同表格内的相同位置的多个单元格。

具体示例请见附件。
谢谢！！

秋枫

kk8712 发表于 2017-4-20 14:32
你好，秋枫，谢谢上次帮我解决了批量修改的问题。能否在上次那个VBA程序的基础上，再帮我改动一下，以期 ...

批处理.zip (2.68 KB, 下载次数: 164)

2017-4-20 16:35 上传

点击文件名下载附件

1. For        Each datafile In d.keys
   
2.         Set        wb = Excel.workbooks.open(ScriptFolder & "" & datafile)
   
3.         fn = GetFilenameWithoutExtension(fso.GetFile(datafile).Name)
   
4.         WScript.echo "读取 " & fn & "..."
   
5.         wb.activesheet.range("B2") = d(datafile)
   
6.         wb.activesheet.range("B39") = d(datafile)
   
7.         wb.activesheet.range("B59") = d(datafile)
   
8.         wb.activesheet.range("B81") = d(datafile)
   
9.     wb.save
   
10.         wb.close
    
11. Next

复制代码

kk8712

秋枫 发表于 2017-4-20 16:36

谢谢这么快回复我。我一开始也是试着增加 语句 wb.activesheet.range("B39") = d(datafile)，但是运行出现错误。你改的这个也是出错。麻烦再修整一下。