求助各位老师有关2个表之间的关联

wl_seigaku

各位老师好：
              A文件夹中会每次按顺序（001,002,~999）新建一个，表格格式不会变，就里面的内容会每次不一样；B文件夹中的文件也是按顺序001，002~999；而B文件里的表格数据是来自于A表格的内容；
我现在用的是笨办法，先在A文件夹内预先新建好A001~A00N excel表格，内容全部为空；再在B文件夹内同样新建相同数量的EXCEL文件B001~B00N，内容同样为空；再做粘贴链接A001和B001，A00N和B00N做对应；是否有更便捷的方式，我在B文件夹里新建好B002后自动对应到A002里的数据！

wl_seigaku

我在A文件夹中新建好A005后，输入数据；再在B文件夹里新建B005，打开B005后 A005里的数据就过来了。我想不要每次新建一个 做一次粘贴链接

看见星光

wl_seigaku 发表于 2015-8-11 11:53
我在A文件夹中新建好A005后，输入数据；再在B文件夹里新建B005，打开B005后 A005里的数据就过来了。我想不 ...

B文件夹和A文件夹的工作簿内容相比，有什么变化呢？这个是重点的。如果没有变化，复制黏贴更改下工作簿名称就好了？如果有变化，说一下，才好知道哪种方法快捷

wl_seigaku

看见星光 发表于 2015-8-11 12:00
B文件夹和A文件夹的工作簿内容相比，有什么变化呢？这个是重点的。如果没有变化，复制黏贴更改下工作簿名 ...

B文件夹中工作簿内容只选取一小部分（几列数据）A文件夹中工作簿内容；格式完全不一样。

看见星光

wl_seigaku 发表于 2015-8-11 12:24
B文件夹中工作簿内容只选取一小部分（几列数据）A文件夹中工作簿内容；格式完全不一样。

可以一键生成的：

1. Sub wl_seigaku()
   
2. Dim path$, ws As Workbook
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. pat = ThisWorkbook.path & ""
   
6. path1 = pat & "A"
   
7. path2 = pat & "B"
   
8. d = Dir(path1 & "*.xls")
   
9.     Do While d <> ""
   
10.         Set ws = Workbooks.Open(path1 & d)
    
11.         [a:a].Insert
    
12.         [a1] = "序号"
    
13.         [e1] = "备注"
    
14.         s = Replace(ws.Name, "A", "B")
    
15.         ws.SaveAs path2 & s
    
16.         ws.Close False
    
17.         d = Dir
    
18.     Loop
    
19. Application.ScreenUpdating = True
    
20. Application.DisplayAlerts = True
    
21. End Sub
    

复制代码

看见星光

打开文件夹--【运行】工作簿，点击按钮运行代码
2个表如何做关联.rar (40 KB, 下载次数: 2)

2015-8-11 12:57 上传

点击文件名下载附件