导出文件输入数据后自动更新到导入文件对应的表格内

宝玉66

老师,导出文件输入数据后自动更新到导入文件对应的表格内.

ykcbf1100

报告表全部数据复制过去吗？

宝玉66

ykcbf1100 发表于 2024-3-25 20:58
报告表全部数据复制过去吗？

老师，对应的表的数据全部以文本的格式复杂过去。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024,3,25
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("Press_月度实盘报告")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .Range("a10:o" & r)
   
6.     End With
   
7.     p = ThisWorkbook.Path & ""
   
8.     f = p & "导入文件.xlsx"
   
9.     Set wb = Workbooks.Open(f, 0)
   
10.     With wb.Sheets("Press_月度实盘报告")
    
11.         .[a10:o10000] = ""
    
12.         .[a10].Resize(UBound(arr), UBound(arr, 2)).NumberFormatLocal = "@"
    
13.         .[a10].Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.     End With
    
15.     wb.Close 1
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "OK！"
    
18. End Sub
    
19. 
    

复制代码

宝玉66

宝玉66 发表于 2024-3-25 21:07
老师，对应的表的数据全部以文本的格式复杂过去。

老师，我想把截图的4个文件数据复制过去。

ykcbf1100

宝玉66 发表于 2024-3-25 21:24
老师，我想把截图的4个文件数据复制过去。

好吧，4个表同时更新数据。

ykcbf1100

4个表同时更新数据。

1. Sub ykcbf()  '//2024,3,26
   
2.     Application.ScreenUpdating = False
   
3.     bt = [{1,1,1,9}]
   
4.     fns = [{"Press","SAP-Coois","SAP-MB51","Press_月度实盘报告"}]
   
5.     p = ThisWorkbook.Path & ""
   
6.     Set ws = ThisWorkbook
   
7.     f = p & "导入文件.xlsx"
   
8.     Set wb = Workbooks.Open(f, 0)
   
9.     For x = 1 To UBound(fns)
   
10.         With ws.Sheets(fns(x))
    
11.             r = .Cells(Rows.Count, 1).End(3).Row
    
12.             c = .UsedRange.Columns.Count
    
13.             arr = .Cells(bt(x) + 1, 1).Resize(r - bt(x), c)
    
14.         End With
    
15.         With wb.Sheets(fns(x))
    
16.             .Cells(bt(x) + 1, 1).Resize(10000, c) = ""
    
17.             .Cells(bt(x) + 1, 1).Resize(UBound(arr), c).NumberFormatLocal = "@"
    
18.             .Cells(bt(x) + 1, 1).Resize(UBound(arr), c) = arr
    
19.         End With
    
20.     Next
    
21.     wb.Close 1
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码