请老师帮助修改代码。

20090930

下面的代码是显示所有已经打开了的文件名，如果只限制指定路径的某文件夹的打开了的文件名，要怎样修改呢？请老师帮助。
Dim T
T = 1
For Each Workbook In Workbooks
If Workbook.Name <> ActiveWorkbook.Name Then
Cells(T, 1) = Workbook.Name
T = T + 1
End If
Next

ruoyunruyan

1. Sub sdg()
   
2. Dim T, wb As Workbook
   
3. T = 1
   
4. For Each wb In Workbooks
   
5. If wb.Name <> ActiveWorkbook.Name Then
   
6. Cells(T, 1) = wb.Name
   
7. T = T + 1
   
8. End If
   
9. Next
   
10. End Sub

复制代码

wjcmouse

1. Sub test()
   
2. Dim wb As Workbook, t%
   
3. t = 1
   
4.     For Each wb In Workbooks
   
5.         If wb.Path = ThisWorkbook.Path And wb.Name <> ThisWorkbook.Name Then
   
6.             Cells(t, 1) = wb.Name
   
7.             t = t + 1
   
8.         End If
   
9.     Next
   
10. 
    
11. End Sub

复制代码

我这边测试一下，应该是可以的。

wdx223

感觉应该建立一个数组，最后一次性写入，效率会高一点