Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 21.03.2013, 16:50   #1
zaquson
Пользователь
 
Регистрация: 21.03.2013
Сообщений: 10
По умолчанию Импорт листа из файла

Здравствуйте.
Вопрос простой, но что-то не получается Есть открытая книга, необходимо макросом в последний лист (или новый лист) вставить лист из файла "d:\123.xls", если возможно, не открывая его.
zaquson вне форума Ответить с цитированием
Старый 21.03.2013, 17:35   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,060
По умолчанию

Не открывая думаю не получится... разве что с SQL данные вытянуть.
Код:
With GetObject("d:\123.xls")
.Sheets(1).Copy before:=ActiveWorkbook.Sheets(1)
.Close 0
End With
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 22.03.2013, 08:15   #3
zaquson
Пользователь
 
Регистрация: 21.03.2013
Сообщений: 10
По умолчанию

вон оно как...
спасибо за подсказку!
zaquson вне форума Ответить с цитированием
Старый 22.03.2013, 09:25   #4
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

Пункт 1

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


Пункт 2

Примечание. Если в копируемом листе в какой-то ячейке больше 255 символов, то текст в ячейке будет обрезан. При этом не будет никаких предупреждающих сообщений.
Скрипт вне форума Ответить с цитированием
Старый 22.03.2013, 10:26   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,060
По умолчанию

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

По 255 правда...
Ну тогда так:
Код:
With GetObject("d:\123.xls")
.Sheets(1).Move before:=ActiveWorkbook.Sheets(1)
.Close 0
End With
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 22.03.2013 в 10:44.
Hugo121 вне форума Ответить с цитированием
Старый 22.03.2013, 10:53   #6
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

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

з.ы. Пример для 2007 офиса, но подобное есть и в других версиях. При желании можно все это переделать на VBA
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 22.03.2013, 16:50   #7
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

Hugo121, нет, просто спросил, чтобы знать, как делать то, что вы предложили.
Скрипт вне форума Ответить с цитированием
Старый 22.03.2013, 16:59   #8
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,060
По умолчанию

Смотрю уже и к Microsoft заглянули
Скачайте код/файл ADO_R_Dmitry - там уже всё готово.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 22.03.2013, 17:03   #9
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

Цитата:
Hugo121: Смотрю уже и к Microsoft заглянули
что вы имеет ввиду?
Скрипт вне форума Ответить с цитированием
Старый 22.03.2013, 17:25   #10
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,060
По умолчанию

Cсылку на другом форуме на http://support.microsoft.com/kb/257819/ru
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос на импорт из файла Emmelman SQL, базы данных 0 08.02.2013 11:52
прямой импорт из txt файла drNabla Microsoft Office Excel 3 03.05.2012 09:57
Импорт листа Excel из ячейки OLE базы данных Access Gawwws Microsoft Office Excel 1 14.01.2011 01:58
Не работает импорт из файла *.xlsx evggen Microsoft Office Excel 0 29.09.2010 12:59