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

Вход

Регистрация

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

 

= Мир MS Excel/Передача данных из книги в другую книгу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передача данных из книги в другую книгу (Макросы/Sub)
Передача данных из книги в другую книгу
Demanufactyre Дата: Четверг, 02.11.2017, 10:50 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ребята, помогите пожалуйста. У меня есть макрос, который передает указанное значение в коде макроса в выделенные книги excel. А я хочу сделать чтоб из ячейки книги, передавалось в указанную ячейку.
Как передать значение ячейки в другую книгу?
Вот макрос:

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'
'

Dim FilesToOpen
Dim x As Integer
Application.ScreenUpdating = Fals
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
MultiSelect:=True, Title:="Выберите файлы")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
Application.Visible = False
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)

A = "24 октября 2017"

Sheets(1).Range("C29").Value = A

ActiveWorkbook.Close savechanges:=True
x = x + 1
Wend

ExitHandler:
Application.ScreenUpdating = True
Application.Visible = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
[/vba]
К сообщению приложен файл: 9704617.xls(38Kb)


Сообщение отредактировал Demanufactyre - Четверг, 02.11.2017, 11:18
 
Ответить
СообщениеРебята, помогите пожалуйста. У меня есть макрос, который передает указанное значение в коде макроса в выделенные книги excel. А я хочу сделать чтоб из ячейки книги, передавалось в указанную ячейку.
Как передать значение ячейки в другую книгу?
Вот макрос:

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'
'

Dim FilesToOpen
Dim x As Integer
Application.ScreenUpdating = Fals
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
MultiSelect:=True, Title:="Выберите файлы")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
Application.Visible = False
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)

A = "24 октября 2017"

Sheets(1).Range("C29").Value = A

ActiveWorkbook.Close savechanges:=True
x = x + 1
Wend

ExitHandler:
Application.ScreenUpdating = True
Application.Visible = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
[/vba]

Автор - Demanufactyre
Дата добавления - 02.11.2017 в 10:50
_Boroda_ Дата: Четверг, 02.11.2017, 11:02 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11644
Репутация: 4825 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - _Boroda_
Дата добавления - 02.11.2017 в 11:02
Pelena Дата: Четверг, 02.11.2017, 13:07 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Не уверена, что правильно поняла.
Попробуйте заменить строку
[vba]
Код
Sheets(1).Range("C29").Value = A
[/vba]
на
[vba]
Код
ActiveWorkbook.Sheets(1).Range("C29").Value = ThisWorkbook.Sheets(1).Range("A1").Value
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНе уверена, что правильно поняла.
Попробуйте заменить строку
[vba]
Код
Sheets(1).Range("C29").Value = A
[/vba]
на
[vba]
Код
ActiveWorkbook.Sheets(1).Range("C29").Value = ThisWorkbook.Sheets(1).Range("A1").Value
[/vba]

Автор - Pelena
Дата добавления - 02.11.2017 в 13:07
Demanufactyre Дата: Пятница, 03.11.2017, 07:53 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, спасибо, но не получается =(
Строка пустая остается
 
Ответить
СообщениеPelena, спасибо, но не получается =(
Строка пустая остается

Автор - Demanufactyre
Дата добавления - 03.11.2017 в 07:53
Pelena Дата: Пятница, 03.11.2017, 09:41 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Какая строка?
Значение записывается в ячейку С29 на первом листе каждой открываемой книги.
Поясните подробнее, что хотите получить?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеКакая строка?
Значение записывается в ячейку С29 на первом листе каждой открываемой книги.
Поясните подробнее, что хотите получить?

Автор - Pelena
Дата добавления - 03.11.2017 в 09:41
Demanufactyre Дата: Вторник, 07.11.2017, 05:04 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Здравствуйте, я хочу открыть файл excel, ввести в ячейку (далее A1) <слово>, нажать на кнопочку, выбрать файлы, в которые мне нужно в ячейку С29 добавить к существующей записи запись из ячейки А1.
 
Ответить
СообщениеPelena, Здравствуйте, я хочу открыть файл excel, ввести в ячейку (далее A1) <слово>, нажать на кнопочку, выбрать файлы, в которые мне нужно в ячейку С29 добавить к существующей записи запись из ячейки А1.

Автор - Demanufactyre
Дата добавления - 07.11.2017 в 05:04
sboy Дата: Вторник, 07.11.2017, 10:15 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1103
Репутация: 276 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Цитата Demanufactyre, 07.11.2017 в 05:04, в сообщении № 6 ()
добавить к существующей записи запись из ячейки А1

Может так надо?
[vba]
Код

'...
A = [a1].Value
'...
Sheets(1).Range("C29").Value = Sheets(1).Range("C29").Value & A
'...
[/vba]
К сообщению приложен файл: 1179341.xls(44Kb)
 
Ответить
СообщениеДобрый день.
Цитата Demanufactyre, 07.11.2017 в 05:04, в сообщении № 6 ()
добавить к существующей записи запись из ячейки А1

Может так надо?
[vba]
Код

'...
A = [a1].Value
'...
Sheets(1).Range("C29").Value = Sheets(1).Range("C29").Value & A
'...
[/vba]

Автор - sboy
Дата добавления - 07.11.2017 в 10:15
Demanufactyre Дата: Вторник, 07.11.2017, 10:35 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, странно, но ничего не происходит. У вас добавляется в С29 что-нибудь?
 
Ответить
Сообщениеsboy, странно, но ничего не происходит. У вас добавляется в С29 что-нибудь?

Автор - Demanufactyre
Дата добавления - 07.11.2017 в 10:35
sboy Дата: Вторник, 07.11.2017, 10:42 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 1103
Репутация: 276 ±
Замечаний: 0% ±

Excel 2010
Demanufactyre, конечно. В выбранные книги на первых листах в С29 появился Ваш привет)
 
Ответить
СообщениеDemanufactyre, конечно. В выбранные книги на первых листах в С29 появился Ваш привет)

