Вопрос : VBA для того чтобы импортировать специфически Эксел WKSTs в базу данных доступа.

Я использую офис 2007, и я имею архив первенствовать при 4 озаглавленное рабочий лист tabs-1 «основой», и другие 3 озаглавленных «Widget1», «Widget2», и «Widget3».  

I хотел было бы импортировать данные в доступ от всех плат рабочий лист названные старты с колонкой a к d «Widget» от в одном tblMaster `звонока таблицы'. ограничения

The должно были бы исключить импортировать рядок 1 от любых листов, и исключают импортировать все рядки без любой колонки a значения зарегистрированной нижней (пробел или null), и исключают рядки которые имеют значение `YZ' под колонкой D.

Is там любая дорога, котор я могу сделать это с VBA?  Мой пример легок достаточно для выполнения через соединять листы к базе данных и писание вопроса соединения для того чтобы достигнуть предпологаемых результатов.  Моя реальная ситуация имеет множества платы листа, которая почему я предпочитаю решать это с VBA.  Любая проницательность очень оценена.  Спасибо!     class=

Ответ : VBA для того чтобы импортировать специфически Эксел WKSTs в базу данных доступа.

попытайтесь это Кодие, для того чтобы импортировать все листы с «widget» в имени листа

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:

Sub ImportAllSheets () Затемните objXL как предмет Затемните конюшню, xlPath как шнур, I как интежер xlPath = «C:\myExcel.xls» Установите objXL = CreateObject («Excel.Application») xlPath objXL.Workbooks.Open, поистине С objXL Для I = 1 к. Worksheets.Count если instr, то (. Рабочий лист (I). Имя, «widget») после этого acImport DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _ «TestTable», xlPath, поистине. Рабочий лист (I). Имя &»! A: D " закончитесь если Затем Конец с objXL.Quit Установите objXL = ничего Закончите подводную лодку