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
352
Được thích
233
Điểm
410
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,488
Được thích
4,353
Đ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
352
Được thích
233
Điểm
410
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