Xin các bác giải thích dùm đoạn code sau: (1 người xem)

[amly1980]

Đoạn code lấy dữ liệu từ file An,Hue,Dung về file tổng hợp, Nếu em muốn lấy dữ liệu chỉ File An thì sửa đoạn code như thế nào? xin cảm ơn.

 

[Kiều Mạnh]

Đoạn code lấy dữ liệu từ file An,Hue,Dung về file tổng hợp, Nếu em muốn lấy dữ liệu chỉ File An thì sửa đoạn code như thế nào? xin cảm ơn.

Code đó là mở File Excel đóng lên Copy Range(.[A2], .[A65536].End(3)).Resize(, 9) Paste sang sheet tại A65536 túm đuôi nhau vậy .... Coi code tui biết Ai viết rồi ...

 

[dovanhoc84]

Đoạn code lấy dữ liệu từ file An,Hue,Dung về file tổng hợp, Nếu em muốn lấy dữ liệu chỉ File An thì sửa đoạn code như thế nào? xin cảm ơn.

Có 2 cách: 1 là chỉ định trực tiếp tên file muốn lấy, 2 là bạn tự tìm file muốn lấy ( cách 2 tối ưu hơn do có khả năng bạn muốn lấy file khác)

Sub TongHop()
Application.ScreenUpdating = False
[COLOR=#ff0000]Dim f[/COLOR]
Dim ObjFSO As Object, ObjFile As Object, DuongDan As String, Cursh As Worksheet
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
DuongDan = ThisWorkbook.Path
Set Cursh = ActiveSheet
Cursh.[A2:I10000].ClearContents
'With ObjFSO.Getfolder(DuongDan)
'   For Each ObjFile In .Files
'      If ObjFSO.GetExtensionName(ObjFile.Name) Like "xls*" Then
'         If Not ObjFile.Name Like "~*" Then
'            If ObjFile.Name <> ThisWorkbook.Name Then
'                With Workbooks.Open(ObjFSO.GetAbsolutePathName(ObjFile))
'#############################################
'# cach 1: mở trực tiêp theo tên file chỉ định sẵn
     Application.Workbooks.Open (DuongDan & "\" & "[COLOR=#ff0000]tên file chỉ định.xls*[/COLOR]")
'#############################################
'# Cach 2: được phép chọn file muốn lấy
    f = Application.GetOpenFilename("Excel Files(*.xls*), *.xls*", , "Chon file muon doc", False)
    If f = False Then Exit Sub
    Workbooks.Open f
' Den day la het cua cach 2
'#############################################
    With ActiveSheet
        Range(.[A2], .[A65536].End(3)).Resize(, 9).Copy
        Cursh.[A65536].End(3).Offset(1).PasteSpecial 1
        Application.CutCopyMode = False
    End With
'                    .Close False
'                End With
'            End If
'         End If
'      End If
'   Next
'End With
[COLOR=#ff0000]Cursh.Activate[/COLOR]
Application.ScreenUpdating = True
End Sub