Извлечь данные из закрытого файла

ТолькоУчусь

Гость

29.04.2010 17:28:30

Доброго времени суток!

Имеется определенный файл для извлечения данных из закрытой книги в текущею (смотрите файл).

Само извлечение осуществляется при помощи формулы:
Лист1.Range("A10:T22").Formula = "='" & iPath & "[" & iFile & "]" & iList & "'!" & "A10"
ThisWorkbook.BreakLink Name:=iFile, Type:=xlExcelLinks
Лист1.Range("A10:T22") = Лист1.Range("A10:T22").Value

Это работает, но не всегда данные вставляются корректно, иногда вовсе абра-кадабра.

Как возможно скопировать данные из закрытого файла в открытый (скопировать и вставить) или только при открытом?!

Прикрепленные файлы

post_121098.zip (17.17 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 29.04.2010 19:46:15 Смотрите. Да, измените имя iList на свое. Прикрепленные файлы post_121133.xls (68 КБ) Я сам - дурнее всякого примера! ...

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 29.04.2010 19:58:10 Лучше так: Прикрепленные файлы post_121136.xls (69 КБ) Я сам - дурнее всякого примера! ...

ТолькоУчусь Гость	#4 30.04.2010 09:49:37 KuklP, спасибо Вам большое, все работает отлично! :) Но хотелось бы услышать любые ответы о извлечении данных из закрытого файла. С уважаением, ТолькоУчусь.

Hugo

Пользователь

Сообщений: 26286 Регистрация: 22.12.2012

30.04.2010 09:59:47

Мне вот это не понравилось:

For Each iBook In Workbooks
iСount = iСount + 1
Next iBook
If iСount > 1 Then
MsgBox "Закройте все файлы Excel кроме данного!", 16, "Внимание!"
Exit Sub
End If

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

Это вообще так сильно нужно? (В код не вникал, извините...)

ТолькоУчусь Гость	#6 30.04.2010 10:34:33 Hugo, это не обязательно, можно удалить, темболее в варианте KuklP.

ТолькоУчусь Гость	#7 30.04.2010 10:38:21 Еще один под вопрос, а как по средствам VBA в открытом файле сделать уровень безопасности "Высокий" (точнее перед открытием?), а затем вернуть его назад!

Hugo Пользователь Сообщений: 26286 Регистрация: 22.12.2012	#8 30.04.2010 10:45:55 А может это надо: Application.EnableEvents = False

ТолькоУчусь Гость	#9 30.04.2010 10:59:31 Hugo, спасибо, оно самое :)

ТолькоУчусь Гость	#10 30.04.2010 13:41:22 {quote}{login=ТолькоУчусь}{date=29.04.2010 05:28}{thema=Извлечь данные из закрытого файла}{post}Как возможно скопировать данные из закрытого файла в открытый (скопировать и вставить) или только при открытом?!{/post}{/quote} Не у кого нет по этому поводу никаких мнений?! :(

Читают тему