06.01.2007, 15:06
|
|
|
Местный
Регистрация: 14.11.2003
Сообщений: 208
|
RE: помогите
Код 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Sub asfdaf()
Dim ww As Workbook
Dim sh As Worksheet
For Each ww In Application.Workbooks
For Each sh In ww.Worksheets
Debug.Print "Sheet:" & sh.Name & " at workbook:" & ww.Name
Next
Next
End Sub
|
Думаю дальше сам сможешь
|
|
|