两个EXCEL文件内容的信息同步求助

qcf

已知一个EXCEL文件，文件名：原文件；
已知另一个EXCEL文件，文件名：需要将原文件指定sheet内容同步过来
需求：将第一个文件的A2至AP10000同步至第二个EXCEL中。

提醒：
1、只同步数据信息，数据格式保持不变，如果有公式，则不同步公式，只同步数据。
2、每次点击一次，就是重新同步一次最新的数据，是对原来该sheet中数据的一次全覆盖。
3、只对A2至AP10000进行一次全覆盖，其他单元格不做覆盖。

请高手帮忙

dxq92

1. Sub copyshett()
   
2.    
   
3.     Dim book1 As Workbook
   
4.     Dim mupatch As String
   
5.    
   
6.     mypatch = ActiveWorkbook.Path
   
7.     Set book1 = Workbooks.Open(mypatch & "\原文件.xlsx")
   
8.     book1.Worksheets("原文件").[a2].Resize(9999, 2).Copy Workbooks("需要将原文件指定sheet内容同步过来.xlsx").Worksheets("同步数据").[a2]
   
9. 
   
10. 
    
11. End Sub
    

复制代码

dxq92

修改了一下

1. Sub copysheet()
   
2.    
   
3.     Dim book1 As Workbook
   
4.     Dim mypatch As String
   
5.     Dim myname As String
   
6. 
   
7.     mypatch = ActiveWorkbook.Path
   
8.     myname = ActiveWorkbook.Name
   
9.     With Workbooks(myname).Worksheets("同步数据")
   
10.         .[a2].Resize(9999, 42).clearcontents
    
11.         Set book1 = Workbooks.Open(mypatch & "\原文件.xlsx")
    
12.         book1.Worksheets(1).[a2].Resize(9999, 42).Copy Workbooks(myname).Worksheets(1).[a2]
    
13.         book1.Close
    
14.         ThisWorkbook.Save
    
15.     End With
    
16. 
    
17. End Sub

复制代码

qcf

dxq92 发表于 2020-2-2 21:43

好像没有成功，只同步了两列数据

dxq92

qcf 发表于 2020-2-2 22:08
好像没有成功，只同步了两列数据

用第二个，第一个你把9999，2 修改为 9999，42

qcf

dxq92 发表于 2020-2-2 21:43

搞定了，非常感谢帮忙

qcf

dxq92 发表于 2020-2-2 21:53
修改了一下

你好，能否弄一个通用的，包括EXCEL文件名啥的都可以自由修改的，包括宏文件或者没有启用宏文件的原文件。总是报错