ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Данные таблицы Excel из одной книги в другую с помощью макроса VBA
8 сообщений из 33, страница 2 из 2
  2  все
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #37142715
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
nikalex2,
в модуль книги (называется ЭтаКнига) в Книга2.xls добавляете две процедуры, пробуете, что получилось.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks("Книга1.xls").Close False
End Sub

Private Sub Workbook_Open()
    Workbooks.Open "C:\Книга1.xls", ReadOnly:=True
End Sub
...
Рейтинг: 0 / 0
01.03.2011, 19:01
| Ответить | Цитировать | Написать  
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #37142781
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
пробуй камнемnikalex2,
в модуль книги (называется ЭтаКнига) в Книга2.xls добавляете две процедуры, пробуете, что получилось.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks("Книга1.xls").Close False
End Sub

Private Sub Workbook_Open()
    Workbooks.Open "C:\Книга1.xls", ReadOnly:=True
End Sub


Добавил.
Книга1.xls открывается!!!
Но теперь в Книга2.xls вместо данных стоят "0"
...
Рейтинг: 0 / 0
01.03.2011, 19:40
| Ответить | Цитировать | Написать  
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #37142834
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
nikalex2,
покажите функцию, которую используете. Copy - Paste, никакого редактирования.
ЗЫ: чтобы кириллица нормально отображалась, - перед копированием преключите язык ввода на русский.
...
Рейтинг: 0 / 0
01.03.2011, 20:33
| Ответить | Цитировать | Написать  
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #37142849
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
Public Function Список(Number)
Dim I As Integer
For I = 1 To 30
If Workbooks("Книга1.xls").Worksheets("Список").Range("A" & I).Value = Number Then
Список = Workbooks("Книга1.xls").Worksheets("Список").Range("B" & I).Value
End If
Next I
End Function
...
Рейтинг: 0 / 0
01.03.2011, 20:43
| Ответить | Цитировать | Написать  
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #37142862
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
Блин какая то ерунда, комп перезагрузил теперь работает
Всем большое спасибо!!!
...
Рейтинг: 0 / 0
01.03.2011, 20:50
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #37896794
lelvisl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lelvisl
Гость
Имеется аналогичная проблема.
ВРоде принцип работы фугкции указанной я понял.
Но по идее аргумент который в нее передается - айдишник для подстановки. Вопрос как его передать.
С макросами в экселе общаюсь в первый раз.
...
Рейтинг: 0 / 0
29.07.2012, 14:17
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #39415977
Stepan_888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepan_888
Гость
Друзья у меня такая же ситуация похожая. Помогите добить код. На листе "ЕИИС" есть данные - инвентаризационный номер и наименование. На листе "Сканер" в колонке А просто инвентарные номера. При нажатии на кнопку, он сравнивает инвентарные номера и в колонку B кидает наименования.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub CommandButton3_Click()
Dim I As Integer
For I = 1 To 6000
If Sheets("ЕИИС").Range("B" & I).Value = Number Then
Список = Worksheets.["ЕИИС"].["Список"].Range("B" & I).Value
End If
Next I
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
09.03.2017, 05:34
| Ответить | Цитировать | Написать  
Данные таблицы Excel из одной книги в другую с помощью макроса VBA
    #39416004
T1gRa_NT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T1gRa_NT
Участник
А просто формула ВПР Вам не подходит?
...
Рейтинг: 0 / 0
09.03.2017, 08:53
| Ответить | Цитировать | Написать  
8 сообщений из 33, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Данные таблицы Excel из одной книги в другую с помощью макроса VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37142781&tid=2172756]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 281ms
total:  433ms
созд. / загр.: 433ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]