Соединение двух макросов. Последовательное выполнение

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Соединение двух макросов. Последовательное выполнение (Макросы/Sub)

elita86

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

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

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

Сообщений: 71

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

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

2010

Добрый день, помогите объединить, два макроса

[vba]

Код

Sub Сбор данных()
       Dim sShName As String, sAddress As String, vData
       Application.ScreenUpdating = False
       Workbooks.Open "\\192.168.2.18\Отчёт\Test\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]

И

[vba]

Код

Sub Ñáîð_äàííûõ_ÊÑÊ()
       Dim sShName As String, sAddress As String, vData
       Application.ScreenUpdating = False
       Workbooks.Open "\\192.168.2.15\Отчёт\Test\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]

Сообщение отредактировал elita86 - Вторник, 23.12.2014, 08:36

Ответить

Pelena

Дата: Вторник, 23.12.2014, 07:45 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

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

Замечаний: ±

Excel 365 & Mac Excel

Что значит объединить? В один столбец? А название города нигде не будет отображаться? Таких листов всего два?
Приложите небольшой файл с примером в соответствии с Правилами форума
И название темы замените на более конкретное

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

elita86

Дата: Вторник, 23.12.2014, 08:13 | Сообщение № 3

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

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

Сообщений: 71

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

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

2010

Каждый, из этих макросов, выгружает данные из закрытой книги. Они идентичны, только указаны разные источники. Выгрузка данных происходит из 10 разных источников. На каждую выгрузку, написан отдельный макрос, два из которых, представлены выше. Задача, вообще, разбита на два пункта, просто, второй вопрос создан в другой теме "Корректировка макроса, выгрузка данных в определённый лист". Первая задача стояла, чтоб каждый макрос, выгружал данные в определённый лист, а не в тот, с какого его запускают. Вторая задача, как раз по этой теме, объединить, все эти десять макросов в один, чтоб я не 10 раз нажимал на каждый макрос, а один раз и они все по очереди, выполнили задачу. В примере выше, указано всего два макроса, которые нужно объединить, для того, чтоб они выполнились последовательно, с начала один, потом другой. Я знаю правила форума, по поводу примера, какой пример нужен, чистая книга, с двумя этими макросами?

Ответить

elita86

Дата: Вторник, 23.12.2014, 08:40 | Сообщение № 4

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

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

Сообщений: 71

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

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

2010

Кажется решил проблему, в конце макросов, просто нужно было добавить ещё один, который как раз и выполняет последовательно все остальные

[vba]

Код

Sub Объединение()
Call Сбор_данных_ГК
Call Сбор_данных_КСК

[/vba]

Сообщение отредактировал elita86 - Вторник, 23.12.2014, 08:41

Ответить

Страница 1 из 1
1