Lấy tên sheets (chỉ lấy tên các sheets là số)

[phanngoctrai1981]

Kinh gửi: Các Anh/Chị
Yêu cầu:
- Em muốn lấy tên các sheets từ file " book1 23" (Chỉ lấy các sheets có tên là số)
- Dán vào dòng 2 cột 3
Em đã làm được code này và nó chi mới lấy được tất cả các sheets có trong file đó thôi.
Sub laytensheet1()
Dim i As Integer
' Quet qua các sheet co trong file "book1 23"
For i = 1 To Workbooks("Book1 23").Worksheets.Count
For Each ws In ThisWorkbook.Worksheets
If IsNumeric(ws.Name) = True Then
' dan vào vi tri tai file "book1"
ThisWorkbook.Worksheets(1).Cells(1 + i, 3) = Workbooks("Book1 23").Worksheets(i).Name
End If
Next
Next
End Sub
Mong mọi người xem qua giúp thêm theo yêu cầu. Em cảm ơn
Có file ví dụ kèm theo.

 

[BuiQuangThuan]

- Em muốn lấy tên các sheets từ file " book1 23" (Chỉ lấy các sheets có tên là số)

Cái book123 ấy làm gì có sheet nào là số mà lấy. Anh phải lấy ví dụ có tâm 1 chút chứ.

 

[Hoàng Tuấn 868]

Cái book123 ấy làm gì có sheet nào là số mà lấy. Anh phải lấy ví dụ có tâm 1 chút chứ.

Nếu người giúp mà có siêu tâm thì đã tạo ra sheet có tên là số để thử ngay.

 

[phanngoctrai1981]

Cái book123 ấy làm gì có sheet nào là số mà lấy. Anh phải lấy ví dụ có tâm 1 chút chứ.

Có 5 sheet mà ( trong do có sheet 44 và sheet 5 đó)

 

[Hoàng Tuấn 868]

Có 5 sheet mà ( trong do có sheet 44 và sheet 5 đó)

Đây là ảnh của Book1 23.

 

[LuuAnh980]

Không có bạn ơi. Bạn coi lại đi.

 

[VetMini]

Đây là ảnh của Book1 23.
...

Cái ảnh này chỉ cho thấy các sheets visible thôi.
Nếu muốn nhìn thấy tất cả các sheets thì phải dùng VBE.

Sheet2 hidden:



Xem mục cuối cùng, Visible:

 

[ptm0412]

Thuật toán sai. Hai file khác nhau, số sheet khác nhau, tên sheet khác nhau, mà chạy 2 vòng lặp lồng nhau theo 2 bộ tên sheet. Code chạy 2 vòng lặp là 3 x 3 = 9 lần, trong đó Sheet "123" chạy 3 lần, ra 3 kết quả của file còn lại.