|
|
|
новичок
участник
Last Login: 07.01.2007 16:56
Сообщ.: 1,
Visits: 6
|
|
| Программка простенькая, но не могу никак к ней подойти, может кто чем поможет...Надо среди всех открытых книг найти те, на листах которых есть ячейка со словом итог, и записать имена этих книг в активный лист...Может кто знает.буду очень благодарна...
|
|
|
|
|
Supreme Being
участник
Last Login: 10.08.2007 15:25
Сообщ.: 234,
Visits: 2 142
|
|
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
Думаю дальше сам сможешь
|
|
|
|