Cần viết Code đang đứng ở File A.xls hiện MsgBox ghi tên của 3 File Excel đang mở kia (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Trên màn hình máy tính đang mở 4 File Excel. File Excel hiện hành (Active Workbook) đang làm việc tên là A.xls.
=> Vấn đề được đặt ra ở đây là: Có Code nào ở File A.xls hiện MsgBox biết được tên của 3 File Excel đang mở kia không?
Note: Biết rằng chỉ có 4 File Excel là đang mở thôi.
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

 

[VMH0307]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Trên màn hình máy tính đang mở 4 File Excel. File Excel hiện hành (Active Workbook) đang làm việc tên là A.xls.
=> Vấn đề được đặt ra ở đây là: Có Code nào ở File A.xls hiện MsgBox biết được tên của 3 File Excel đang mở kia không?
Note: Biết rằng chỉ có 4 File Excel là đang mở thôi.
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

Bạn thử đoạn code đơn giản này xem sao
[gpecode=vb]
Sub NameDisplay()
Dim wb As Workbook
Dim str As String
For Each wb In Application.Workbooks
str = str & vbCr & wb.Name
Next
MsgBox str
End Sub[/gpecode]

 

[hung2412]

Bạn thử đoạn code đơn giản này xem sao
[gpecode=vb]
Sub NameDisplay()
Dim wb As Workbook
Dim str As String
For Each wb In Application.Workbooks
str = str & vbCr & wb.Name
Next
MsgBox str
End Sub[/gpecode]

Cảm ơn bạn, Code này rất hay. Tuy nhiên, Code này hiện cả tên File đang đứng để gọi Code (Cụ thể ở đây là File A.xls) => Có cách nào chỉ hiện tên của 3 File kia thôi không bạn?.

 

[phihndhsp]

Cảm ơn bạn, Code này rất hay. Tuy nhiên, Code này hiện cả tên File đang đứng để gọi Code (Cụ thể ở đây là File A.xls) => Có cách nào chỉ hiện tên của 3 File kia thôi không bạn?.

Tại sao bạn không biết thêm đk vô ta????????..

 

[hung2412]

Tại sao bạn không biết thêm đk vô ta????????..

Cảm ơn bạn đã chỉ giáo. Chắc là vầy:
[GPECODE=vb]Sub NameDisplay()
Dim wb As Workbook
Dim str As String
For Each wb In Application.Workbooks
If wb.Name <> "A.xls" Then
str = str & vbCr & wb.Name
End If
Next
MsgBox str
End Sub[/GPECODE]