Giúp sửa Code lấy giử liệu từ File đang đóng (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
em có xem đoạn code lấy giữ liệu từ File đang đóng của Anh Ndu

Sub GetData(sFile As String, sSheet As String, sAddr As String, Target As Range)
  Dim pLink As String
  If Len(Dir(sFile)) Then
    pLink = "'" & Replace(sFile, Dir(sFile), "[" & Dir(sFile) & "]") & sSheet & "'!"
    With Range(sAddr)
      With Target.Resize(.Rows.Count, .Columns.Count)
        .FormulaArray = "=" & pLink & sAddr
        .Value = .Value
      End With
    End With
  End If
End Sub

Sub Test()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\Source.xls"
  sSheet = "Sheet1"
  sAddr = "A1:o25000"
  GetData sFile, sSheet, sAddr, Range("A1")
End Sub

Nhưng có cái em chưa thấy chính xác là nếu bên dữ liệu file Source trống trống thì khi xuất ra cũng phải trống trống chứ hiện tại lại xuất ra là 0. nhờ mọi người sửa lại giúp ( Làm sao làm miễn sao bên file Source nó ra làm sao thì File Maind cũng y vậy kiếu như copy Paste value ). Xin chân thành cảm ơn