Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/связи экселя - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » связи экселя
связи экселя
Гость Дата: Пятница, 29.06.2012, 11:39 | Сообщение № 1
Группа: Гости
столкнулся с такой проблемой что при выполнения макроса идет работа с файлами все файлы типовые и при работе с одним он выдает ошибку "не удалось обновить одну или несколько связей в книге эксель" формат файла xlsm. как это можно вылечить? до этого макрос работал тока с xls и все было норм.
 
Ответить
Сообщениестолкнулся с такой проблемой что при выполнения макроса идет работа с файлами все файлы типовые и при работе с одним он выдает ошибку "не удалось обновить одну или несколько связей в книге эксель" формат файла xlsm. как это можно вылечить? до этого макрос работал тока с xls и все было норм.
Автор - Гость
Дата добавления - 29.06.2012 в 11:39
Serge_007 Дата: Пятница, 29.06.2012, 12:20 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Сравните расширения файлов указанные в коде и их истинные расширения

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСравните расширения файлов указанные в коде и их истинные расширения
Автор - Serge_007
Дата добавления - 29.06.2012 в 12:20
Гость Дата: Пятница, 29.06.2012, 12:33 | Сообщение № 3
Группа: Гости
там первые несколько файлов в xls потом попадается в xlsm и при работе с ним вылетает эта ошибка.
в коде он сначала открывает xls и если не получилось то xlsm
 
Ответить
Сообщениетам первые несколько файлов в xls потом попадается в xlsm и при работе с ним вылетает эта ошибка.
в коде он сначала открывает xls и если не получилось то xlsm
Автор - Гость
Дата добавления - 29.06.2012 в 12:33
Гость Дата: Пятница, 29.06.2012, 12:39 | Сообщение № 4
Группа: Гости
в коде конкретно ругается на эту строчку
lastrow = Activ.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
 
Ответить
Сообщениев коде конкретно ругается на эту строчку
lastrow = Activ.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
Автор - Гость
Дата добавления - 29.06.2012 в 12:39
vikttur Дата: Пятница, 29.06.2012, 12:48 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

А перед этим что?
Возможно, Вы допустили ошибку в сообщении, а возможно, в коде:
Activе.Cells
 
Ответить
СообщениеА перед этим что?
Возможно, Вы допустили ошибку в сообщении, а возможно, в коде:
Activе.Cells
Автор - vikttur
Дата добавления - 29.06.2012 в 12:48
Гость Дата: Пятница, 29.06.2012, 12:51 | Сообщение № 6
Группа: Гости
Activ это имя вкладки.
файлы все идентичны тока форматы разные для xls все проходит норм а для xlsm говорит про связи и в коде ругается на эту строку
 
Ответить
СообщениеActiv это имя вкладки.
файлы все идентичны тока форматы разные для xls все проходит норм а для xlsm говорит про связи и в коде ругается на эту строку
Автор - Гость
Дата добавления - 29.06.2012 в 12:51
Гость Дата: Пятница, 29.06.2012, 12:55 | Сообщение № 7
Группа: Гости
нашел эти связи оказывается их давно нет.
теперь просто при работе с файлом xlsm ругается на строку:
lastrow = Activ.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
но с xls все проходит
 
Ответить
Сообщениенашел эти связи оказывается их давно нет.
теперь просто при работе с файлом xlsm ругается на строку:
lastrow = Activ.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
но с xls все проходит
Автор - Гость
Дата добавления - 29.06.2012 в 12:55
RAN Дата: Пятница, 29.06.2012, 12:55 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Хоть так
Quote (Гость)
lastrow = Activ.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

хоть этак
Quote (vikttur)
Activе.Cells

все одно - не будет работать.
Может так попробовать? biggrin
[vba]
Code
lastrow = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
[/vba]

А если
Quote (Гость)
Activ это имя вкладки.

то можно только гадать, где вы это Activ не определяете.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 29.06.2012, 13:01
 
Ответить
СообщениеХоть так
Quote (Гость)
lastrow = Activ.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

хоть этак
Quote (vikttur)
Activе.Cells

все одно - не будет работать.
Может так попробовать? biggrin
[vba]
Code
lastrow = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
[/vba]

А если
Quote (Гость)
Activ это имя вкладки.

то можно только гадать, где вы это Activ не определяете.
Автор - RAN
Дата добавления - 29.06.2012 в 12:55
Гость Дата: Пятница, 29.06.2012, 15:22 | Сообщение № 9
Группа: Гости
и сразу почему [vba]
Code
Loop Until (Int(Activ.Cells(i, 1).Value) <> Int(Activ.Cells(i - 1, 1).Value)) Or _
             (Trim(Activ.Cells(i, 1)) = "" And Trim(Activ.Cells(i, 2)) = "")
[/vba]
работает норм до 1416 строки на 1417 выдает ошибку?
 
Ответить
Сообщениеи сразу почему [vba]
Code
Loop Until (Int(Activ.Cells(i, 1).Value) <> Int(Activ.Cells(i - 1, 1).Value)) Or _
             (Trim(Activ.Cells(i, 1)) = "" And Trim(Activ.Cells(i, 2)) = "")
[/vba]
работает норм до 1416 строки на 1417 выдает ошибку?
Автор - Гость
Дата добавления - 29.06.2012 в 15:22
RAN Дата: Пятница, 29.06.2012, 15:33 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Спросите здесь .

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСпросите здесь .
Автор - RAN
Дата добавления - 29.06.2012 в 15:33
Мир MS Excel » Вопросы и решения » Вопросы по Excel » связи экселя
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!