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

Nhattanktnn · 22/6/20

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:
https://www.giaiphapexcel.com/diendan/threads/lấy-danh-sách-tên-các-sheet-từ-file-excel.25407/

VetMini · 22/6/20

Cái code nào, ở bài số mấy GẦN NHẤT với yêu cầu của bạn thì nêu ra đây.
Hy vọng sẽ có người chỉ cho cách chỉnh sửa.

Nếu bạn khong nếu ra nổi cái gần nhất thì nên quên đi. Trình chưa đủ.

thanhphongtslocphat · 22/6/20

Bạn chuyển file lên đi. Nói rõ yêu cầu mình làm cho

Nhattanktnn · 22/6/20

VetMini đã viết:
Cái code nào, ở bài số mấy GẦN NHẤT với yêu cầu của bạn thì nêu ra đây.
Hy vọng sẽ có người chỉ cho cách chỉnh sửa.

Nếu bạn khong nếu ra nổi cái gần nhất thì nên quên đi. Trình chưa đủ.

Code ở bài #10 ra kết quả gần nhất ạ, nhưng vấn đề là em muốn ra chi tiết trên file excel chứ không phải hiển thị trên form như vậy, vì em còn căn cứ vào đó để link lấy dữ liệu nữa ạ, em đính kèm luôn file kết quả mong muốn để bác dễ hình dung

Bài đã được tự động gộp: 22/6/20

thanhphongtslocphat đã viết:
Bạn chuyển file lên đi. Nói rõ yêu cầu mình làm cho

Mình gửi file lên, bạn xem giúp mình nhé. Chân thành cảm ơn

nguyenthuy13388 · 22/6/20

Nhattanktnn đã viết:
Code ở bài #10 ra kết quả gần nhất ạ, nhưng vấn đề là em muốn ra chi tiết trên file excel chứ không phải hiển thị trên form như vậy, vì em còn căn cứ vào đó để link lấy dữ liệu nữa ạ, em đính kèm luôn file kết quả mong muốn để bác dễ hình dung

Bài đã được tự động gộp: 22/6/20

Mình gửi file lên, bạn xem giúp mình nhé. Chân thành cảm ơn

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

Mã:

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*" 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

Nhattanktnn · 22/6/20

nguyenthuy13388 đã viết:

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

Mã:

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*" 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

Mình thử nhưng không được bạn à, sau khi chạy code thì module để insert code cũng mất luôn

HieuCD · 22/6/20

Nhattanktnn đã viết:
Mình thử nhưng không được bạn à, sau khi chạy code thì module để insert code cũng mất luôn

Thêm 2 điều kiện để mở file FObj: tên file khác tên file chính, và không phải file tạm của Excel

nguyenthuy13388 · 22/6/20

Nhattanktnn đã viết:
Mình thử nhưng không được bạn à, sau khi chạy code thì module để insert code cũng mất luôn

Sửa lại như dưới đây nhé:

Mã:

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

Nhattanktnn · 22/6/20

nguyenthuy13388 đã viết:

Sửa lại như dưới đây nhé:

Mã:

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

Giờ xuất ra danh sách được rồi, mình test với folder mình đang làm có tới 55 file excel, nhưng nó chỉ chạy tới file 54 và file cuối cùng nó báo lỗi như này, 1 file thì mình làm tay cũng được nhưng nhờ bạn xem lại code giúp mình cho nó hoàn thiện

nguyenthuy13388 · 22/6/20

HieuCD đã viết:
và không phải file tạm của Excel

Anh giải thích giúp em "File tạm" của excel là gì? và cách đặt điều kiện cho trường hợp này là gì với ạ?

Thật ra code này còn thiếu điều kiện nữa là file chứa pass cũng bị báo lỗi nữa, em định đặt bẫy lỗi cho phần này những để do không có nhiều thời gian để sửa và cũng là để chủ thớt tự nghiên cứu thêm khi gặp lỗi này.

Bài đã được tự động gộp: 22/6/20

Nhattanktnn đã viết:
Giờ xuất ra danh sách được rồi, mình test với folder mình đang làm có tới 55 file excel, nhưng nó chỉ chạy tới file 54 và file cuối cùng nó báo lỗi như này, 1 file thì mình làm tay cũng được nhưng nhờ bạn xem lại code giúp mình cho nó hoàn thiện
View attachment 239753
View attachment 239754

có thể file thứ 55 có đặt pass

Nhattanktnn · 22/6/20

nguyenthuy13388 đã viết:
Anh giải thích giúp em "File tạm" của excel là gì? và cách đặt điều kiện cho trường hợp này là gì với ạ?

Thật ra code này còn thiếu điều kiện nữa là file chứa pass cũng bị báo lỗi nữa, em định đặt bẫy lỗi cho phần này những để do không có nhiều thời gian để sửa và cũng là để chủ thớt tự nghiên cứu thêm khi gặp lỗi này.

Bài đã được tự động gộp: 22/6/20

