Передача данных из книги в другую книгу
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]
Ребята, помогите пожалуйста. У меня есть макрос, который передает указанное значение в коде макроса в выделенные книги 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
Сообщение отредактировал 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
- Прочитайте Правила форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку # , пояснялка здесь )
- Прочитайте Правила форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку # , пояснялка здесь ) _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация:
4412
±
Замечаний:
±
Excel 365 & Mac Excel
Не уверена, что правильно поняла. Попробуйте заменить строку [vba]Код
Sheets(1).Range("C29").Value = A
[/vba] на [vba]Код
ActiveWorkbook.Sheets(1).Range("C29").Value = ThisWorkbook.Sheets(1).Range("A1").Value
[/vba]
Не уверена, что правильно поняла. Попробуйте заменить строку [vba]Код
Sheets(1).Range("C29").Value = A
[/vba] на [vba]Код
ActiveWorkbook.Sheets(1).Range("C29").Value = ThisWorkbook.Sheets(1).Range("A1").Value
[/vba] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 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
Ответить
Сообщение Pelena, спасибо, но не получается =( Строка пустая остается Автор - Demanufactyre Дата добавления - 03.11.2017 в 07:53
Pelena
Дата: Пятница, 03.11.2017, 09:41 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация:
4412
±
Замечаний:
±
Excel 365 & Mac Excel
Какая строка? Значение записывается в ячейку С29 на первом листе каждой открываемой книги. Поясните подробнее, что хотите получить?
Какая строка? Значение записывается в ячейку С29 на первом листе каждой открываемой книги. Поясните подробнее, что хотите получить? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 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
Ответить
Сообщение Pelena, Здравствуйте, я хочу открыть файл excel, ввести в ячейку (далее A1) <слово>, нажать на кнопочку, выбрать файлы, в которые мне нужно в ячейку С29 добавить к существующей записи запись из ячейки А1. Автор - Demanufactyre Дата добавления - 07.11.2017 в 05:04
sboy
Дата: Вторник, 07.11.2017, 10:15 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день.добавить к существующей записи запись из ячейки А1
Может так надо? [vba]Код
'... A = [a1].Value '... Sheets(1).Range("C29").Value = Sheets(1).Range("C29").Value & A '...
[/vba]
Добрый день.добавить к существующей записи запись из ячейки А1
Может так надо? [vba]Код
'... A = [a1].Value '... Sheets(1).Range("C29").Value = Sheets(1).Range("C29").Value & A '...
[/vba] sboy
Яндекс: 410016850021169
Ответить
Сообщение Добрый день.добавить к существующей записи запись из ячейки А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
Ответить
Сообщение sboy, странно, но ничего не происходит. У вас добавляется в С29 что-нибудь? Автор - Demanufactyre Дата добавления - 07.11.2017 в 10:35
sboy
Дата: Вторник, 07.11.2017, 10:42 |
Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Demanufactyre , конечно. В выбранные книги на первых листах в С29 появился Ваш привет)
Demanufactyre , конечно. В выбранные книги на первых листах в С29 появился Ваш привет)sboy
Яндекс: 410016850021169
Ответить
Сообщение Demanufactyre , конечно. В выбранные книги на первых листах в С29 появился Ваш привет)Автор - sboy Дата добавления - 07.11.2017 в 10:42
Demanufactyre
Дата: Вторник, 07.11.2017, 10:50 |
Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
sboy, я извиняюсь, но может я что то не так делаю. Привет не появляется.
sboy, я извиняюсь, но может я что то не так делаю. Привет не появляется. Demanufactyre
Сообщение отредактировал Demanufactyre - Вторник, 07.11.2017, 10:50
Ответить
Сообщение sboy, я извиняюсь, но может я что то не так делаю. Привет не появляется. Автор - Demanufactyre Дата добавления - 07.11.2017 в 10:50
Pelena
Дата: Вторник, 07.11.2017, 10:57 |
Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация:
4412
±
Замечаний:
±
Excel 365 & Mac Excel
может я что то не так делаю
Опишите, что Вы делаете, по шагам. И как проверяете результат?
может я что то не так делаю
Опишите, что Вы делаете, по шагам. И как проверяете результат?Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение может я что то не так делаю
Опишите, что Вы делаете, по шагам. И как проверяете результат?Автор - Pelena Дата добавления - 07.11.2017 в 10:57
sboy
Дата: Вторник, 07.11.2017, 10:59 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Нажимаю Вашу кнопку - выбираю другой файл - открываю его и вижу в С29 [p.s.]Вы файл с корректировкой макроса из моего сообщения скачивали?
Нажимаю Вашу кнопку - выбираю другой файл - открываю его и вижу в С29 [p.s.]Вы файл с корректировкой макроса из моего сообщения скачивали? sboy
Яндекс: 410016850021169
Сообщение отредактировал 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, действительно=))Огромное спасибо Вам. Счастья, здоровья, богатства и долго жизни Вам!
sboy, действительно=))Огромное спасибо Вам. Счастья, здоровья, богатства и долго жизни Вам! Demanufactyre
Сообщение отредактировал Demanufactyre - Вторник, 07.11.2017, 12:07
Ответить
Сообщение sboy, действительно=))Огромное спасибо Вам. Счастья, здоровья, богатства и долго жизни Вам! Автор - Demanufactyre Дата добавления - 07.11.2017 в 11:55
sboy
Дата: Вторник, 07.11.2017, 12:04 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
[offtop] какие-то двоякие ощущения от такого пожелания
[offtop] какие-то двоякие ощущения от такого пожелания sboy
Яндекс: 410016850021169
Ответить
Сообщение [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