在一个文件中对所有EXCEL，大概有上千个工作簿，执行同样的录制宏并保存。
我是用来算产品的成本的，将近有上千个工作簿的材料清单，我现在有张价格表，想把这个价格VLOOKUP到其他工作簿上去，=VLOOKUP(B8,[材料价格.xlsx]价格资料库更新!$A$2:$D$11412,4,0)，材料清单格式都是一样的，每个工作簿只有一个工作表。
最后想把这些工作表中B3:B5单元格数据取出来。可能有些地方没有表达清楚，请大侠帮忙
第1个回答 2011-08-22
由于你没有具体的单元对应要求，我给出批量打开的框架给你，如果你不会用宏或者不知道怎么写每页要做的代码，可以HI我。
Sub 批量打开()
MyPath = "D:\Excel Programe\ABCD\" '换为你自己保存EXCEL的文件夹
myfile = Dir(MyPath & "*.xls")
Do While myfile <> "" And ActiveWorkbook.Name <> myfile
Workbooks.Open Filename:=MyPath & myfile
每页要做的代码
ActiveWorkbook.Saved = True
ActiveWorkbook.Close '(SaveChanges)
myfile = Dir
Loop
End Sub追问
Sub 批量打开()
MyPath = "D:\Excel Programe\ABCD\" '换为你自己保存EXCEL的文件夹
myfile = Dir(MyPath & "*.xls")
Do While myfile <> "" And ActiveWorkbook.Name <> myfile
Workbooks.Open Filename:=MyPath & myfile
每页要做的代码
ActiveWorkbook.Saved = True
ActiveWorkbook.Close '(SaveChanges)
myfile = Dir
Loop
End Sub追问
我先试试
第2个回答 2011-08-22
把这个宏保存在模板里，不能保存在工作表里。
追问
追问
大哥，您有邮箱吗？我发个表格给你
我把要求都写好
您帮我看看，有没有快捷的方法，感激不尽
第3个回答 2011-08-21
如果有上千个工作表，先把工作表合并起来再VLOOKUP，这样可行么？
第4个回答 2011-08-20
这要用VBA来实现。追问
我是初学者
还不会编写VBA
现在只能先学先用了。只怪公司系统太差劲了，投入1000多W，这点数据都。。。
第5个回答 2011-08-20
能不能说的清楚点
相似回答
