Lấy danh mục tên file và tên sheet của file excel đang đóng

Chia sẻ bởi:hands

★★★★★

‹ Tham chiếu dữ liệu từ file đóng... Lấy danh sách tên các Sheet từ... ›

Quảng cáo

Chào anh chị và các bạn GPE!

Trong một folder, mình muốn lấy tên file và tên sheet của các file trong folder đó ra một file excel mà không cần mở file lên (một folder có khoảng vài chục file excel), mọi người giúp hỗ trợ mình vấn đề này với ạ!
Mình đã xem qua link này nhưng không biết chỉnh code:
[URL='www.giaiphapexcel.com/diendan/threads/l%E1%BA%A5y-danh-s%C3%A1ch-t%C3%AAn-c%C3%A1c-sheet-t%E1%BB%AB-file-excel.25407/']www.giaiphapexcel.com/diendan/threads/lấy-danh-sách-tên-các-sheet-từ-file-excel.25407/

Thử code cùi bắp này xem sao:

Sub laytenfilevasheet()
Dim Fdl As FileDialog
Dim Fso As Object, FObj As Object
Dim Wbcu As Workbook, Wbmoi As Workbook, Ws As Worksheet
Dim Lr As Long

Set Fdl = Application.FileDialog(msoFileDialogFolderPicker)
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Wbcu = ThisWorkbook

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .AskToUpdateLinks = False
End With
If Fdl.Show <> 0 Then
    For Each FObj In Fso.GetFolder(Fdl.SelectedItems(1)).Files
        If Fso.GetExtensionName(FObj) Like "xls*" And FObj.Name <> Wbcu.Name Then

With Workbooks.Open(FObj)
                Set Wbmoi = ActiveWorkbook
                For Each Ws In Wbmoi.Worksheets
                    With Wbcu.Sheets("sheet1")
                        Lr = .Range("A50000").End(xlUp).Row + 1
                        .Range("A" & Lr).Value = Wbmoi.Name
                        .Range("B" & Lr).Value = Ws.Name
                    End With
                Next Ws
                .Close False
            End With
        End If
    Next FObj
End If

With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .AskToUpdateLinks = True
End With
End Sub

www.giaiphapexcel.com/diendan/threads/l%E1%BA%A5y-danh-m%E1%BB%A5c-t%C3%AAn-file-v%C3%A0-t%C3%AAn-sheet-c%E1%BB%A7a-file-excel-%C4%91ang-%C4%91%C3%B3ng.150349/