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

nguyenthuy13388

Thành viên thường trực
Tham gia ngày
13 Tháng một 2012
Bài viết
319
Được thích
192
Điểm
395
Nơi ở
Hải Phòng
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

GPE - My love
Tham gia ngày
6 Tháng bảy 2013
Bài viết
3,406
Được thích
4,220
Điểm
560
Nơi ở
Hải Phòng
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ử:
PHP:
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

Thành viên thường trực
Tham gia ngày
13 Tháng một 2012
Bài viết
319
Được thích
192
Điểm
395
Nơi ở
Hải Phòng
Bạn thử:
PHP:
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 ạ
 
Top Bottom