Автор - sboy
Дата добавления - 07.11.2017 в 10:42
Demanufactyre Дата: Вторник, 07.11.2017, 10:50 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, я извиняюсь, но может я что то не так делаю. Привет не появляется.


Сообщение отредактировал Demanufactyre - Вторник, 07.11.2017, 10:50
 
Ответить
Сообщениеsboy, я извиняюсь, но может я что то не так делаю. Привет не появляется.

Автор - Demanufactyre
Дата добавления - 07.11.2017 в 10:50
Pelena Дата: Вторник, 07.11.2017, 10:57 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
может я что то не так делаю

Опишите, что Вы делаете, по шагам. И как проверяете результат?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
может я что то не так делаю

Опишите, что Вы делаете, по шагам. И как проверяете результат?

Автор - Pelena
Дата добавления - 07.11.2017 в 10:57
sboy Дата: Вторник, 07.11.2017, 10:59 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 1103
Репутация: 276 ±
Замечаний: 0% ±

Excel 2010
Нажимаю Вашу кнопку - выбираю другой файл - открываю его и вижу в С29

[p.s.]Вы файл с корректировкой макроса из моего сообщения скачивали?
К сообщению приложен файл: 0956094.jpg(12Kb)


Сообщение отредактировал sboy - Вторник, 07.11.2017, 11:00
 
Ответить
СообщениеНажимаю Вашу кнопку - выбираю другой файл - открываю его и вижу в С29

[p.s.]Вы файл с корректировкой макроса из моего сообщения скачивали?

Автор - sboy
Дата добавления - 07.11.2017 в 10:59
Demanufactyre Дата: Вторник, 07.11.2017, 11:55 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, действительно=))Огромное спасибо Вам. Счастья, здоровья, богатства и долго жизни Вам! hands hands


Сообщение отредактировал Demanufactyre - Вторник, 07.11.2017, 12:07
 
Ответить
Сообщениеsboy, действительно=))Огромное спасибо Вам. Счастья, здоровья, богатства и долго жизни Вам! hands hands

Автор - Demanufactyre
Дата добавления - 07.11.2017 в 11:55
sboy Дата: Вторник, 07.11.2017, 12:04 | Сообщение № 14
Группа: Проверенные
Ранг: Старожил
Сообщений: 1103
Репутация: 276 ±
Замечаний: 0% ±

Excel 2010
[offtop]
богадства

какие-то двоякие ощущения от такого пожелания :)
 
Ответить
Сообщение[offtop]
богадства

какие-то двоякие ощущения от такого пожелания :)

Автор - sboy
Дата добавления - 07.11.2017 в 12:04
Demanufactyre Дата: Вторник, 07.11.2017, 12:07 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, Исправил=))
 
Ответить
Сообщениеsboy, Исправил=))

Автор - Demanufactyre
Дата добавления - 07.11.2017 в 12:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передача данных из книги в другую книгу (Макросы/Sub)
Страница 1 из 11
Поиск:

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