Страницы: 1
RSS
После выполнения макроса не видно лист
 
Есть книга А с нехитрым макросом. Макрос книги А получает в качестве объекта книгу B, выборочно копирует из книги B в книгу А данные, производит их обработку и отсылает результат обратно в книгу В, после чего сохраняет книгу В. Если после выполнения макроса вручную открыть книгу В, то в ней ничего нет, точнее не видно листа с данными, хотя до выполнения макроса всё было видно. При этом, если обратиться к книге В через макрос, то видно, что данные там всё-таки есть, они накапливаются в соответствии с алгоритмом и никуда не исчезают. Почему лист может стать невидимым,при том, что в макросе практически нет никаких команд кроме GetObject, Copy, Paste, Sort и Save?
 
Так и должно быть. Добавьте перед сохранением строку:  
windows(имяфайла).visible=true
Я сам - дурнее всякого примера! ...
 
чтобы не напутать с именем файла, можно и так написать:  
windows(1).visible=true
 
Игорь, windows(1) это активная в данный момент книга. Та, что получена через getobject, по идее будет последней(включая personal и т.д.). Или я чегото недопонимаю?
Я сам - дурнее всякого примера! ...
 
Можно выполнить макрос:  
Public Sub www()  
   Dim w, o  
   Set o = GetObject("D:\DOKUMENT\EXCEL\ALLCAL.XLS")  
'    Windows(o.Name).Visible = True  
   For Each w In Windows  
       Debug.Print w.Caption  
   Next  
   o.Close 0  
End Sub  
а потом раскомментировать строку и опять выполнить(имя файла свое подставить).  
В окне immediate сразу видна разница.
Я сам - дурнее всякого примера! ...
 
Благодарю за помощь
Страницы: 1
Читают тему
Наверх