把数据合并到一张工作表，如何清除外部数据源链接提示

13771505278

    Set w1 = Worksheets("汇总表")
   
   
    path = InputBox("请输入工作簿所在文件的地址：") & "\"
   
   
    filename = Dir(path)
        
        
    Do While filename <> ""
        
        
        count = count + 1
        
            
        Set w = Workbooks.Open(path & filename)
        
        
        For m = 1 To w.Worksheets.count
            
            If InStr(w.Worksheets(m).Name, "商业承兑汇票") > 0 Then
            
                i = 6
               
                Do While w.Worksheets(m).Cells(i, 3) <> ""
                    
                    Set a = Range(w.Worksheets(m).Cells(i, 1), w.Worksheets(m).Cells(i, 40))
                    
                    b = a
                    
                    Range(w1.Cells(j, 1), w1.Cells(j, 40)) = b
                    
                    j = j + 1
                    
                    i = i + 1
               
                Loop
            
            End If
        
        Next m
        
        
        w.Close
        
        
        filename = Dir
   
   
    Loop


当执行到标红色这一行时，就是打开文件的时候，有这样的提示，怎么可以不显示这个请示？

13771505278

请大神指导一下啊