Корректировка макроса, выгрузка данных в определённый лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Корректировка макроса, выгрузка данных в определённый лист (Макросы/Sub)

elita86

Дата: Вторник, 23.12.2014, 06:44 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 0 ±

Замечаний: 0% ±

2010

Добрый день, помогите скорректировать макрос. Данный макрос, собирает данные из другой, закрытой, книги, с определённого листа и копирует их, в тот лис, с какого его запустили. Как можно доработать макрос, чтоб он копировал данные, в нужный мне лист, к примеру "Город_1"

[vba]

Код

Sub Сбор данных()
     Dim sShName As String, sAddress As String, vData
     Application.ScreenUpdating = False
     Workbooks.Open "\\192.168.2.16\Отчёт\09.09.2014.xlsb"
     sAddress = "A1:L10000"
     vData = Sheets("Уфа").Range(sAddress).Value
     ActiveWorkbook.Close False
       If IsArray(vData) Then
         [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
     Else
         [A1] = vData
     End If
        Application.ScreenUpdating = True
End Sub

[/vba]