Как в Access открыть Excel???

@kolja · Регистрация: 26.08.2008

Author24 — интернет-сервис помощи студентам

Здрасте. Подскажите как лучше сделать такую вещь. Есть 3-и файла Excel в которых есть повторяющиеся записи типа КлиентА->Число товара1, КлиентА->Число товара2 и т.д. нужно их все найти по КлиентуА сложить число товаров и все это по 3-м файлом. Потом в Accesse есть таблица где в одном столбце эти клиенты и путем добавления нового столбца занести в него сумму товаров. Так вот как лючше открывать эти файлы если их название постоянно меняется, и вообще как это сделать?

28.05.2009, 12:11

Dim XLApp As Object
Dim XLWb As Object
Dim XLSh As Object
Dim XLA As Object
Set XLApp = CreateObject('Excel.Sheet.8')
Set XLWb = XLApp.ActiveSheet
XLWb.Name = 'test'
Set XLA = XLWb.Parent.Parent
' Тут пишешь всё ..........
' У Дженингса так ....
XLApp.SaveAs ('c: est.xls')
XLA.Quit
MsgBox ('1234567')

@kolja 0 / 0 / 0 Регистрация: 26.08.2008 Сообщений: 16
		1
	Как в Access открыть Excel??? 26.05.2009, 11:05. Показов 2319. Ответов 1 Метки нет (Все метки) Здрасте. Подскажите как лучше сделать такую вещь. Есть 3-и файла Excel в которых есть повторяющиеся записи типа КлиентА->Число товара1, КлиентА->Число товара2 и т.д. нужно их все найти по КлиентуА сложить число товаров и все это по 3-м файлом. Потом в Accesse есть таблица где в одном столбце эти клиенты и путем добавления нового столбца занести в него сумму товаров. Так вот как лючше открывать эти файлы если их название постоянно меняется, и вообще как это сделать? 0

Kimmy
	28.05.2009, 12:11	2
	Dim XLApp As Object Dim XLWb As Object Dim XLSh As Object Dim XLA As Object Set XLApp = CreateObject('Excel.Sheet.8') Set XLWb = XLApp.ActiveSheet XLWb.Name = 'test' Set XLA = XLWb.Parent.Parent ' Тут пишешь всё .......... ' У Дженингса так .... XLApp.SaveAs ('c: est.xls') XLA.Quit MsgBox ('1234567')