使用VBA将多文件固定2行数据改为不同数值

雷沛qaz

使用VBA将多文件固定2行数据改为不同数值，详见附件EXCLE文档和图片说明，感谢师傅们的辛苦。

雷沛qaz

使用VBA批量修改固定值

小凡、、、

.b5r的文件能用表格打开？

雷沛qaz

小凡、、、 发表于 2024-7-27 13:46
.b5r的文件能用表格打开？

可以的，只是我不会

雷沛qaz

按这种格式修改最好

小凡、、、

效率很低，暂时没有想到别的好办法

雷沛qaz

小凡、、、 发表于 2024-7-27 14:54
效率很低，暂时没有想到别的好办法

能用就行。文档能发出发不

小凡、、、

雷沛qaz 发表于 2024-7-27 15:03
能用就行。文档能发出发不

被我删了

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.27
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     a = [{"1","2","3"}]
   
6.     b = [{"3996.8-4002.2","4002.2-3996.8","6655.6-4466.4"}]
   
7.     c = [{83,96}]
   
8.     For x = 1 To UBound(a)
   
9.         s = a(x)
   
10.         d(s) = b(x)
    
11.     Next
    
12.     p = ThisWorkbook.Path & ""
    
13.     For Each f In fso.GetFolder(p).Files
    
14.         If LCase$(f.Name) Like "*.b5r" Then
    
15.             fn = fso.GetBaseName(f)
    
16.             If d.exists(fn) Then
    
17.                 t = Split(d(fn), "-")
    
18.                 Set wb = Workbooks.Open(f, 0)
    
19.                 With wb.Sheets(1)
    
20.                     .Cells(c(1), 1) = Val(t(0))
    
21.                     .Cells(c(2), 1) = Val(t(1))
    
22.                 End With
    
23.                 wb.Close 1
    
24.             End If
    
25.         End If
    
26.     Next f
    
27.     Application.ScreenUpdating = True
    
28.     Set d = Nothing
    
29.     MsgBox "OK！"
    
30. End Sub
    
31. 
    

复制代码