如何把一个工作簿中的值填到多个工作簿的工作表中

yah760911 · 发表于 2012-5-8 17:35

編碼名稱規格單位用量顏色
PDN-JHK-5423N 木板1 190*120*10mm 個 2 黑色
PDN-JHK-5427N 木板5 290*120*10mm 個 2 黑色
用这个数值去更新上面的数据

yah760911 · 发表于 2012-5-9 16:15

工作簿表1.xls,表2.xls,表2.xls里的工作表颜色为红色字的是要的结果(更新了的)

yah760911 · 发表于 2012-5-9 16:07

主控文件.XLS里面有:編碼名稱規格單位用量顏色
            PDN-JHK-5423N    木板 190*120*10mm 個 2 黑色
            PDN-JHK-5427N 木板5  290*120*10mm個 2 黑色
我要把"表"这个工作簿里的工作表,表1.xls,表2.xls,表3.xls所有的工作表
            PDN-JHK-5423N 木板1 200*120*10mm個 1 本色
            PDN-JHK-5427N 木板5250*120*12mm 個 1 本色
更新为:編碼名稱規格單位用量顏色
PDN-JHK-5423N    木板 190*120*10mm 個 2 黑色
PDN-JHK-5427N 木板5  290*120*10mm個 2 黑色

yah760911 · 发表于 2012-5-9 16:08

不知这样表达版主能否明白意思

yah760911 · 发表于 2012-5-9 09:06

重新上传,版主看下能否打开?

zhaogang1960 · 发表于 2012-5-9 10:38

yah760911 发表于 2012-5-9 09:06
重新上传,版主看下能否打开?

没有理解，只能写在下面

Sub Macro1()
Dim arr, MyPath$, MyName$, sh As Worksheet, sht As Worksheet
arr = [a1].CurrentRegion.Offset(1)
lr = UBound(arr) - 1
MyPath = ThisWorkbook.Path & "\表"
MyName = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While MyName <> ""
With Workbooks.Open(MyPath & MyName)
For Each sh In .Sheets
sh.Cells(sh.[a1].CurrentRegion.Rows.Count + 1, 4).Resize(lr, 5) = arr
Next
.Close True
End With
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

复制代码

zhaogang1960 · 发表于 2012-5-9 10:39

请看附件

测试.rar (23.17 KB, 下载次数: 15)

yah760911 · 发表于 2012-5-9 12:26

运行后"表"里的工作表里的数据并没有改变,用量也未变成 2

yah760911 · 发表于 2012-5-9 13:53

在线等待!!!

yah760911 · 发表于 2012-5-14 08:23

版主，我有多个象“表”这样的文件夹，结果运行不了。可否改下可以执行多个文件夹的语句

		自动登录	找回密码
密码			免费注册

[求助] 如何把一个工作簿中的值填到多个工作簿的工作表中