có thể file thứ 55 có đặt pass

Ồ, đúng là file này có vấn đề, không đặt pass nhưng yêu cầu repair khi mở. vậy giả sử nếu file này nó nằm giữa thì bẫy lỗi bỏ qua chạy sang file khác được không? và kết hợp msgbox chạy được bao nhiêu file để mình dò lại đúng số lượng file trong folder đó chưa?

nguyenthuy13388 · 22/6/20

Nhattanktnn đã viết:
Ồ, đúng là file này có vấn đề, không đặt pass nhưng yêu cầu repair khi mở. vậy giả sử nếu file này nó nằm giữa thì bẫy lỗi bỏ qua chạy sang file khác được không?

Đúng rồi đó bạn, bạn thử là biết ngay

Nhattanktnn · 22/6/20

nguyenthuy13388 đã viết:
Đúng rồi đó bạn, bạn thử là biết ngay

Bạn thêm giúp mình msgbox chạy được bao nhiêu file trên tổng số bao nhiêu file nữa đi. mình cảm ơn

nguyenthuy13388 · 22/6/20

Nhattanktnn đã viết:
Bạn thêm giúp mình msgbox chạy được bao nhiêu file trên tổng số bao nhiêu file nữa đi. mình cảm ơn

Mình nghĩ bạn đã biết cách làm thì nên bỏ thêm chút thời gian mà tìm hiểu và tự viết thì tốt hơn

HieuCD · 22/6/20

nguyenthuy13388 đã viết:
Anh giải thích giúp em "File tạm" của excel là gì? và cách đặt điều kiện cho trường hợp này là gì với ạ?

Thật ra code này còn thiếu điều kiện nữa là file chứa pass cũng bị báo lỗi nữa, em định đặt bẫy lỗi cho phần này những để do không có nhiều thời gian để sửa và cũng là để chủ thớt tự nghiên cứu thêm khi gặp lỗi này.

Bài đã được tự động gộp: 22/6/20

có thể file thứ 55 có đặt pass

Excel tạo file tạm lưu các thao tác xử lý, file tạm dùng để phục hồi file làm việc khi excel bị đóng không đúng như cúp điện
File tạm có ký tự đầu tiên là "~"

nguyenthuy13388 · 23/6/20

HieuCD đã viết:
Excel tạo file tạm lưu các thao tác xử lý, file tạm dùng để phục hồi file làm việc khi excel bị đóng không đúng như cúp điện
File tạm có ký tự đầu tiên là "~"

cảm ơn anh nhiều ạ

Nhattanktnn · 23/6/20

nguyenthuy13388 đã viết:
Mình nghĩ bạn đã biết cách làm thì nên bỏ thêm chút thời gian mà tìm hiểu và tự viết thì tốt hơn

Mã:

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, i As Long, k 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
    i = i + 1
        If Fso.GetExtensionName(FObj) Like "xls*" And FObj.Name <> Wbcu.Name Then
        On Error GoTo Boqualoi:
            With Workbooks.Open(FObj)
            k = k + 1
                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
Boqualoi:
        End If
    Next FObj
End If
MsgBox "Da kiem tra " & k & "/" & i & " file"
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .AskToUpdateLinks = True
End With
End Sub

Vậy thêm như này có được không bạn? Bạn xem qua giúp mình sửa vậy có vấn đề gì không?

Nhattanktnn · 24/6/20

HieuCD đã viết:
Thêm 2 điều kiện để mở file FObj: tên file khác tên file chính, và không phải file tạm của Excel

Đúng là bác HieuCD nhìn xa trông rộng thật, giờ điều kiện với file tạm là như nào vậy bác, em học kiểu chắp vá nên cái biết cái không, tìm google thì chưa tìm ra được

nguyenthuy13388 · 24/6/20

Nhattanktnn đã viết:
View attachment 239875
Đúng là bác HieuCD nhìn xa trông rộng thật, giờ điều kiện với file tạm là như nào vậy bác, em học kiểu chắp vá nên cái biết cái không, tìm google thì chưa tìm ra được

Bác ấy trả lời rồi mà bạn: File tạm có ký tự đầu tiên là "~" ==> Đặt thêm điều kiệu: left(FObj.Name,1)<>"~"

Nhattanktnn · 24/6/20

nguyenthuy13388 đã viết:
Bác ấy trả lời rồi mà bạn: File tạm có ký tự đầu tiên là "~" ==> Đặt thêm điều kiệu: left(FObj.Name,1)<>"~"

Thành thật xin lỗi, mình không để ý kỹ! Nãy mình cũng có thấy file tạm có dạng "~$" nên mình đưa nó vào làm điều kiện rồi. cảm ơn bạn nhé

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

Thành viên gắn bó

Ăn cùng góc phố

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên thường trực

Thành viên gắn bó

Chuyên gia GPE

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Chuyên gia GPE

Thành viên thường trực

Thành viên gắn bó

Thành viên gắn bó

Thành viên thường trực

Thành viên gắn bó