Lấy dữ liệu từ file excel đang đóng

[hungdiep85]

Chào các Anh Chị
em sư tâm được đoạn code, mà em muốn sửa lại chổ để đường dẫn ở sheet1 A1, mà không biết sửa như thế nào, giúp em với .
Em cảm ơn trước ạ

'//AUTHOR: NGAY MOI
'//FUNCTION: LAY DU LIEU FILE DANG DONG
'//TYPE:
'/RngIn: Vung can nap du lieu Output
'/strPath: Duong dan den file Input
'/strSheet: Ten Sheet file Input
'/strRng: Vung du lieu file Input

Sub GetRng(RngIn As Range, ByVal strPath As String, ByVal strSheet As String, ByVal strRng As String)
Dim strPathArr As String
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")

'//LAP CONG THUC LAY DU LIEU TU FILE DANG DONG
strPathArr = "'" & FSO.GetFile(strPath).ParentFolder & "\[" & FSO.GetFile(strPath).Name & "]" & strSheet & "'!" & strRng

'//NAP CONG THUC
With RngIn.Resize(Range(strRng).Rows.Count, Range(strRng).Columns.Count)
.FormulaArray = "=" & strPathArr

'XOA BO CONG THUC
.Value = .Value
End With
Set FSO = Nothing
End Sub


Sub GetArrFile()
Call GetRng(Thisworkbook.Activesheet.Range("B1"), "C:\Users\IPC\Desktop\Test.xlsx", "Sheet1", "A120")
End Sub

 

[Hai Lúa Miền Tây]

Chào các Anh Chị
em sư tâm được đoạn code, mà em muốn sửa lại chổ để đường dẫn ở sheet1 A1, mà không biết sửa như thế nào, giúp em với .
Em cảm ơn trước ạ

'//AUTHOR: NGAY MOI
'//FUNCTION: LAY DU LIEU FILE DANG DONG
'//TYPE:
'/RngIn: Vung can nap du lieu Output
'/strPath: Duong dan den file Input
'/strSheet: Ten Sheet file Input
'/strRng: Vung du lieu file Input

Sub GetRng(RngIn As Range, ByVal strPath As String, ByVal strSheet As String, ByVal strRng As String)
Dim strPathArr As String
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")

'//LAP CONG THUC LAY DU LIEU TU FILE DANG DONG
strPathArr = "'" & FSO.GetFile(strPath).ParentFolder & "\[" & FSO.GetFile(strPath).Name & "]" & strSheet & "'!" & strRng

'//NAP CONG THUC
With RngIn.Resize(Range(strRng).Rows.Count, Range(strRng).Columns.Count)
.FormulaArray = "=" & strPathArr

'XOA BO CONG THUC
.Value = .Value
End With
Set FSO = Nothing
End Sub


Sub GetArrFile()
Call GetRng(Thisworkbook.Activesheet.Range("B1"), "C:\Users\IPC\Desktop\Test.xlsx", "Sheet1", "A120")
End Sub

Tôi chưa thử code của bạn, nhưng theo ý bạn thì tôi sửa lại như sau:
Chỗ "C:\Users\IPC\Desktop\Test.xlsx" vào địa chỉ A1 của sheet1 thì sửa lại thành:

Sub GetArrFile()
Call GetRng(Thisworkbook.Activesheet.Range("B1"), sheet1.range("a1"), "Sheet1", "A1:D20")
End Sub

 

[hungdiep85]

Tôi chưa thử code của bạn, nhưng theo ý bạn thì tôi sửa lại như sau:
Chỗ "C:\Users\IPC\Desktop\Test.xlsx" vào địa chỉ A1 của sheet1 thì sửa lại thành:

Sub GetArrFile()
Call GetRng(Thisworkbook.Activesheet.Range("B1"), sheet1.range("a1"), "Sheet1", "A1:D20")
End Sub

Dạ, em đã sửa được theo cách anh hướng dẫn, em cảm ơn anh nhiều.