Извлечение значений из БД? - Microsoft Office Excel

ITM · 10.01.2009, 03:43

Помогите пожалуйста! Какими средствами Excell можно извлечь значения из одной БД и перенести их в другую? Пример прилагаю. Необходимо скопировать значения из листа 1, поля H,m в такое-же поле на листе 2 по соответствию поля #. Спасибо.

SIV84 · 10.01.2009, 19:28

Попробуй следующий макрос:

Dim a As String, b As String
Dim i As Integer, j As Integer
Sub perenos()
For i = 2 To 130
a = Sheets(1).Cells(i, 1)
For j = 2 To 7039
b = Sheets(2).Cells(j, 1)
If a = b Then Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 2)
Next j
Next i
End Sub

Если я тебя правлильно понял, то это тебе поможет!

ITM · 10.01.2009, 21:14

Да, Вы правильно меня поняли. Большое спасибо за макрос! Первый раз в жизни я это использовал. Помогло. Буду дальше копать тему макросов и Visual Basic. Еще раз спасибо.

EducatedFool · 10.01.2009, 23:21

Всё делается проще.

На листе 1 выделяем диапазон А2:В130 и назначаем ему имя (например, СписокНомеров)

На листе 2 в ячейку С2 вбиваем формулу: =ВПР($A2;СписокНомеров;2;0)

Растягиваем эту формулу на весь столбец С.

ITM · 10.01.2009, 23:40

Блестяще!!! Большое спасибо!!!

10.01.2009, 03:43	#1
ITM Пользователь Регистрация: 10.01.2009 Сообщений: 18	Извлечение значений из БД в Excell Помогите пожалуйста! Какими средствами Excell можно извлечь значения из одной БД и перенести их в другую? Пример прилагаю. Необходимо скопировать значения из листа 1, поля H,m в такое-же поле на листе 2 по соответствию поля #. Спасибо. Последний раз редактировалось ITM; 07.02.2009 в 17:05.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Безопасное извлечение устройства	Xardas	Компьютерное железо	7	28.02.2011 00:49
извлечение битов из байтов...	WinApi	Помощь студентам	4	10.11.2008 15:14
Извлечение данных из TCppWebBrowser	НикСерг	Общие вопросы C/C++	1	13.07.2008 17:16
Безопасное извлечение	SunKnight	Win Api	1	12.01.2008 02:06
Извлечение ресурса в файл	JivotiK	Общие вопросы Delphi	1	26.04.2007 11:48

10.01.2009, 19:28	#2
SIV84 Пользователь Регистрация: 09.01.2009 Сообщений: 44	Попробуй следующий макрос: Dim a As String, b As String Dim i As Integer, j As Integer Sub perenos() For i = 2 To 130 a = Sheets(1).Cells(i, 1) For j = 2 To 7039 b = Sheets(2).Cells(j, 1) If a = b Then Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 2) Next j Next i End Sub Если я тебя правлильно понял, то это тебе поможет!

10.01.2009, 21:14	#3
ITM Пользователь Регистрация: 10.01.2009 Сообщений: 18	Да, Вы правильно меня поняли. Большое спасибо за макрос! Первый раз в жизни я это использовал. Помогло. Буду дальше копать тему макросов и Visual Basic. Еще раз спасибо.

10.01.2009, 23:40	#5
ITM Пользователь Регистрация: 10.01.2009 Сообщений: 18	Блестяще!!! Большое спасибо!!!