Копирование данных из разных книг в одну с указанием файла - Microsoft Office Excel - Страница 2

illusion51 · 17.11.2017, 09:52

Цитата:

Сообщение от Serge_Bliznykov

Alt-F11 (откроется редактор Visual Basic for Application
там выбирайте слева в дереве объектов тот, в котором будет лежать макрос.
двойной щелчок - можете вставлять текст макроса.

Спасибо. увидел

поменял ячейку на К17 - нажимаю обновить - пишет ССЫЛКА и все ((

Serge_Bliznykov · 17.11.2017, 10:12

попробуйте такой файлик: Main.xls

illusion51 · 17.11.2017, 10:15

Цитата:

Сообщение от Serge_Bliznykov

попробуйте такой файлик: Вложение 90480

Спасибо огромное!!!!!!!!!!!!!!!! Все работает !!! Хорошего Вам дня!

Serge_Bliznykov · 17.11.2017, 10:20

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

illusion51 · 17.11.2017, 10:24

Цитата:

Сообщение от Serge_Bliznykov

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

а можно еще одна маленькая просьба....там где копируются данные из двух ячеек марка и модель - между ними можно пробел вставить ?

Serge_Bliznykov · 17.11.2017, 10:39

Цитата:

Сообщение от illusion51

там где копируются данные из двух ячеек марка и модель - между ними можно пробел вставить ?

попробуйте это сделать самостоятельно. Пригодится.

Открывайте Main.xls
Нажимайте Alt-F11
в редакторе находите подпрограмму Main (она в Modules - Module1)
там находим строчки, где заполняется 4-й столбец:

Цитата:

Код:

          Cells(i, 4) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "ЗАКАЗЫ'!R8C7") & _
                           ExecuteExcel4Macro("'" & path & "[" & file & "]" & "ЗАКАЗЫ'!R8C13")

и вставляем пробел:

Код:

          Cells(i, 4) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "ЗАКАЗЫ'!R8C7") & " " & _
                           ExecuteExcel4Macro("'" & path & "[" & file & "]" & "ЗАКАЗЫ'!R8C13")

сохраняем файл Main.xls.
всё.

illusion51 · 17.11.2017, 10:44

Цитата:

Сообщение от Serge_Bliznykov

попробуйте это сделать самостоятельно. Пригодится.

Открывайте Main.xls
Нажимайте Alt-F11
в редакторе находите подпрограмму Main (она в Modules - Module1)
там находим строчки, где заполняется 4-й столбец:

и вставляем пробел:

Код:

          Cells(i, 4) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "ЗАКАЗЫ'!R8C7") & " " & _
                           ExecuteExcel4Macro("'" & path & "[" & file & "]" & "ЗАКАЗЫ'!R8C13")

сохраняем файл Main.xls.
всё.

Спасибо все получилось ! 1000 кратное спасибо )))))))))

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копирование данных из множества книг XL в одну	Z0RGE	Microsoft Office Excel	6	31.03.2015 15:55
копирование данных из разных книгEXCEL в одну	elli_93	Microsoft Office Excel	1	01.05.2012 20:39
Объединение данных из разных книг в одну книгу.	judicator	Microsoft Office Excel	4	18.01.2012 14:44
сбор данных с разных книг в одну	Ledy1987	Microsoft Office Excel	26	20.04.2011 21:33
Сбор даных с разных книг в одну	Pao	Microsoft Office Excel	28	12.07.2010 07:27

17.11.2017, 10:12	#12
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	попробуйте такой файлик: Main.xls

17.11.2017, 10:20	#14
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	пожалуйста. Но основная благодарность SAS888 за макрос. я просто немного подкорректировал его под ваш файл.