Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Maxim877
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Копирование таблицы из другого файла
 
#
15.10.2023 17:25:40
Евгений Смирнов, все работает благодарю!
 
Перейти    
Копирование таблицы из другого файла
 
#
15.10.2023 16:13:30
Евгений Смирнов, в "книга111" нужно найти таблицу которая всегда начинается с ячейки с названием "Наименование1" и заканчивается "Наименование13", но строк может быть всегда разное кол-во и далее копировать всю таблицу в ячейку A1 "книга222", удалив перед этим старую таблицу которая была в "книга222".
В верхних строках "книги111"  могут быть данные которые не надо переносить.
 
Перейти    
Копирование таблицы из другого файла
 
#
13.10.2023 21:55:38
Помогите допилить макрос, чтобы происходил поиск начала таблицы из "книги111" и таблица копировалась в "книга222" с заменой данных. Поиск необходим потому что перед таблицей могут быть данные, которые не нужны.
Код
Sub Get_Value_From_Close_Book2()    Dim sShName As String, sAddress As String, vData
   Dim objCloseBook As Object
   'Отключаем обновление экрана
   Application.ScreenUpdating = False
   Set objCloseBook = GetObject("C:\Documents and Settings\Книга111.xlsx")
   sAddress = "A1:C100" 'или одна ячейка - "A1"
   'получаем значение
   vData = objCloseBook.Sheets("Лист1").Range(sAddress).Value
   'Записываем данные на активный лист книги,
   'с которой запустили макрос
   If IsArray(vData) Then
       [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
   Else
       [A1] = vData
   End If
'закрываем книгу(из которой получали значения) без сохранения
   objCloseBook.Close False
   'Включаем обновление экрана
   Application.ScreenUpdating = True
End Sub  
Изменено: Maxim877 - 15.10.2023 16:01:08
 
Перейти    
Активация PLEX без интернета
 
#
14.05.2020 14:42:57
И я вам тоже писал по почте. Посмотрите пожалуйста. .[почта удалена]

Спасибо заранее  
 
Перейти    
Страницы: 1
Наверх