|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.08.2010, 14:06 | #1 |
Новичок
Джуниор
Регистрация: 04.08.2010
Сообщений: 4
|
Работа с Excel
Есть документ например 1.xls, необоходимо:
1. По нажатию кнопки открыть и в определенные ячейки чонить понаписать. 2. Сохранить этот документ по другим именем в другую папку без запросов на подтверждение 3. Закрыть 1.xls без изменений Первый пункт не вызвал никаких проблем. А вот последние два никак. Благадарен буду, еси написать пару строчек необходимого кода, не вызовет у вас затруднений Открываю так: MyExcel := CreateOleObject('Excel.Application' ); MyExcel.Workbooks.open('D:\1.xls'); MyExcel.Visible:=true; Сохранить пытаюсь так: MyExcel.WorkBooks.SaveAS('D:\qq\2.x ls') |
04.08.2010, 14:21 | #2 |
Погулять вышел
Участник клуба
Регистрация: 17.05.2010
Сообщений: 1,573
|
И что не выходит? ЧТобы не было запросов на подтверждение поставь:
Код:
Никогда не знаешь, где тебе повезет... (Фрай)
|
04.08.2010, 14:28 | #3 |
Участник клуба
Регистрация: 11.01.2009
Сообщений: 1,917
|
Mamuk, а что дал поиск по форуму ???
Или искать не любим ? Проще в 10-й раз вопрос задать !
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
|
04.08.2010, 14:54 | #4 |
Форумчанин
Регистрация: 28.01.2008
Сообщений: 267
|
в папке с установленным office есть файлы "*.OLB" - это быблиотека типов MS Office, там описаны все интерфейсы и поля доступа к функция и процедурам. Берем лом(Delphi) и долбим эту библиотеку.
P.S. в вашем случае интерфейсы к Excel находятся в XL5EN32.OLB
Не забываем говорить спасибо за помощь - это ведь так приятно
Последний раз редактировалось Sanprof; 04.08.2010 в 14:56. |
05.08.2010, 05:39 | #5 |
Новичок
Джуниор
Регистрация: 04.08.2010
Сообщений: 4
|
MyExcel.WorkBooks.SaveAS('D:\qq\2.x ls')
это вапще не работает. хрен сним с подтверждением даже. Пусть спрашивает разрешение на сохранение. НО прога вылетает с ошибкой, ничо не сохраняется Kotofff Покажи мне хоть одну, (даже не 10) тему этого форума, где есть ответ на мой вопрос. Или проще было сюда написать и наставить вопросительных знаков? Последний раз редактировалось Stilet; 05.08.2010 в 08:33. |
05.08.2010, 07:53 | #6 | |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
Цитата:
Вот мой работающий ответ!!! MyExcel.WorkBooks.SaveAs(Filename:= 'E:\01_Work\test.xlsx'); ПС: *довольный как пряник*
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. |
|
05.08.2010, 08:22 | #7 |
Новичок
Джуниор
Регистрация: 04.08.2010
Сообщений: 4
|
Вылетает с ошибкой:Метод SaveAS ноу супортед бай атаматишион обжект. Процес стопед
Упростим весь код. Код:
Последний раз редактировалось Stilet; 05.08.2010 в 08:34. |
05.08.2010, 08:31 | #8 | |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
Цитата:
Код:
Var MyWorkBook:variant; // - это глобальная переменная MyWorkBook := MyExcel.Workbooks.open('D:\1.xls'); и затем MyWorkBook.SaveAs(Filename:= 'D:\2.xls'); и не забываем алерты выключать ПС: нокаутировать Excel: MyExcel.Quit;
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. Последний раз редактировалось Sparkman; 05.08.2010 в 08:33. |
|
05.08.2010, 08:44 | #9 |
Новичок
Джуниор
Регистрация: 04.08.2010
Сообщений: 4
|
Все работает! Спасиба. Sparkman шарит
|
05.08.2010, 08:48 | #10 |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. Последний раз редактировалось Sparkman; 05.08.2010 в 08:53. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа с ms excel | 1o1man | Помощь студентам | 18 | 05.05.2009 19:10 |
Работа с EXCEL... | nikolai_P | Общие вопросы Delphi | 6 | 25.02.2009 14:58 |
Работа с Excel и БД | Paranoid | БД в Delphi | 2 | 04.01.2007 17:50 |