超高难度★在excel中处理其他excel文件

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:23:51
因工作需要,需要对一个文件夹里的100多个excel文件的A列进行多步处理(在一个设置多步宏处理的excel文件中处理,暂成那个文件为VBA.XLS),所有文件夹的A列格式是一样的.
这样我就需要1.打开需要处理的文件,复制A列到vba.xls进行处理后,结果存在B列,然后把B列的值粘贴会需要处理的文件,保存.
然后就不停得打开不停得重复这些动作..
我想请问的是,有没有不用打开100个需要处理文档而对他们进行处理的方法.也就是说,在VBA.xls里面可以选择那100个待处理文档,处理后有 个按钮可以 保存到待处理文档.这样就不用打开了..
期待高手.
就是用VBA方法, 您那个"经过vbs.xls处理" 不是用VBA吗？ 怎么不一步处理到位?
lxlzmh2002 问题是我不会啊..
这样的vba我不会写..愿听高手指教.

补充问句，你要的是不是打开CSV文件、取得数据，和回填数据的过程？
对数据的处理过程你是自己弄好了的，对吗 对的.数据处理过程我自己搞定了.就是要取得并填回.

我可以给你试试。可以把你的要处理的文档和处理的要求发过来吗。
jdcwjd@126.com
补充问句，你要的是不是打开CSV文件、取得数据，和回填数据的过程？
对数据的处理过程你是自己弄好了的，对吗

下面是写好的代码
Sub 读取和回写()
Dim s As FileSearch '定义一个文件搜索对象
Set s = Application.FileSearch
s.LookIn = "c:\a\" '注意路径，换成你实际的路径
s.Filename = "*.csv" '搜索所有文件
s.Execute '执行搜索

For i = 1 To s.FoundFiles.Count

Set csvsheet = Workbooks.Open(s.FoundFiles(i))
csvsheet.ActiveSheet.Columns("y:y").Copy ThisWorkbook.ActiveSheet.[a1]
'=========
'这里接你对数据的处理代码
'==========

ThisWorkbook.ActiveSheet.Columns("B:B").Copy csvsheet.ActiveSheet.[y1]'回写
csvsheet.Save
csvsheet.Close False
Next

End Sub

有的，就是用VBA方法, 您那个"经过vbs.xls处理" 不是用VBA吗？ 怎么不一步处理到位?
---------------------------------------