如何从另一个工作薄中导入数据，不是工作表

Elites

1. Sub SelectFiles()
   
2.     Dim filter As String
   
3.     Dim fileToOpen
   
4.     filter = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _
   
5.             "Text Files(*.txt),*.txt,Excel Files(*.xl*), * .xl * "
   
6.     fileToOpen = Application.GetOpenFilename(filefilter:=filter, FilterIndex:=4, Title:="请选择文件", MultiSelect:=True)
   
7.     If Not IsArray(fileToOpen) Then
   
8.         MsgBox "你没有选择文件", vbOKOnly, "提示"
   
9.     Else
   
10.         For Each a In fileToOpen
    
11.             Workbooks.Open Filename:=a
    
12.         Next
    
13.     End If
    
14.    
    
15.     Sheets("Sheet1").Select
    
16.     ActiveCell.CurrentRegion.Select  '全选
    
17.     Selection.Copy '复制
    
18.     ActiveWorkbook.Close Savechanges:=True  '保存并关闭（不提示）
    
19.     Sheets("Sheet2").Select
    
20.     Range("A1").Select
    
21.     ActiveSheet.Paste   '粘贴

复制代码

代码如上，目的：在工作簿A运行宏，打开工作簿B,将工作薄B中表1数据全部复制，关闭打开的工作簿B,将剪贴板的数据粘贴到工作簿A的表2中。

问题：在工作簿B数据少的时候，代码运行流畅，但是在工作簿B数据量大的时候，代码运行到关闭工作薄B的时候，跳出提示剪贴板中数据太多是否保留，如图
请高手指教：如何自动保留剪贴板上的信息并且关闭工作薄B，不弹窗。

lss001

在Sub SelectFiles()下加入屏蔽提示
Application.DisplayAlerts = False
..................
在End Sub上面加入
Application.DisplayAlerts = True

Elites

lss001 发表于 2023-2-22 18:53
在Sub SelectFiles()下加入屏蔽提示
Application.DisplayAlerts = False
..................

感谢指教，学习了