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

Вход

Регистрация

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

 

= Мир MS Excel/Получ. данных из закрытой в открытую книгу, в нужные ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Получ. данных из закрытой в открытую книгу, в нужные ячейки (Формулы/Formulas)
Получ. данных из закрытой в открытую книгу, в нужные ячейки
stalber Дата: Суббота, 17.02.2018, 19:51 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 370
Репутация: 7 ±
Замечаний: 40% ±

Excel 2007
Здравствуйте! PS:Объясните мне почему код не публикуется в нормальном виде? а в кашу.

Данный код:

[vba]
Код


Sub Get_Value_From_Close_Book()
    Dim sShName As String, sAddress As String, vData
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\1ukom.xlsm" '"
    sAddress = "A1:A2000" 'или одна ячейка - "A1"
    'получаем значение
    vData = Sheets("Лист1").Range(sAddress).Value
    ActiveWorkbook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [C1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [C1] = vData
    End If
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub
[/vba]

Что нужно в нём дописать чтобы он взятые данные из ячеек из закрытой книги A1:A2000, записал в определённые ячейки в открытой книги, например в открытой книги в ячейки C1:C2000 как прописать нужный адрес?


Сообщение отредактировал awaddwaawddw - Воскресенье, 18.02.2018, 16:35
 
Ответить
СообщениеЗдравствуйте! PS:Объясните мне почему код не публикуется в нормальном виде? а в кашу.

Данный код:

[vba]
Код


Sub Get_Value_From_Close_Book()
    Dim sShName As String, sAddress As String, vData
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\1ukom.xlsm" '"
    sAddress = "A1:A2000" 'или одна ячейка - "A1"
    'получаем значение
    vData = Sheets("Лист1").Range(sAddress).Value
    ActiveWorkbook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [C1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [C1] = vData
    End If
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub
[/vba]

Что нужно в нём дописать чтобы он взятые данные из ячеек из закрытой книги A1:A2000, записал в определённые ячейки в открытой книги, например в открытой книги в ячейки C1:C2000 как прописать нужный адрес?
Автор - stalber
Дата добавления - 17.02.2018 в 19:51
abtextime Дата: Суббота, 17.02.2018, 20:04 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Код VBA выделяйте нажатие не Fx, на на соседнюю пиктограммку - #
 
Ответить
СообщениеКод VBA выделяйте нажатие не Fx, на на соседнюю пиктограммку - #
Автор - abtextime
Дата добавления - 17.02.2018 в 20:04
Karataev Дата: Воскресенье, 18.02.2018, 09:25 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
 
Ответить
Сообщение
Автор - Karataev
Дата добавления - 18.02.2018 в 09:25
stalber Дата: Воскресенье, 18.02.2018, 16:59 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 370
Репутация: 7 ±
Замечаний: 40% ±

Excel 2007
Решил вот таким кодом, может кому пригодиться, из двух закрытых книг в одну открытую добыть данные:

[vba]
Код

Sub Get_Value_From_Close_Book()
    Dim sShName As String, sAddress As String, vData
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\1.xlsm" '"
    sAddress = "F1:F10" 'или одна ячейка - "F1"
    'получаем значение
    vData = Sheets("Лист1").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 = False
    Workbooks.Open "C:\Users\2.xlsm" '"
    sAddress = "G1:G10" 'или одна ячейка - "G1"
    'получаем значение
    vData = Sheets("Лист1").Range(sAddress).Value
    ActiveWorkbook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [B1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [B1] = vData
    End If
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

[/vba]
 
Ответить
СообщениеРешил вот таким кодом, может кому пригодиться, из двух закрытых книг в одну открытую добыть данные:

[vba]
Код

Sub Get_Value_From_Close_Book()
    Dim sShName As String, sAddress As String, vData
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\1.xlsm" '"
    sAddress = "F1:F10" 'или одна ячейка - "F1"
    'получаем значение
    vData = Sheets("Лист1").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 = False
    Workbooks.Open "C:\Users\2.xlsm" '"
    sAddress = "G1:G10" 'или одна ячейка - "G1"
    'получаем значение
    vData = Sheets("Лист1").Range(sAddress).Value
    ActiveWorkbook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [B1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [B1] = vData
    End If
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

[/vba]
Автор - stalber
Дата добавления - 18.02.2018 в 16:59
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Получ. данных из закрытой в открытую книгу, в нужные ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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