用VBA备份与恢复数据

yuliangexcel

备份按钮实现以下功能：
将该工作簿中的sheet2试验数据库（该工作表隐藏状态）中的A:H列数据复制到同目录下的另一工作簿“备份.xlsx”中的表sheet1中去。
复制过程中“备份.xlsx”处于最小化状态，复制结束后“备份.xlsx”保存关闭。

恢复数据按钮实现以下功能：
打开备份.xlsx，将数据反向复制回去。

ykcbf1100

你就一个空表，别人帮不了你。

yuliangexcel

ykcbf1100 发表于 2024-5-1 07:09
你就一个空表，别人帮不了你。

表中不需要什么啊，再看看

ykcbf1100

yuliangexcel 发表于 2024-5-1 07:29
表中不需要什么啊，再看看

写代码不需要调试吗？

明天会更好zj

ykcbf1100 发表于 2024-5-1 07:30
写代码不需要调试吗？

你太热心肠了，别人却不领情

ykcbf1100

明天会更好zj 发表于 2024-5-1 09:32
你太热心肠了，别人却不领情

也是，那没办法了。

baofa2

1. Private Sub CommandButton1_Click()
   
2.   Application.ScreenUpdating = False
   
3.   Dim strFullName As String, ran As Range
   
4.   Set ran = ThisWorkbook.Worksheets("试验数据库").Range("A:H")
   
5.   strFullName = ThisWorkbook.Path & "\" & "备份.xlsx"
   
6.   With Workbooks.Open(strFullName, 0)
   
7.     ActiveWindow.WindowState = xlMinimized
   
8.     ran.Copy .Worksheets(1).Range("A1")
   
9.     .Close True
   
10.   End With
    
11.   Set ran = Nothing
    
12.   Application.CutCopyMode = False
    
13.   Application.ScreenUpdating = True
    
14. End Sub
    
15. 
    
16. Private Sub CommandButton2_Click()
    
17.   Application.ScreenUpdating = False
    
18.   Dim strFullName As String, target As Range
    
19.   Set target = ThisWorkbook.Worksheets("试验数据库").Range("A1")
    
20.   strFullName = ThisWorkbook.Path & "\" & "备份.xlsx"
    
21.   With Workbooks.Open(strFullName, 0)
    
22.     ActiveWindow.WindowState = xlMinimized
    
23.     .Worksheets(1).Range("A:H").Copy target
    
24.     .Close False
    
25.   End With
    
26.   Set target = Nothing
    
27.   Application.CutCopyMode = False
    
28.   Application.ScreenUpdating = True
    
29. End Sub
    

复制代码

yuliangexcel

明天会更好zj 发表于 2024-5-1 09:32
你太热心肠了，别人却不领情

不要说风凉话好不，我给的表格里面有简单的数据和说明，看看下面，有人给做出来了

yuliangexcel

ykcbf1100 发表于 2024-5-1 09:40
也是，那没办法了。

你没仔细看，有简单的数据和说明，有做出来的，感谢参与。

ykcbf1100

yuliangexcel 发表于 2024-5-1 10:23
你没仔细看，有简单的数据和说明，有做出来的，感谢参与。

祝你好运！