Помогите допилить макрос, чтобы происходил поиск начала таблицы из "книги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
|
Изменено: - 15.10.2023 16:01:08
