Lấy tên của tất cả workbook đang mở

[nguyenthuy13388]

Chào các anh chị

Em đang tìm cách lấy tên và định dạng (.xls hoặc .xlsx hoặc .xlsb hoặc .xlsm) của tất cả các workbook đang mở ghi vào cột A (từ ô A1 đến An)

Anh/chị nào biết chỉ giúp em với

Em xin cảm ơn ạ

 

[phulien1902]

Chào các anh chị

Em đang tìm cách lấy tên và định dạng (.xls hoặc .xlsx hoặc .xlsb hoặc .xlsm) của tất cả các workbook đang mở ghi vào cột A (từ ô A1 đến An)

Anh/chị nào biết chỉ giúp em với

Em xin cảm ơn ạ

Bạn thử:

Sub Test()
    Dim i&, wb As Workbook
    With ActiveSheet.Columns(1)
        .ClearContents
        i = 1
        For Each wb In Application.Workbooks
            If wb.Windows(1).Visible Then
                i = i + 1
                Cells(i, 1).Value = wb.Name
            End If
        Next wb
    End With
End Sub

 

[nguyenthuy13388]

Bạn thử:

Sub Test()
    Dim i&, wb As Workbook
    With ActiveSheet.Columns(1)
        .ClearContents
        i = 1
        For Each wb In Application.Workbooks
            If wb.Windows(1).Visible Then
                i = i + 1
                Cells(i, 1).Value = wb.Name
            End If
        Next wb
    End With
End Sub

Cảm ơn anh nhiều ạ