Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Прочитать содержимое ячейки таблицы Excel,вставленной в Word - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Прочитать содержимое ячейки таблицы Excel,вставленной в Word (Формулы/Formulas)
Прочитать содержимое ячейки таблицы Excel,вставленной в Word
Отпрос Дата: Понедельник, 25.01.2016, 15:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть word-документ, в него вставлена таблица Excel. Как ее прочитать? Или сохранить в файл?
Речь идет об использовании OLE

P.S. Можно на любом языке, если есть возможность - на Delphi (Free Pascal/Lazarus вообще шикарно)
[moder]Вложите пример такого файла.[/moder]


Сообщение отредактировал SLAVICK - Понедельник, 25.01.2016, 16:45
 
Ответить
СообщениеЕсть word-документ, в него вставлена таблица Excel. Как ее прочитать? Или сохранить в файл?
Речь идет об использовании OLE

P.S. Можно на любом языке, если есть возможность - на Delphi (Free Pascal/Lazarus вообще шикарно)
[moder]Вложите пример такого файла.[/moder]

Автор - Отпрос
Дата добавления - 25.01.2016 в 15:03
Отпрос Дата: Понедельник, 25.01.2016, 20:13 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Или хотя бы подскажите как извлечь этот объект в файл
 
Ответить
СообщениеИли хотя бы подскажите как извлечь этот объект в файл

Автор - Отпрос
Дата добавления - 25.01.2016 в 20:13
Отпрос Дата: Понедельник, 25.01.2016, 20:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вот пример фафла
К сообщению приложен файл: 8302418.docx(24Kb)
 
Ответить
СообщениеВот пример фафла

Автор - Отпрос
Дата добавления - 25.01.2016 в 20:51
krosav4ig Дата: Вторник, 26.01.2016, 00:13 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1465
Репутация: 596 ±
Замечаний: 0% ±

Excel 2007, 2013
если документ рядом с exe файлом
внедренный лист сохраняется в текущую папку в файл embedded.xls
[vba]
Код
...

Uses ...,oleauto

...

procedure ExportEmbeddedXlSheet();
Var
    varWDApp,varWDDoc,varOleFormat:OleVariant;
    strPath:string;
begin
    strPath:=ExtractFilePath(ParamStr(0));
    varWDApp:=createoleobject('word.application');
    varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx');
    varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat;
    varOleFormat.activate;
    varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56);
    varWDdoc.close(false);
    varWDApp.Quit
end;
...
[/vba]
varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут
[offtop]
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Вторник, 26.01.2016, 04:53
 
Ответить
Сообщениеесли документ рядом с exe файлом
внедренный лист сохраняется в текущую папку в файл embedded.xls
[vba]
Код
...

Uses ...,oleauto

...

procedure ExportEmbeddedXlSheet();
Var
    varWDApp,varWDDoc,varOleFormat:OleVariant;
    strPath:string;
begin
    strPath:=ExtractFilePath(ParamStr(0));
    varWDApp:=createoleobject('word.application');
    varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx');
    varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat;
    varOleFormat.activate;
    varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56);
    varWDdoc.close(false);
    varWDApp.Quit
end;
...
[/vba]
varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут
[offtop]
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]

Автор - krosav4ig
Дата добавления - 26.01.2016 в 00:13
китин Дата: Вторник, 26.01.2016, 07:43 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4097
Репутация: 632 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
тут читать у вместо а или й всесто ф?


lol clap hands


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
тут читать у вместо а или й всесто ф?


lol clap hands

Автор - китин
Дата добавления - 26.01.2016 в 07:43
Отпрос Дата: Четверг, 28.01.2016, 14:24 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое, красавчик, вот окончательный вариант (для FreePascal):
[vba]
Код
OLESheet := WordApp.ActiveDocument.Shapes.Item(i).OleFormat;
OLESheet.Activate;
ShowMessage(OLESheet.&object.Activesheet.Cells[ARow, ACol].Text); //Чтение даных
OLESheet.&object.Activesheet.SaveAs(Widestring(Utf8ToSys(filename)));//Сохранение объекта
[/vba]

//Не смог включить в тег delphi


Сообщение отредактировал Отпрос - Четверг, 28.01.2016, 14:25
 
Ответить
СообщениеСпасибо большое, красавчик, вот окончательный вариант (для FreePascal):
[vba]
Код
OLESheet := WordApp.ActiveDocument.Shapes.Item(i).OleFormat;
OLESheet.Activate;
ShowMessage(OLESheet.&object.Activesheet.Cells[ARow, ACol].Text); //Чтение даных
OLESheet.&object.Activesheet.SaveAs(Widestring(Utf8ToSys(filename)));//Сохранение объекта
[/vba]

//Не смог включить в тег delphi

Автор - Отпрос
Дата добавления - 28.01.2016 в 14:24
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Прочитать содержимое ячейки таблицы Excel,вставленной в Word (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!