Как собрать данные из нескольких файлов в один

@Dear_S · Регистрация: 05.12.2012

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

Доброго времяни суток!
Помогите плиз Ламеру, сломал голову. Есть задача собрать данные (2 столбца) из более чем двухсот файлов Excel в один. Все файлы одинаковые, из одного шаблона созданы. Могу написать макрос, который будет открывать файл, копировать данные и закрывать файл. Долго будет работать. Может есть какое-нить другое решение?
Обратиться к ячейкам файл не открывая его - например.

Заранее огромное спасибо.

@Surrogate · 18.10.2013, 16:17

Сообщение от Dear_S

Обратиться к ячейкам файл не открывая его - например.

а такое возможно, тащемта ?

toiai · 18.10.2013, 22:15

Посмотри здесь:
Вытянуть данные из закрытых книг в Excel

@Hugo121 · 19.10.2013, 18:13

"Обратиться к ячейкам файл не открывая его" - думаю будет дольше, чем "открывать файл, копировать данные и закрывать файл". Если конечно только не нужно из каждого файла взять по паре ячеек.
А так с getobject() и код проще, и шевелится быстро.
Но в общем если сделаете на формулах как по ссылке - сделайте потом на getobject() и сравните скорость работы.
Только конечно делайте как положено - с отключением всего лишнего, и через массивы (формулы ведь тоже тянут только значения).

@Dear_S · 21.10.2013, 16:10 **[ТС]**

Сообщение от Hugo121

"Обратиться к ячейкам файл не открывая его" - думаю будет дольше, чем "открывать файл, копировать данные и закрывать файл". Если конечно только не нужно из каждого файла взять по паре ячеек.
А так с getobject() и код проще, и шевелится быстро.
Но в общем если сделаете на формулах как по ссылке - сделайте потом на getobject() и сравните скорость работы.
Только конечно делайте как положено - с отключением всего лишнего, и через массивы (формулы ведь тоже тянут только значения).

Спасибо за совет, попробую. Если не сложно рассказать про getobject(), ни когда не пользовался.

@Surrogate · 22.10.2013, 11:34

про GetObject на MSDN

Visual Basic

Sub TestGetObject()
Dim wb As Object
Set wb = GetObject("c:\000\test.xlsx")
cl = wb.Sheets(1).Cells(2, 1) ' читаем содержимое ячейки A2
Debug.Print cl
End Sub

@Hugo121 · 22.10.2013, 12:05

Что-то MSDN накосячил чуть (по ссылке не ходил, боюсь что как всегда всё зависнет) - а закрывать этот файл кто будет?
И обязательно нужно закрывать без сохранения - а то так и останется с невидимым окном.
Если нужно в нём что-то изменить - то перед сохранением отобразите окно!

@Dear_S · 22.10.2013, 15:15 **[ТС]**

А если использовать c1= range("A2").FormulaR1C1, насколько этот вариант будет хуже?

@Султанов · 24.10.2013, 10:58

Сообщение от Dear_S

А если использовать c1= range("A2").FormulaR1C1, насколько этот вариант будет хуже?

, в принципе ничем, только вместо значения переменная будет иметь формулу в стиле R1C1

@Dear_S · 25.10.2013, 09:58 **[ТС]**

Огромное спасибо.

@Dear_S 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 4
		1
	Как собрать данные из нескольких файлов в один 18.10.2013, 14:29. Показов 6162. Ответов 9 Метки нет (Все метки) Доброго времяни суток! Помогите плиз Ламеру, сломал голову. Есть задача собрать данные (2 столбца) из более чем двухсот файлов Excel в один. Все файлы одинаковые, из одного шаблона созданы. Могу написать макрос, который будет открывать файл, копировать данные и закрывать файл. Долго будет работать. Может есть какое-нить другое решение? Обратиться к ячейкам файл не открывая его - например. Заранее огромное спасибо. 0

@Surrogate Ушел с CyberForum совсем! 873 / 182 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	18.10.2013, 16:17	2
	Сообщение от Dear_S Обратиться к ячейкам файл не открывая его - например. а такое возможно, тащемта ? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	18.10.2013, 22:15	3
	Посмотри здесь: Вытянуть данные из закрытых книг в Excel 1

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	19.10.2013, 18:13	4
	"Обратиться к ячейкам файл не открывая его" - думаю будет дольше, чем "открывать файл, копировать данные и закрывать файл". Если конечно только не нужно из каждого файла взять по паре ячеек. А так с getobject() и код проще, и шевелится быстро. Но в общем если сделаете на формулах как по ссылке - сделайте потом на getobject() и сравните скорость работы. Только конечно делайте как положено - с отключением всего лишнего, и через массивы (формулы ведь тоже тянут только значения). 1

@Dear_S 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 4
	21.10.2013, 16:10 [ТС]	5
	Сообщение от Hugo121 "Обратиться к ячейкам файл не открывая его" - думаю будет дольше, чем "открывать файл, копировать данные и закрывать файл". Если конечно только не нужно из каждого файла взять по паре ячеек. А так с getobject() и код проще, и шевелится быстро. Но в общем если сделаете на формулах как по ссылке - сделайте потом на getobject() и сравните скорость работы. Только конечно делайте как положено - с отключением всего лишнего, и через массивы (формулы ведь тоже тянут только значения). Спасибо за совет, попробую. Если не сложно рассказать про getobject(), ни когда не пользовался. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	22.10.2013, 12:05	7
	Что-то MSDN накосячил чуть (по ссылке не ходил, боюсь что как всегда всё зависнет) - а закрывать этот файл кто будет? И обязательно нужно закрывать без сохранения - а то так и останется с невидимым окном. Если нужно в нём что-то изменить - то перед сохранением отобразите окно! 0

@Dear_S 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 4
	22.10.2013, 15:15 [ТС]	8
	А если использовать c1= range("A2").FormulaR1C1, насколько этот вариант будет хуже? 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	24.10.2013, 10:58	9
	Сообщение от Dear_S А если использовать c1= range("A2").FormulaR1C1, насколько этот вариант будет хуже? , в принципе ничем, только вместо значения переменная будет иметь формулу в стиле R1C1 0

@Dear_S 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 4
	25.10.2013, 09:58 [ТС]	10
	Огромное спасибо. 0