-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Множественный поиск значений из Access в книге Excel

Среда, 18 Февраля 2015 г. 14:35 + в цитатник
Необходим поиск ячеек в файле Excel по двум значениям, которые берутся с формы Access.
Возможно что будут несколько совпадений. Поэтому в итоге нужно будет в отдельной форме вывести номера строк (с указанием этих найденных данных), где эти значения встречаются.
В этой форме должна быть возможность выбора нужного номера строки, чтобы затем выполнить команду вставки значений в ячейки именно этой строки.

Сравнение идет по таким данным
Poisk1 = ((Forms!Данные.Сумма_долга) + (Forms!Данные.Сумма_процентов))
Poisk2 = Forms!Данные.краткое_наименование

Наверно нужно организовать цикл присвоения переменным номеров строк пока находятся нужные совпадения и использовать FindNext...
Начало моего кода

Option Compare Database
Option Explicit

Dim app As Object
Dim Workbooks As Object

Dim strPathExcel As String
Dim xlWbk As Object
Dim ns
Dim xlApp As Object
Public Rowss As Integer, Rowss2 As Integer

Const MyFile = "P:\дела\ДЕЛА 2015 ОПОСД.xls"
Const l = "Сводная таблица_2015г" 'l = "Лист1" 'можно просто цифрой номер листа указывать

Sub Delo_v_Excel_Poisk_2()
Dim sRowNumber
Dim Poisk1, Poisk2

Set xlApp = CreateObject("Excel.Application.14") 'создаем объект Excel, чтобы можно было работать с его методами и свойствами
strPathExcel = MyFile
Set xlWbk = xlApp.Workbooks.Open(strPathExcel)

Poisk1 = Forms!Данные![Краткое наименование]
Poisk2 = ((Forms!Данные.Сумма_долга) + (Forms!Данные.Сумма_процентов))

sRowNumber=xlWbk.Worksheets(l).Cells.Find(What:=Poisk1, LookAt:=xlWhole).Row

http://www.sql.ru/forum/1143248/mnozhestvennyy-poisk-znacheniy-iz-access-v-knige-excel


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку