Импорт листа из файла

[zaquson]

Здравствуйте.
Вопрос простой, но что-то не получается Есть открытая книга, необходимо макросом в последний лист (или новый лист) вставить лист из файла "d:\123.xls", если возможно, не открывая его.

[Hugo121]

Не открывая думаю не получится... разве что с SQL данные вытянуть.

With GetObject("d:\123.xls")
.Sheets(1).Copy before:=ActiveWorkbook.Sheets(1)
.Close 0
End With

[zaquson]

вон оно как...
спасибо за подсказку!

[Скрипт]

Пункт 1

Hugo121, напишите пример кода, как с помощью VBA и SQL вытянуть данные.


Пункт 2

Примечание. Если в копируемом листе в какой-то ячейке больше 255 символов, то текст в ячейке будет обрезан. При этом не будет никаких предупреждающих сообщений.

[Hugo121]

Скрипт, это приказ? Или заказ? Я по ADO не специалист - погуглите например "ADO_R_Dmitry".
Или это был намёк, что это невозможно?
Хотя конечно и тут можно сказать, что где-то там внутри к файлу программа обращается, значит открывает...

По 255 правда...
Ну тогда так:

With GetObject("d:\123.xls")
.Sheets(1).Move before:=ActiveWorkbook.Sheets(1)
.Close 0
End With

[DiemonStar]

Hugo121, напишите пример кода, как с помощью VBA и SQL вытянуть данные.

Я хоть и не Hugo121, но могу подкинуть направление (и даже VBA не потребуется):
1) выбираете в меню Данные-Из других источников-Из мастера подключения данных
2) в мастере: ODBC DSN - Excel files - Выбираете нужный файл - Выбираете таблицу в файле

з.ы. Пример для 2007 офиса, но подобное есть и в других версиях. При желании можно все это переделать на VBA

[Скрипт]

Hugo121, нет, просто спросил, чтобы знать, как делать то, что вы предложили.

[Hugo121]

Смотрю уже и к Microsoft заглянули
Скачайте код/файл ADO_R_Dmitry - там уже всё готово.

[Скрипт]

Hugo121: Смотрю уже и к Microsoft заглянули

что вы имеет ввиду?

[Hugo121]

Cсылку на другом форуме на http://support.microsoft.com/kb/257819/ru