Множественный поиск значений из Access в книге Excel |
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
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |