Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Не открывается код у файла XLS
 
давно не была на форуме, но сегодня необходимость заставила
- нашла в интернете прототип макроса для формирования WORD-документа данными EXCEL
- основную корректировку сделала, все работало
- затем прервалась на пару часов

и теперь не могу открыть код, -при нажатии на Ф8 книга закрывается
лень как-то заново набивать да и понять хочется, есть ли спасение в таких случаях
Изменено: galina mur - 26.03.2023 18:00:59
Как выйти из excel (программно)
 
застряла на на таком вопросе
--открыла ексель файл с гиперссылками, но без  макросов
--шелкнула по ссылке, перешла на второй файл

из второго файла вызываю макрос из PERSONAL.XLSB
почти все, что надо --макрос делает

не делает только одно --не закрывает файлы
после мучений --стал закрывать их, но оставляет окно ексель
Код
j1 = Excel.Workbooks.Count
Do While j1 > 0
Set WB3 = Excel.Workbooks(j1)
Debug.Print j1, WB3.Name, WB3.Path & "\"
WB3.Close savechanges:=True
j1 = j1 - 1
Loop
''WB2.Close True ''''НЕ РАБОТАЕТ
Set WS1 = Nothing

Set WS2 = Nothing

Set wb = Nothing
Set WB1 = Nothing
Set WB2 = Nothing
Set WB3 = Nothing
''Excel.Application
Excel.Application.Quit
Excel.Application.ActiveWindow.Close savechanges:=True

''savechange:=True


End Sub

как получить список RANGE в листе
 
в листе есть несколько RANGE
подскажите пожалуйста, как программно вывести в новый лист
--имя текущего листа
--имя ранге
--адрес ячеек этого ранге

никак не могу найти ---дает сотни ссылок при любой формулировке запроса на поиск,но ничего приемлимого
не открывается excel файл по двойному клику из проводника или тоталь командера, ворд и аксесс открываются по ЕНТЕРУ, а ексель --нет
 
ворд и аксесс открываются по ЕНТЕРУ, а ексель --нет
где только не смотрела
--безопасность
--реестр

ничего не получается
не зпускается макрос, записала рекордером макрос e2007 'а при запуске он дает ошибку на ' ActiveSheet.Paste
 
Код
Sub М130208()''записала рекордером макрос  e2007'а при запуске он дает ошибку на' ActiveSheet.Paste'    Range("B2:J11").Select    Selection.Copy    Workbooks.Add    Application.CutCopyMode = False    ActiveSheet.PasteEnd Sub
OFF: Кнопка ПУСК убежала в правый верхний угол.
 
ЧТО ДЕЛАТЬ    
=============  
======
объединенны ячейки-сколько
 
как программно определить  
 
сколько ячеек объединено по горизонтали и вертикали
Страницы: 1
Наверх