Экспортирование данных из одной книги в другую .

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспортирование данных из одной книги в другую . (Макросы/Sub)

Kombinator

Дата: Четверг, 29.01.2015, 18:55 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Добрый вечер, уважаемая аудитория.

Скажите возможно ли средствами Excel Макрос сделать следующее.

Ниже прикладываю файл который по заполнению документа в закладе BLANK при нажатии кнопки SAVE экспортирует данные в закладку DATA

Можно ли сделать так что при заполнении документа в закладке BLANK при нажатии кнопки SAVE информация экспортировалась в другой файл Excel ?

К сообщению приложен файл: 4409233.rar (79.4 Kb)

Сообщение отредактировал Kombinator - Четверг, 29.01.2015, 22:57

Ответить

Karataev

Дата: Четверг, 29.01.2015, 21:20 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

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

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

Excel

есть разные ситуации .поэтому нужны уточнения -как скрипту узнать,куда копировать данные ? скрипту нужно как -то указать,с какой книгой работать

Ответить

Kombinator

Дата: Четверг, 29.01.2015, 22:56 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Karataev, по имени документа, тоесть два документа будут неизменны. На моём примере может расмотреть это так. закладка BLANK будет отдельным экселовским документом и заклдака DATA будет отдельным экселовским документом заполняя БЛАНК информация должна уходить в ДАТА скрипт файл распазнаёт по имени.

Насколько осуществлимо не имею никапли представления, решил поинтересоваться у много увожаемой аудитории.

Ответить

Karataev

Дата: Четверг, 29.01.2015, 23:17 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

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

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

Excel

принцип такой
для этого примера книга с листом Blank и книга с листом Data должны находиться в одной папке
назначьте книге с листом Data имя Data.xls
[vba]

Код

Private Sub KARTA_Click()
     Dim shData As Worksheet
     Set shData = Workbooks.Open(ThisWorkbook.Path & "\" & "Data.xls").Worksheets("DATA")
     'и дальше, вместо Sheets("DATA") подставляйте shData. например было так
     rinda = Sheets("DATA").Range("B9").End(xlDown).Row
     'сделайте так
     rinda = shData.Range("B9").End(xlDown).Row
End Sub

[/vba]

Ответить

Kombinator

Дата: Пятница, 30.01.2015, 00:07 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Karataev, К сожалению я не силен в макросах вы могу я вас попросить сделать это на примере и приложить файл ?

Ответить

Karataev

Дата: Пятница, 30.01.2015, 07:55 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

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

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

Excel

не могу помочь -у вас большой скрипт и нужно в нем разбираться.
подождите,может кто-нибудь другой сделает

Ответить

Manyasha

Дата: Пятница, 30.01.2015, 13:00 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Kombinator, Вам вообщем-то все, что нужно написали.)
Сделайте 2 переменных: 1-я - книга c бланком, 2-я с листом Data.

[vba]

Код

    Dim wbData As Worksheet, wbBlank As Worksheet
     Set wbBlank = ThisWorkbook.Sheets("BLANK")
     Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA")

[/vba]
И обращаться к книгам через переменные.

Вот 2 ваших файла (лист DATA вынесла в отдельную книгу).

К сообщению приложен файл: Blank_Data.rar (70.3 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Manyasha

Дата: Пятница, 30.01.2015, 13:03 | Сообщение № 8

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Забыла добавить, что если файл Data НЕ будет лежать в одной папке с файлом blank, то нужно в строчке
[vba]

Код

Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA")

[/vba]
вместо ThisWorkbook.Path указать директорию с файлом Data.

ЯД: 410013299366744 WM: R193491431804

Ответить

Kombinator

Дата: Вторник, 03.02.2015, 17:59 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Manyasha, Добрый день, я очень извиняюсь скажите где можно посмотреть дирекцию файла ?

правой кнопкой миши properties > Location ?

C:\Documents and Settings\kombinator\Desktop\DATA это может быть директорией ?

Сообщение отредактировал Kombinator - Вторник, 03.02.2015, 18:02

Ответить

Kombinator

Дата: Вторник, 03.02.2015, 18:30 | Сообщение № 10

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

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Manyasha, скажите пожалуйста а можно и если да то как нужно дописать макрос чтобы после сохранения он закрывал файл DATA с сохраненной информацией ?

Ответить

Manyasha

Дата: Вторник, 03.02.2015, 18:55 | Сообщение № 11

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Цитата Kombinator, 03.02.2015 в 17:59, в сообщении № 9

C:\Documents and Settings\kombinator\Desktop\DATA это может быть директорией ?

Это она и есть) Директория - полный путь к папке, где лежит Ваш файл.

Сохранить файл:
[vba]

Код

Workbooks.Save

[/vba]

Закрыть файл:
[vba]

Код

Workbooks.Close

[/vba]

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Вторник, 03.02.2015, 18:57

Ответить

Kombinator

Дата: Вторник, 03.02.2015, 20:32 | Сообщение № 12

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

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Manyasha, Заменил Set wbData = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xls").Sheets("DATA") на

C:\Documents and Settings\idolenko\Desktop\DATA

К сожалению пишет ошибку Compile error - Syntax error , боюсь предположить что ему не нравится ?

Private Sub KARTA_Click()
Dim wbData As Worksheet, wbBlank As Worksheet
Set wbBlank = ThisWorkbook.Sheets("BLANK")
Set wbData = Workbooks.Open(C:\Documents and Settings\idolenko\Desktop\DATA & "\" & "DATA.xls").Sheets("DATA")